Thema: Delphi AES aus DEC

Einzelnen Beitrag anzeigen

King Stein

Registriert seit: 4. Jan 2010
1 Beiträge
 
#1

AES aus DEC

  Alt 4. Jan 2010, 21:11
Hallo,
ich weiß nicht ob das die richtige Kategorie ist, aber das schien mir die zu sein die am besten passt.

Ich habe ein Problem mit dem richtigem einbinden von Rijndael aus DEC. Hier ist erstmal mein Code(ich verwende Delphi 2010 und DEC 5.2):
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
  pass, text: string;
begin
  text := Edit1.Text;
  pass := Edit2.Text;
  Memo1.Lines.Add(encode(text, pass));
end;

function TForm1.encode(text, passwort: string): string;
begin
  with TCipher_Rijndael.Create do
  try
      Mode := cmCBCx;
      Init(passwort);
      Result := EncodeBinary(text, TFormat_MIME64);
  finally

  end;
end;
und hier kommt das Problem:
Bei meinen Programm kommt mit dem Text: 'test' und dem Passwort 'pass' das raus:
Zitat:
ntdnnA==
Cryptofox bekommt aber das raus(mit AES-256)
Zitat:
+VdCS+Tk5ORNznrs
Ich ging mal davon aus, dass im DEC AES-256 implementiert wurde, aber auch bei den anderen kommt nicht das gleich raus.
und zu guter letzt: Bei http://geheim.zipzaps.de/

Zitat:
8GyTJPC7hwM7Mce+4XP9Rw==
Hab ich einen Fehler bei der Einbindung gemacht und was ist denn jetzt richtig? Ich muss dazu sagen, dass cryptofox mir irgendwie doch sehr komisch vorkommt, da ändert sich das Ergebnis laufend.

Mfg Stein
Angehängte Dateien
Dateityp: pas unit1_201.pas (1,1 KB, 7x aufgerufen)
  Mit Zitat antworten Zitat