Kriptovanje stringova (MD5, ...)

[ Nemanja Avramović @ 29.01.2005. 21:07 ] @

Da li neko zna kako da MD5-ujem :) string? Sta mi treba za to?
Takodje me zanima (u php-u) base64_encode...

[ Nemanja Avramović @ 29.01.2005. 22:40 ] @

Ovo sam nasao: http://www.fichtner.net/delphi/md5.delphi.phtml
nisam probao

a ona druga enkripcija... hm... ne znam kako se zove, ali evo primer:
Avram kriptovano: QXZyYW0=
:)

skoro uvek se kript. str. zavrsava sa =
ako ne i uvek

[ dr ZiDoo @ 29.01.2005. 23:50 ] @

base64 se zove.

Nisam siguran kako se koristi u delfiju, ali vjerovatno base64_encode(string)

[ reiser @ 30.01.2005. 00:19 ] @

DCPcrypt Cryptographic Component Library

[ Nemanja Avramović @ 30.01.2005. 10:21 ] @

hvala Marko, sad cu pogledati

inace, oko md5 sam se dosta zezao a samo je trebalo ovo da odradim:
kriptovani_string:=MD5Print(MD5String(obican_string));

eto tako je kad ne gledamo primer :))))

[ Nemanja Avramović @ 30.01.2005. 11:11 ] @

hej Marko, ovo nesto zeza:
iskopiram primer iz html dokumenta i kaze, na liniji:

Code:

Cipher.InitStr(KeyStr,TDCP_sha1); // initialize the cipher with a hash of the passphrase

Undeclared identifier: 'TDCP_sha1'

pomoc!?

[ reiser @ 30.01.2005. 12:06 ] @

Mora da iskopiras one dcu fajlove koji se stvaraju kad kompajliras paket u neku od putanja gde delphi gleda (C:\Program Files\Borland\Delphi 7\Lib)

[ Nemanja Avramović @ 30.01.2005. 16:19 ] @

sledeci folderi su mi vec u library path:
c:\Program Files\Borland\Delphi6\Lib\base_64\
c:\Program Files\Borland\Delphi6\Lib\base_64\Ciphers\
c:\Program Files\Borland\Delphi6\Lib\base_64\Hashes\

i opet ne radi.....

p.s. mislim da nije potrebno reci da je ...\lib\base_64\ `root` folder vcl package-a :) tj. dpk fajlova (tacnije: DCPdelphi6.dpk fajla)

[ reiser @ 30.01.2005. 17:01 ] @

Code:

function DecryptString(data : String) : String;
const
  pass = 'Neka_Lozinka';
var
  Cipher1 : TDCP_blowfish;
begin
  Cipher1 := TDCP_blowfish.Create(nil);
  Cipher1.InitStr(pass, TDCP_sha1);
  result := Cipher1.DecryptString(data);
  Cipher1.Burn;
  Cipher1.Free;
end;

I naravno, u uses dodas unit za odgovarajuci cipher i hasher, u ovom slucaju
DCPblowfish, DCPsha1.

poz

p.s. Meni su svi dcu fajlovi u Lib\ diru, ipak ti probaj da ih iskopiras tamo.

[ Nemanja Avramović @ 02.09.2005. 10:08 ] @

ej ponovo se vratih ovome... uspem da kriptujem string, ali nije kompatibilan sa php-om posle...

Code:

procedure TForm1.Button1Click(Sender: TObject);
var
    i: integer;
    Cipher: TDCP_rc4;
    KeyStr: string;
begin
  KeyStr:= '';
      Cipher:= TDCP_rc4.Create(Self);
      Cipher.InitStr(KeyStr,TDCP_sha1);
      for i:= 0 to Memo1.Lines.Count-1 do
        Memo1.Lines[i]:= Cipher.EncryptString(Memo1.Lines[i]);
      Cipher.Burn;
      Cipher.Free;
end;

u delphiju enkodujem string i dobijem neshto :)
ali kad ga base64_decode(string); u php-u, onda ne dobijem enkodovani string :(

u memo-u mi stoji: Memo1
klikom na taster dobijem: 8UZwytA=
php vraca: ñFpÊÐ

verovatno treba KeyStr podesiti.... ili ja nesto totalno pogresno radim? :)

[ Nemanja Avramović @ 02.09.2005. 16:33 ] @

nadjoh negde ovo (attach)

vrsi posao ;)

[ Peke @ 06.09.2005. 02:37 ] @

JaHvram,
probaj sa:
http://www.scramdisk.clara.net/

Mozda pomogne. Meni jeste.

[ Nemanja Avramović @ 06.09.2005. 10:27 ] @

ma ok je, resio sam problem ;)

hvala u svakom slucaju