🚀 go-pugleaf

W dniu 2017-06-14 o 10:57, konsul41@wp.pl pisze:
> Delphi XE2
> 
> Potrzebuję odpowiednik funkcji Crypt z PHP dla Delphi.
> 
> Może ktoś ma?

Korzystałem z (nie jestem pewien jak się pokrywa z PHP):
DCPcrypt v2.0 written by David Barton (crypto@cityinthesky.co.uk)

Gdyby był problem ze znalezieniem w necie to mogę podesłać na e-maila.

-- 
Pozdrawiam
Janek

> Korzystałem z (nie jestem pewien jak się pokrywa z PHP):
> DCPcrypt v2.0 written by David Barton (crypto@cityinthesky.co.uk)
> 
> Gdyby był problem ze znalezieniem w necie to mogę podesłać na e-maila.

Prawdopodobnie pobierałem stąd:
http://www.cityinthesky.co.uk/opensource/dcpcrypt/

-- 
Pozdrawiam
Janek

W dniu 14-06-2017 o 11:33, Jan Drawski pisze:
>> Korzystałem z (nie jestem pewien jak się pokrywa z PHP):
>> DCPcrypt v2.0 written by David Barton (crypto@cityinthesky.co.uk)
>>
>> Gdyby był problem ze znalezieniem w necie to mogę podesłać na e-maila.
>
> Prawdopodobnie pobierałem stąd:
> http://www.cityinthesky.co.uk/opensource/dcpcrypt/
>
A jakiego trzeba użyć algorytmu (TDCP_hashclass)
aby otrzymać dokładnie to co w PHP
W php uzywam tego tak
crypt('mypassword',12);

> A jakiego trzeba użyć algorytmu (TDCP_hashclass)
> aby otrzymać dokładnie to co w PHP
> W php uzywam tego tak
> crypt('mypassword',12);

http://php.net/manual/en/function.crypt.php
Nie wiem jakiego algorytmu TDCP_hashclass ale na powyższej stronie jest 
coś o DES i MD5 i tym bym się sugerował.

Używam jeszcze: TurboPower LockBox 3
Trochę informacji na ten temat:
https://forums.embarcadero.com/thread.jspa?messageID=778638
Z tego co spojrzałem to używany jest w nim też DCPcrypt.

Jak dalej będziesz miał problem to pisz a postaram się coś znaleźć.

-- 
Pozdrawiam
Janek

W TurboPower LockBox 3 można ustawić (z podanej stroony Embarcadero):
FCodec.BlockCipherId := Format(AES_ProgId, [256]);

wybrane formaty:
MD5_ProgId        = 'native.hash.MD5';
DES_ProgId        = 'native.DES';
TripleDES_ProgId  = 'native.3DES.2';
TripleDES_KO1_ProgId  = 'native.3DES.1';

-- 
Pozdrawiam
Janek

W dniu 14-06-2017 o 13:46, Jan Drawski pisze:
> W TurboPower LockBox 3 można ustawić (z podanej stroony Embarcadero):
> FCodec.BlockCipherId := Format(AES_ProgId, [256]);
>
> wybrane formaty:
> MD5_ProgId        = 'native.hash.MD5';
> DES_ProgId        = 'native.DES';
> TripleDES_ProgId  = 'native.3DES.2';
> TripleDES_KO1_ProgId  = 'native.3DES.1';
>

Manual PHP

crypt() will return a hashed string using the standard Unix DES-based 
algorithm or alternative algorithms that may be available on the system.

robię tak
function InternalEncrypt(): String;
      var
     i: integer;
     Cipher: TDCP_rc4;
     KeyStr: string;
   begin
     KeyStr:= password;
     Cipher:= TDCP_rc4.Create(Self);
     Cipher.InitStr(KeyStr,TDCP_haval);         // initialize the cipher 
with a hash of the passphrase
     result:=Cipher.EncryptString(password);
     Cipher.Burn;
     Cipher.Free;
   end;
Użyłem wszystkich z katalogu Hashes i nie działa

Sprawa rozwiązana

link do projektu UDESCryp.pas
http://www.magsys.co.uk/delphi/unixcrypt.asp

działa w moim zastosowaniu

try
                 DESCrypt1 := TDESCrypt.Create (self) ;
                 with DESCrypt1 do
                 begin
                   Input:=AnsiString(password);
                   Salt:=AnsiString('12');
                   if execute then haslo:=String(Output);
                 end;
               finally
                 DESCrypt1.Free;
               end;

Dzięki za podpowiedzi.

W dniu 2017-06-21 o 08:26, konsul41@wp.pl pisze:
> działa w moim zastosowaniu

Cieszę się, może kiedyś mi albo jeszcze komuś się przyda.
Możesz jeszcze sprawdzić czy w Delphi i PHP jest tak samo jak np. w 
haśle są polskie znaki. O ile mnie pamięć nie myli to w PHP mogą być 
problemy...

-- 
Pozdrawiam
Janek

W dniu 21-06-2017 o 10:18, Jan Drawski pisze:
> W dniu 2017-06-21 o 08:26, konsul41@wp.pl pisze:
>> działa w moim zastosowaniu
> 
> Cieszę się, może kiedyś mi albo jeszcze komuś się przyda.
> Możesz jeszcze sprawdzić czy w Delphi i PHP jest tak samo jak np. w 
> haśle są polskie znaki. O ile mnie pamięć nie myli to w PHP mogą być 
> problemy...
> 
Chyba problem jest w przypadku UNICODE.

W dniu 2017-06-21 o 10:30, konsul41@wp.pl pisze:
> Chyba problem jest w przypadku UNICODE.

O ile mnie pamięć nie myli to w PHP "zwykły" znak ma 1 bajt a np. 
polskie diakrytyczne mają więcej i tu mogą być problemy...

-- 
Pozdrawiam
Janek