-
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by KodeZwerg,
18. Jun 2018
Kein Problem, sag Bescheid obs klappt .....oder auch nicht :thumb:
-
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by KodeZwerg,
18. Jun 2018
Hier ist das komplette Package mit Demos und Source und allem drum und dran so wie ich es in Benutzung habe.
Ich schrieb ja relativ am Anfang das es verschiedene Versionen gibt.
Falls es unangebracht ist dieses Package hier fest zu verlinken, bitte löschen.
Mit dem obigen StringEncrypt ist es komplett so wie bei mir.
(nach Integration in IDE muss der Source Ordner der IDE Library-Path...
-
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by KodeZwerg,
14. Jun 2018
Hier ist das FileEncrypt Demo was ich ober für Dich umgeschrieben hatte, damit sollte nun alles nur erdenkliche Abgedeckt sein. Falls Du da etwas nicht verstehen solltest, frage ruhig nach.
Ps: Ich gehe absichtlich nicht auf Deinen Code ein da er irgendwie falsch ist.
edit
Sorry, ich hatte die Archive verwechselt und das StringEncrypt fälschlicher Weise hochgeladen, hier nun das korrekte!
-
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by KodeZwerg,
30. Mai 2018
Finaler Nachtrag
Während vieler Denkpausen bei einem anderen Projekt habe ich immer mal wieder mit dem obigen Programm herumgespielt.
Ich muss feststellen, es ist bombensicher, ich habe keine Möglichkeit entdecken können wie man es knacken kann.
Solange man "in Echtzeit" Passwörter eintippen muss arbeitet dieses Verschlüsselungsverfahren absolut spitze da es nie den gleichen "Crypted Text"...
-
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by KodeZwerg,
28. Mai 2018
Ich war mal fleißig und habe das FileEncryption Demo umgeschrieben das es mit Strings arbeitet.
Nicht Wundern, beim Generieren von verschlüsselten Text bekommst Du jedes mal ein anderes Ergebis, was beim Entschlüsseln wieder korrekt in den Ausgangs-String umgewandelt wird.
Es sollten alle Ciphers und Hashs enthalten und Unterstützt sein.
Ich habe es noch nicht bis ins kleinste Detail getestet,...
-
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by KodeZwerg,
28. Mai 2018
Ich habe mal ein wenig probiert, stimmt schon mit den initvector, der sollte schon eine fixe 16byte länge haben sonst ist das Ergebnis nicht unbedingt überall gleich.
Am besten wäre vielleicht für den TE sich auf bestehendes zu verlassen, es gibt ja wolfgang-ehrhardt und da finden sich zu vielen AES Verfahren super Lösungen an der nicht mehr rumgefummelt werden muss damit es klappt....
-
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by KodeZwerg,
28. Mai 2018
Nee, aber ein Key := 'DLX', da braucht man die 16bytes. IV kann auch '' sein.
-
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by KodeZwerg,
28. Mai 2018
Ohh ja, ist mir noch gar nicht aufgefallen, hier eine mini Sicherheits Prüfung
procedure TForm1.Button1Click(Sender: TObject);
begin
if length(eKey.Text) < 8 then form1.Memo1.Lines.Add('Schlüssel muss mindestens 8 Zeichen lang sein!')
else
EncryptText(eText.Text, eKey.Text, eMKey.Text);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
-
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by KodeZwerg,
28. Mai 2018
Im Anhang ist das Projekt, nun für alles Edit-Felder vorhanden. Viel Spass damit.
Hier der Code:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls,
-
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by KodeZwerg,
28. Mai 2018
Du benutzt noch Trim, wir haben doch aktualisierte Codes geposted.
-
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by KodeZwerg,
28. Mai 2018
key := 'Super Geheim';
IV := 'DLX';
Es sind AnsiStrings, trag da ein was auch immer Du magst.
Ps:
Alternativ kannst Du es auch so machen:
function DecryptText(const Key, IV: AnsiString):String;
Und Du rufst die Funktion mit entsprechenden Parameter auf.
-
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by KodeZwerg,
25. Mai 2018
Klappt diesmal!
Ich :lol:
Delete(Data, Length(Data) +1 -pad, pad);
//oder
SetLength(Data, Length(Data) -pad);
//oder
Data := Copy(Data, 1, Length(Data) -pad);
-
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by KodeZwerg,
24. Mai 2018
Ok gammatester, nur für Dich um Dir zu zeigen was da so passiert bei mir mit Deiner Änderung in Deiner letzten Variante.
Ich habe nun zwei Checkboxen drinn, GUI mini aufgewertet.
Checkbox1 ist dein Padding, On/Off.
Checkbox2 ist mein Trim, On/Off.
GUI ist diesmal beschriftet.
function DecryptText():String;
var Cipher : TDCP_rijndael;
Data, Key, IV : ansistring;
index,...
-
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by KodeZwerg,
24. Mai 2018
?
Wenn man natürlich stur seinen Willen haben möchte ohne überhaupt mal das andere ausprobiert zu haben.
Nutze mein .exe oder .dpr und bau eigenes .exe
Bedien es wie ich schrieb
Was soll bitteschön Schrott sein?
Hättest Du geschrieben das meine Methode Schrott ist weil sie führende oder abschließende Leerzeichen entfernt, da hät ich Dir Recht gegeben aber Grundlos so etwas zu Schreiben. Ich...
-
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by KodeZwerg,
24. Mai 2018
Das tat ich.
Der Rest vom Quelltext steht in Post #1 vom TE.
edit
Im Anhang der Source zum Sample
-
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by KodeZwerg,
24. Mai 2018
Im Anhang ein dreckiges aber lauffähiges Beispiel.
Umgang:
Bei Erststart tippe da wo Edit1 steht etwas ein was Du verschlüsseln magst
Drücke Knopf Button1
In Memo erscheint der Base64 String kopiere ihn
Ersetze Edit1 mit dem String
Drücke Knopf Button2
Klappts?
-
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by KodeZwerg,
24. Mai 2018
Ersetze bei Dir form1.Memo1.Lines.Add(Data);
mit form1.Memo1.Lines.Add(Trim(Data));
und dann passt es.
In der DecryptText() funktion, falls das unklar ist.
ps: Ich habe die Sourceforge Variante genommen.
pps: Der Fehler ist das der Speicher überschrieben wird aber keine neue Länge bekommt.
-
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by KodeZwerg,
24. Mai 2018
DCPcrypt von welcher Quelle?
eingestelltes Original von David A.W. Barton
von Warren Postma
von Multiple User