Vielen Dank, dass sieht genau nach dem aus, was ich suche
Hier kann ich bei Rijndael die Blockgröße auf 128 Bit ändern, damit es AES ist ^^
Nur sehr eigenartig ist, dass wenn ich die MaxKeySize auch auf 128 ändern will (für AES 128 ist ja die Schlüssellänge 128 lang)
springt es immer wieder auf 256 -.-
Ausserdem gibt es anscheinend noch paar kleine fehler:
kontne sie teilweise schon entfernen, aber es gibt noch probleme, da das Programm immer einen Hash wert des Passwortes machen will.
Ich wil aber eigentlich kein Hash Wert haben :>
Habe hier mal die umgeschriebene Bsp. Prozedur:
Delphi-Quellcode:
procedure encrypt(t:TstringList;AESKey:string);
var
i: integer;
Cipher: TDCP_rijndael;
s: string;
begin
Cipher :=TDCP_rijndael.create(nil);
//Cipher.InitStr(AESKey); //geht so nicht, er hat so zu wenig Parameter, meint der Compiler -.-
Cipher.InitStr(AESKey,nil); //also abgeändert in das, und nil, damit er kein hash wert macht, was aber nicht geht
for i:= 0 to t.Count-1 do
begin
s:= t[i];
// Cipher.EncryptCFB(s[1],s[1],Length(s)); // dieser Befehl ist anscheinend Fehlerhaft, habe ihn abgeändert
Cipher.EncryptCFBblock(s[1],s[1],Length(s));
t[i]:= B64Encode(s);
end;
Cipher.Reset;
Cipher.Burn;
end;
wäre sehr dankbar, wenn mir jemand verraten könnte wo der Fehler ist, bzw wie ich es richtig machen kann ^^
edit:
btw: könnte man in
DEC nicht auch irgendwie die Blockgröße von Rijndael auf 128 Bit setzen und auch die Schlüssellänge auf 128 Stellen?
Dann hätte man ja auch mit dem
DEC das AES 128...
Danke schonmal im voraus