Verfasst: 09.05.2007 17:48
Schau mal, hier für Dummbeutel:
Das ist ein lauffähiges Beispiel (in dem übrigens dein "Fehler" nicht vorkommt), und nicht irgendwelcher Käs völlig ausm Zusammenhang gerupft.
Code: Alles auswählen
IncludeFile "BlowFish.pbi"
;Erhältlich hier:http://www.purebasic.fr/german/viewtopic.php?t=7896
test$ = "dies ist ein Test"
text_to_encrypt$ = test$
password_for_encryption$ = "0815"
Result$ = Space(255)
Blowfish_Crypt(@text_to_encrypt$, Len(text_to_encrypt$), @password_for_encryption$, Len(password_for_encryption$), @Result$, Len(Result$))
Debug Result$
test$ = Space(255)
Blowfish_Decrypt(@Result$, Len(Result$), @password_for_encryption$, Len(password_for_encryption$), @test$, Len(test$))
Debug test$