Forum: Object-Pascal / Delphi-Language
Delphi
by idontwantaname,
9. Mai 2005
ich habe bereits zugegeben, dass es sich um eine unsichere verschlüsselung handelt !
noch was zu meiner verschlüsselung:
würde sie soetwas sicherer machen, also, wenn ich mit dem folgendem code aus dem passwort einen key erstellt ??
ich meine aber nur etwas sicherer, nicht ganz sicher
KeySize sollte der größe der datei entsprechen
function XOR_KeyGen( const Password : String ; const...
Forum: Object-Pascal / Delphi-Language
Delphi
by idontwantaname,
9. Mai 2005
schon klar, trotzdem denke ich, das jemand, der einen text vor sich hat, den inhalt leichter erfährt, als wenn jener den gleichen text mit einer unsicheren verschlüsslungsmethode (wenn auch nur ROT13) vorsich hat
Forum: Object-Pascal / Delphi-Language
Delphi
by idontwantaname,
9. Mai 2005
okay, okay, ich gebe mich geschlagen, ihr habt gewonnen :duck:
also, wenn man obigen - unsicheren - algorhytmus zur verschlüsselung benutzt, dann soll das unsicherer sein, als das man die daten unverschlüsselt lässt ... :roll:
Forum: Object-Pascal / Delphi-Language
Delphi
by idontwantaname,
8. Mai 2005
wie würdest du denn die datei entschlüsseln, wenn diese mit meiner funktion verschlüsselt wurde ?? (also, mir passwort)
denn ich denke, das ist gar nicht so leicht bzw. unmöglich !
Forum: Object-Pascal / Delphi-Language
Delphi
by idontwantaname,
8. Mai 2005
da kannst du ein passwort nehmen, bzw. musst, z.B. "affe", mit dem wird dann die datei verschlüsselt, du kannst aba auch in folgender zeile:
Buffer := Buffer xor ord(Password);
das ord(Password) mit einem wert zwischen 0..255 austauschen, die sicherheit ist jedoch dabei nicht allzu groß, da wenn man diesen wert weiß, die datei entschlüsseln kann ;)
Forum: Object-Pascal / Delphi-Language
Delphi
by idontwantaname,
8. Mai 2005
was meinst du damit ??
hast du soetwas wie den code, den ich oben gepostet hab, im sinne ??
Forum: Object-Pascal / Delphi-Language
Delphi
by idontwantaname,
8. Mai 2005
wie wärs mit xor ??
function XORCrypt(Password,InputFilePath,OutputFilePath:String):Boolean;
var aktChar: Integer;
InputFile, OutputFile: File of Byte;
Buffer:Byte;
begin
Result := False;
try