Da li neko zna kako da MD5-ujem :) string? Sta mi treba za to?
Takodje me zanima (u php-u) base64_encode...
Takodje me zanima (u php-u) base64_encode...
Kriptovanje stringova (MD5, ...)
Zaključano
Zakačeno
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
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
Potpis
base64 se zove.
Nisam siguran kako se koristi u delfiju, ali vjerovatno base64_encode(string)
Nisam siguran kako se koristi u delfiju, ali vjerovatno base64_encode(string)
Potpis
tu nema kašike....
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 :))))
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 :))))
Potpis
hej Marko, ovo nesto zeza:
iskopiram primer iz html dokumenta i kaze, na liniji:
Undeclared identifier: 'TDCP_sha1'
pomoc!?
iskopiram primer iz html dokumenta i kaze, na liniji:
Code:
Cipher.InitStr(KeyStr,TDCP_sha1); // initialize the cipher with a hash of the passphrase
Cipher.InitStr(KeyStr,TDCP_sha1); // initialize the cipher with a hash of the passphrase
Undeclared identifier: 'TDCP_sha1'
pomoc!?
Potpis
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)
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)
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)
Potpis
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;
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.
ej ponovo se vratih ovome... uspem da kriptujem string, ali nije kompatibilan sa php-om posle...
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? :)
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;
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? :)
Potpis
nadjoh negde ovo (attach)
vrsi posao ;)
vrsi posao ;)
Potpis
ma ok je, resio sam problem ;)
hvala u svakom slucaju
hvala u svakom slucaju