04.02.2014, 12:56
|
Активный
|
|
Регистрация: 26.01.2014
Сообщения: 282
Версия Delphi: delphi xe4
Репутация: выкл
|
|
decrypt
Есть кусок типа:
Код:
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;
и вызов его:
Код:
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 );
и
Код:
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);
Первый вызов работает, а второй возвращает пустой стринглист (не ошибку). Разве тут есть различия? что не так?
Данные и файл верны.
|