|
|
|
Шифрование Crypt::CBC. Perl vs Delphi
|
|||
|---|---|---|---|
|
#18+
Использую use Crypt::Blowfish; use Crypt::CBC; use MIME::Base64; # дешифрование my $cipher = new Crypt::CBC('12345678','Blowfish'); $crypted_block=decode_base64('DayP3wITSvW9LBI1uSgWOTyevOs3JX3N'); my $encrypted_block = $cipher->decrypt($crypted_block); print "encrypted_block=$encrypted_block\n"; Зашифрованный текст получаю из Delphi используя компонент lockbox. Расшифровка не удается ни Perl->Delphi, ни Delphi->Perl Кто-нибудь такое делал? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 27.10.2004, 01:59 |
|
||
|
|
start [/forum/topic.php?fid=23&fpage=498&tid=1479247]: |
0ms |
get settings: |
7ms |
get forum list: |
8ms |
check forum access: |
2ms |
check topic access: |
2ms |
track hit: |
44ms |
get topic data: |
6ms |
get forum data: |
2ms |
get page messages: |
15ms |
get tp. blocked users: |
1ms |
| others: | 253ms |
| total: | 340ms |
| 0 / 0 |
