[nixon232]

Есть кусок типа:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

function DecryptFileToStream( srcFN,K: string;var Dest: TStrings;bk:TKeyBit)      : Boolean;   var     fs: TFileStream;     ds: TStream ;   begin     try       fs:=TFileStream.Create( srcFN, fmOpenRead );       ds:=TMemoryStream.Create;       Result:=DecryptStream( fs, K,         ds, bk );       if Result then       begin         Dest.LoadFromStream( ds );       end;     finally       fs.Free;       ds.Free;     end; // try     end;

и вызов его:

Код:

1 2 3 4 5 6 7 8 9 10 11

var   s  : string;   ini: TMemIniFile;   DecINI: TStrings; begin   DecINI:=TStringList.Create;   s:=ExtractFilePath( Application.ExeName )+ 'data.pfr';   DecryptFileToStream( s,'11', DecINI,kb256);        ini:=TMemIniFile.Create( '' );   ini.SetStrings( DecINI );

и

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13

function fn8(s:string): Boolean ;    var       decr:TStrings;     ini:TMemIniFile;     reg:TStrings;     IK,INa,IM:string;   begin   try     Result:=False;     decr:=TStringList.Create;     result:=DecryptFileToStream(s,'66',decr,kb256);   ini:=TMemIniFile.Create('');     ini.SetStrings(decr);

Первый вызов работает, а второй возвращает пустой стринглист (не ошибку). Разве тут есть различия? что не так?
Данные и файл верны.

[poli-smen]

Сообщение от nixon232

Первый вызов работает, а второй возвращает пустой стринглист (не ошибку). Разве тут есть различия? что не так?

А проверяешь на одном и том же файле? Если да - почему параметр K разный? Если нет - попробуй во втором случае файл из первого примера и с тем же параметром K.

[nixon232]

Сообщение от poli-smen

А проверяешь на одном и том же файле? Если да - почему параметр K разный? Если нет - попробуй во втором случае файл из первого примера и с тем же параметром K.

Файлы были разные, на одном - работает. Ошибка была (скорее всего) в том, что параметр К во втором случае брался из стринговой константы. Записал К руками - пошло.
Вопрос в догонку - у вас на сайте есть исходних: http://www.delphisources.ru/pages/so...-aes-des.html/
AES encrypt Работает, а декрипт вызывает Invalid buffer size for decryption.
Думал ошибка у автора, но нашел оригинальный AES.pas и все равно не могу декриптить строку. Стрим и файл могу. не критично, но не приятно. Не знаете в чем проблема?

[poli-smen]

Сообщение от nixon232

Вопрос в догонку - у вас на сайте есть исходних: http://www.delphisources.ru/pages/so...-aes-des.html/
AES encrypt Работает, а декрипт вызывает Invalid buffer size for decryption.
Думал ошибка у автора, но нашел оригинальный AES.pas и все равно не могу декриптить строку. Стрим и файл могу. не критично, но не приятно. Не знаете в чем проблема?

Как вызываешь декриптинг?

[nixon232]

В исходнике он изначально у меня не декриптит.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86

function EncryptString(Value: string; Key: string;   KeyBit: TKeyBit = kb128): string; var   SS, DS: TStringStream;   Size: Int64;   AESKey128: TAESKey128;   AESKey192: TAESKey192;   AESKey256: TAESKey256; begin   Result := '';   SS := TStringStream.Create(Value);   DS := TStringStream.Create('');   try     Size := SS.Size;     DS.WriteBuffer(Size, SizeOf(Size));     {  --  128 О»ГЬіЧЧоґуі¤¶ИОЄ 16 ёцЧЦ·ы --  }     if KeyBit = kb128 then     begin       FillChar(AESKey128, SizeOf(AESKey128), 0 );       Move(PChar(Key)^, AESKey128, Min(SizeOf(AESKey128), Length(Key)));       EncryptAESStreamECB(SS, 0, AESKey128, DS);     end;     {  --  192 О»ГЬіЧЧоґуі¤¶ИОЄ 24 ёцЧЦ·ы --  }     if KeyBit = kb192 then     begin       FillChar(AESKey192, SizeOf(AESKey192), 0 );       Move(PChar(Key)^, AESKey192, Min(SizeOf(AESKey192), Length(Key)));       EncryptAESStreamECB(SS, 0, AESKey192, DS);     end;     {  --  256 О»ГЬіЧЧоґуі¤¶ИОЄ 32 ёцЧЦ·ы --  }     if KeyBit = kb256 then     begin       FillChar(AESKey256, SizeOf(AESKey256), 0 );       Move(PChar(Key)^, AESKey256, Min(SizeOf(AESKey256), Length(Key)));       EncryptAESStreamECB(SS, 0, AESKey256, DS);     end;     Result := StrToHex(DS.DataString);   finally     SS.Free;     DS.Free;   end; end;   {  --  ЧЦ·ыґ®ЅвГЬєЇКэ Д¬ИП°ґХХ 128 О»ГЬіЧЅвГЬ --  } function DecryptString(Value: string; Key: string;   KeyBit: TKeyBit = kb128): string; var   SS, DS: TStringStream;   Size: Int64;   AESKey128: TAESKey128;   AESKey192: TAESKey192;   AESKey256: TAESKey256; begin   Result := '';   SS := TStringStream.Create(HexToStr(Value));   DS := TStringStream.Create('');   try     Size := SS.Size;     SS.ReadBuffer(Size, SizeOf(Size));     {  --  128 О»ГЬіЧЧоґуі¤¶ИОЄ 16 ёцЧЦ·ы --  }     if KeyBit = kb128 then     begin       FillChar(AESKey128, SizeOf(AESKey128), 0 );       Move(PChar(Key)^, AESKey128, Min(SizeOf(AESKey128), Length(Key)));       DecryptAESStreamECB(SS, SS.Size - SS.Position, AESKey128, DS);     end;     {  --  192 О»ГЬіЧЧоґуі¤¶ИОЄ 24 ёцЧЦ·ы --  }     if KeyBit = kb192 then     begin       FillChar(AESKey192, SizeOf(AESKey192), 0 );       Move(PChar(Key)^, AESKey192, Min(SizeOf(AESKey192), Length(Key)));       DecryptAESStreamECB(SS, SS.Size - SS.Position, AESKey192, DS);     end;     {  --  256 О»ГЬіЧЧоґуі¤¶ИОЄ 32 ёцЧЦ·ы --  }     if KeyBit = kb256 then     begin       FillChar(AESKey256, SizeOf(AESKey256), 0 );       Move(PChar(Key)^, AESKey256, Min(SizeOf(AESKey256), Length(Key)));       DecryptAESStreamECB(SS, SS.Size - SS.Position, AESKey256, DS);     end;     Result := DS.DataString;   finally     SS.Free;     DS.Free;   end; end;

Ну и вызов

Код:

1 2	s:=EncryptString('123','abc',kb128); s1:=DecryptString(s,'abc',kb128);

[poli-smen]

Сообщение от nixon232

В исходнике он изначально у меня не декриптит.
.....
Ну и вызов

Код:

Понятно. Проблема скорее всего в том, что "delphi xe4", т.е. у тебя Delphi юникодная, а пример разрабатывался на старой версии Delphi. Тебе нужно заменить типы "String" и "PChar" на "AnsiString" и "PAnsiChar" соответственно - должно заработать.