Re: PHP Crypt w Delphi

Article View: pl.comp.lang.delphi

Article #345835

Back to pl.comp.lang.delphi Previous Next

#345835

From: konsul41
Date: Mon, 19 Jun 2017 10:32

32 lines
2279 bytes

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

Technical Details

Message-ID: <5947a83f$0$5154$65785112@news.neostrada.pl>

Path:

mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.icm.edu.pl!news.nask.pl!news.nask.org.pl!news.unit0.net!peer01.am4!peer.am4.highwinds-media.com!peer04.fr7!futter-mich.highwinds-media.com!news.highwinds-media.com!newsfeed.neostrada.pl!unt-exc-01.news.neostrada.pl!unt-spo-a-01.news.neostrada.pl!news.neostrada.pl.POSTED!not-for-mail

References:

<ohqtp0$q87$1@portraits.wsisiz.edu.pl> <59410167$0$5152$65785112@news.neostrada.pl> <594102f4$0$5152$65785112@news.neostrada.pl> <594114e7$0$660$65785112@news.neostrada.pl> <594120d9$0$5156$65785112@news.neostrada.pl> <5941221e$0$645$65785112@news.neostrada.pl>

Show Full Headers

Complete Article Headers

Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.icm.edu.pl!news.nask.pl!news.nask.org.pl!news.unit0.net!peer01.am4!peer.am4.highwinds-media.com!peer04.fr7!futter-mich.highwinds-media.com!news.highwinds-media.com!newsfeed.neostrada.pl!unt-exc-01.news.neostrada.pl!unt-spo-a-01.news.neostrada.pl!news.neostrada.pl.POSTED!not-for-mail
Subject: Re: PHP Crypt w Delphi
Newsgroups: pl.comp.lang.delphi
References: <ohqtp0$q87$1@portraits.wsisiz.edu.pl> <59410167$0$5152$65785112@news.neostrada.pl> <594102f4$0$5152$65785112@news.neostrada.pl> <594114e7$0$660$65785112@news.neostrada.pl> <594120d9$0$5156$65785112@news.neostrada.pl> <5941221e$0$645$65785112@news.neostrada.pl>
From: "konsul41@wp.pl" <konsul41@wp.pl>
Date: Mon, 19 Jun 2017 12:32:30 +0200
User-Agent: Mozilla/5.0 (Windows NT 10.0; WOW64; rv:38.0) Gecko/20100101 Thunderbird/38.6.0
MIME-Version: 1.0
In-Reply-To: <5941221e$0$645$65785112@news.neostrada.pl>
Lines: 32
Message-ID: <5947a83f$0$5154$65785112@news.neostrada.pl>
Organization: Telekomunikacja Polska
NNTP-Posting-Host: 83.12.127.25
X-Trace: 1497868351 unt-rea-a-01.news.neostrada.pl 5154 83.12.127.25:49970
X-Complaints-To: abuse@news.neostrada.pl
X-Received-Body-CRC: 420778550
X-Received-Bytes: 2183
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

Reply to Parent Message