Entwickler-Ecke

Algorithmen, Optimierung und Assembler - DES Verschlüsselung - DCPcrypt


Julian W. - Mo 18.09.06 15:40
Titel: DES Verschlüsselung - DCPcrypt
Hallo leute!
Ich würde gerne einen DES-String entschlüsseln.. Ich habe mir dazu DCPcrypt bei Torrys gezogen, aber wenn ich jetzt einen Sting entschlüsseln/verschlüsseln will, kommt da ne Fehlermeldung dcp_des wurde nicht initialisiert. Also habe ich mal in der Hilfe nachgeschaut und da ist ein Beispiel zu rc4. Naja, da wird das irgendwie mit TDCP_sha1 initialisiert, was ich nicht verstehe, da sha1 ja auch ne verschlüsselungsmethode ist.. Ich kann ja mal den Beispiel Code posten, vielleicht kann ja jemand was damit anfangen..


Delphi-Quelltext 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
 
  procedure TForm1.btnEncryptClick(Sender: TObject);
  var
    i: integer;
    Cipher: TDCP_rc4;
    KeyStr: string;
  begin
    KeyStr:= '';
    if InputQuery('Passphrase','Enter passphrase',KeyStr) then  // get the passphrase
    begin
      Cipher:= TDCP_rc4.Create(Self);
      Cipher.InitStr(KeyStr,TDCP_sha1);         // initialize the cipher with a hash of the passphrase
      for i:= 0 to Memo1.Lines.Count-1 do       // encrypt the contents of the memo
        Memo1.Lines[i]:= Cipher.EncryptString(Memo1.Lines[i]);
      Cipher.Burn;
      Cipher.Free;
    end;
  end;

(*DCPcrypt is copyrighted © 1999-2002 David Barton.
All trademarks are property of their respective owners.*)


MfG Julian


TheWhitePhoenix - Mi 20.09.06 14:02
Titel: RE: DES Verschlüsselung - DCPcrypt
Hallo,

SHA ist keine Verschlüsselung sondern ein Hash-Summen verfahren...

auf dein beispiel bezogen würde das dann etwa so aus sehen:

Delphi-Quelltext 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
 
 procedure TForm1.btnEncryptClick(Sender: TObject);
  var
    i: integer;
    Cipher: TDCP_des;
    KeyStr: string;
  begin
    KeyStr:= '';
    if InputQuery('Passphrase','Enter passphrase',KeyStr) then  // get the passphrase
    begin
      Cipher:= TDCP_des.Create(Self);
      Cipher.InitStr(KeyStr,TDCP_sha1);         // initialize the cipher with a hash of the passphrase
      for i:= 0 to Memo1.Lines.Count-1 do       // encrypt the contents of the memo
        Memo1.Lines[i]:= Cipher.EncryptString(Memo1.Lines[i]);
      Cipher.Burn;
      Cipher.Free;
    end;
  end;

(*DCPcrypt is copyrighted © 1999-2002 David Barton.
All trademarks are property of their respective owners.*)


Julian W. - Fr 29.09.06 22:52
Mhm, ok, aber woher weiß ich, mit welchem Hash-Summen Verfahren ich das jetzt entschlüsseln muss? Also den 'Key' weiß ich, das ist immer die Drive-ID... Ich glaub, ich versteh da grad was nich xD Help wär n1


Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2025 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!