Einzelnen Beitrag anzeigen

Schorschi5566

Registriert seit: 6. Feb 2006
197 Beiträge
 
Delphi 10.2 Tokyo Enterprise
 
#43

AW: Der DEC x32 ASM in x64/PurePascal Konvertierungsthread

  Alt 2. Dez 2013, 21:54
Hallo zusammen,

darf man fragen ob das Projekt Dec 6.0 noch weiter verfolgt wird?

Wäre schon toll und war doch schon bald fertig, oder?

Ich habe mir auch mal die Kryptoroutinen von gammatester angesehen aber hätte da schon so meine Probleme um die von mir verwendeten DEC-Funktionen umzusetzen.

Sowas zum Beispiel:
Delphi-Quellcode:
function EncryptString(const Password: RawByteString; const Value: RawByteString): RawByteString;
var
  Salt, SessionKey: Binary;
begin
  Salt := RandomBinary(16);
  with TCipher_Rijndael.Create do
    try
      SessionKey := THash_SHA1.KDFx(Password, Salt, Context.KeySize,
        TFormat_Copy);
      mode := cmCFS8;
      Init(SessionKey);
      Result := TFormat_MIME64.Encode(Salt + EncodeBinary(Value, TFormat_Copy));
    finally
      Free;
      ProtectBinary(Salt);
      ProtectBinary(SessionKey);
    end;
end;
Weiß jemand was die Entsprechung mit den gammatester-Kryptoroutinen wäre? Geht das damit?


Grüße,
Uwe
Uwe
"Real programmers can write assembly code in any language." - Larry Wall
Delphi programming rocks
  Mit Zitat antworten Zitat