Crypt Lib

Dim aa As String

aa = Crypt.DES("aaaa", "aa")
Print aa
aarqbNb6Ma0MY

aa = Crypt.MD5("aaaa", "12345678")
Print aa
$1$12345678$cTbvJ1XyY6q1gDAKOokRX.

aa = Crypt.MD5("aaaa", "12345678")
Print aa
$1$12345678$cTbvJ1XyY6q1gDAKOokRX.

aa = Crypt.SHA256("aaaaa", "aaaaaaaaaaaaa")
Print aa
$5$aaaaaaaaaaaaa$/HLo.bsy3GCHxYKtFP1FdDkeZMiXsk5rSxdXap7AG.8

aa = Crypt.SHA512("aaaaa", "aaaaaaaaaaaaa")
Print aa
$6$aaaaaaaaaaaaa$RTItoAAUJNyI6jzu5.B5d2VMOoP1PgoaZgydS7c6MJJIRDxQwLry1D.2li10sr9TciUO9ApugrcdnWkZWsQPk1