2012/6/23 leledumbo <leledumbo_c...@yahoo.co.id>:
>> How to use TBlowFishEnCryptStream? Is there any example for mortals?
>
> No but I guess the doc is clear enough.
>
> To encrypt:
> 1. Create TBlowFishEnCryptStream instance supplying a key and the stream to
> write encrypted data to
> 2. Write the data using its Write method
> 3. Flush or Free (Free implies Flush) to ensure all data are written
>
> To decrypt:
> 1. Create TBlowFishDeCryptStream instance supplying a key and the stream
> containing previously encrypted data. If you want to use directly previous
> stream, ensure to Seek it to the first data. To be safe, create a new stream
> instead and put the data from previous stream.
> 2. Read the data using its Read method (you should now the data length, for
> some stream Size property can be used)
>
> An example:
>
> {$mode objfpc}{$H+}
>
> uses classes,blowfish;
>
> var
> en: TBlowFishEncryptStream;
> de: TBlowFishDeCryptStream;
> s1,s2: TStringStream;
> key,value,temp: String;
> begin
> key := 'testkey';
> value := 'this is a string';
>
> s1 := TStringStream.Create('');
> en := TBlowFishEncryptStream.Create(key,s1);
> en.Write(value[1],Length(value));
> en.Free;
>
> WriteLn('encrypted: ' + s1.DataString);
>
> s2 := TStringStream.Create(s1.DataString);
> s1.Free;
>
> de := TBlowFishDeCryptStream.Create(key,s2);
>
> SetLength(temp,s2.Size);
> de.Read(temp[1],s2.Size);
> WriteLn('decrypted: ' + temp);
> de.Free;
>
> s2.Free;
> end.
>
> --
> View this message in context:
> http://free-pascal-general.1045716.n5.nabble.com/encryption-and-decryption-tp5710131p5710137.html
> Sent from the Free Pascal - General mailing list archive at Nabble.com.
I'll test this sample now ... :)
--
Silvio Clécio
My public projects - github.com/silvioprog
_______________________________________________
fpc-pascal maillist - fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal
