Enkripsi Searah

Public Function Hash(ByVal text As String) As String
a = 1
For i = 1 To Len(text)
a = Sqr(a * i * Asc(Mid(text, i, 1))) 'Numeric Hash
Next i
Rnd (-1)
Randomize a 'seed PRNG

For i = 1 To 16
Hash = Hash & Chr(Int(Rnd * 256))
Next i
End Function

Private Sub Form_Load()
MsgBox Hash("EmZ-2509") 'Yang dihasilkan: ‰°'r¿¾ ©Ì¿ÂX*¤W
End
End Sub