Za implementaciju Blowfish-a u Delphi skini zip sa ovog mesta:
http://www.scramdisk.clara.net/delphi/dcpcrypt.zip
Instaliraj algoritme (nevizuelne komponente)-Pojavice ti se paleta DCPCrypt u paleti komponenti,pa onda preradi demo program na ovaj nacin:
Iz koda izbaci combo box,Strings,Encrypt strings i Hash,ostavi samo
osnovne kontrole:Encrypt,Decrypt,In file,Out file,Password (Edit box).
Na Form stavi komponente:Blowfish i SHA1.
Fora je da imas samo jedan algoritam za enkripciju i jedan za hash-funkciju:zato tamo gde ti je izbor algoritma u combo-box-u obrisi TDCP_blockcipher i sve sto pise u toj liniji posle njega i stavi samo ovo: TDCP_blowfish.Create(Self).
TDCP_sha1.Create(Self) ostavi tamo gde jeste (to je hash-algoritam).
Ne zaboravi da iz klauzule "uses" izbrises sve ostale algoritme.
Srecno sifrovanje!
Pozdrav od Mr .Rejn-a
Ag + Na -> Xe