. Есть exe-шник, рабочий, но с кодом у меня проблема. Собственно сам код:
program key;
{$APPTYPE CONSOLE}
uses
Windows,
Classes,
SysUtils,
KbCrypt,
common,
base64;
const
SKeyFile = 'server.key';
var
S, PWD, KeyFile: string;
My: TCryptLib;
sKey: TKey;
F: TEXT;
Memory: TMemoryStream;
MK, AK, nDays, MaxComps: DWORD;
begin
KeyFile := 'key.txt';
MaxComps := StrToIntDef(ParamStr(1), 1);
nDays := StrToIntDef(ParamStr(2), 365);
Assign(F, KeyFile);
Reset(F);
Readln(F, S);
if S = '' then Exit;
Writeln('Using file with key: '+KeyFile);
My := TCryptLib.Create(nil);
My.Password := #0#23#128#0#98#108#63#125#201#135#1#72;
My.Compression := LZ;
AK := 61235349;
MK := 325634;
My.AddKey := AK;
My.MultKey := MK;
Hex2Str(S);
sKey := Str2Key(S);
Write( ' Password:' );
Readln(PWD);
if PWD = '' then Exit;
if PWD <> (' '+DateToStr(Date)+'.' ) then
raise Exception.Create('Bad password.' );
Writeln(' Info: ' );
S := sKey.key;
S := My.DecryptStr(Str2Hex(S));
CharToOem(Pointer(S), Pointer(S));
Writeln(S);
S := sKey.uid;
S := My.DecryptStr(Str2Hex(S));
CharToOem(Pointer(S), Pointer(S));
Writeln(S);
S := sKey.info;
S := My.DecryptStr(Str2Hex(S));
CharToOem(Pointer(S), Pointer(S));
Writeln(Replace(S, ']', ']'#13#10' ' );
S := sKey.date;
Writeln(S);
Writeln(' ' );
Writeln(' MaxComps: ', MaxComps);
Writeln('Expiration Date: ' , DateToStr(Now+nDays) );
Writeln('_____________________________________________________' );
Write('Generate key file? : ' );
Readln(PWD);
if not SameText(PWD, 'Y' ) then
begin
Writeln('Canceled.' );
Exit;
end;
Memory := TMemoryStream.Create();
try
WriteCert(Memory, sKey, MaxComps, Now-1, Now+nDays);
My.EncryptMemory(Memory);
Memory.Position := 0;
Memory.SaveToFile(SKeyFile+'.'+IntToStr(MaxComps));
Base64Encode_stream(Memory);
Memory.SaveToFile(SKeyFile+'.'+IntToStr(MaxComps)+'.base64' );
FreeAndNil(Memory);
finally
Memory.Free;
end;
System.Writeln('OK.' );
end.
Кто разобрался, расскажите. Очень надо
