szyfrowanie za pomocą blowfish

KodujPassword PROCEDURE (haslo)

MyBlowfish CLASS(jPWBlowfish)
END

klucz string(32)
retVal STRING(100)
FilesOpened BYTE(0)



CODE
klucz='macia22'
retVal = MyBlowfish.Encode1024(klucz,haslo)
return(retVal)
Boncler 23:10:55
w dekoduj jest:
Boncler 23:10:58
klucz='macia22'
retVal = MyBlowfish.Decode1024(klucz,haslo)
return(retVal)