[VB] Enkripsi Satu Arah

Function Crypt(ByVal Text As String) As String
   Dim x As Variant
   x = 1
   For i = 1 To Len(Text)
       x = Sqr(i * Asc(Mid(Text, i, 1)) * x)
   Next i
   Rnd (-1)
   Randomize x
   For i = 20 To 0 Step -1
       Crypt = Crypt & Chr(Int(Rnd * 255))
   Next i
End Function

Private Sub Command1_Click()
   MsgBox Crypt("Crowja-Coderz")
End Sub

Jangan Lupa Komentar Yaa..