entschlüsseln verwenden rijndael. DCPcrypt Bibliothek. Delphi

Ich habe einen IV (Initialisierungsvektor) und Schlüssel, auch ein Kryptogramm. Muss ich nur noch entschlüsseln des kryptogramms. Aus dem internet fand ich DCPcrypt Kryptographische Komponente-Bibliothek v2.
So, nun habe ich Sie erreicht, um die Codierung.

procedure TForm1.Button1Click(Sender: TObject);
var
key:Ansistring;
ivector,indata,outdata:string;
begin
  key := 'abc12345679';  //<--key for decrypting
  dcp_rijndael1.InitStr(key,TDCP_sha1);  //I don't understand why i need hashing!?

  ivector := edit2.Text;  //initialization vector
  dcp_rijndael1.SetIV(ivector);
  dcp_rijndael1.BlockSize := Length(ivector); //'This variable should be the same size as the block size' says the documentation

  indata := edit1.Text;  //getting the cryptogram

  dcp_rijndael1.CipherMode := cmCBC;

  dcp_rijndael1.DecryptCBC(indata,outdata,Length(indata));
  label3.Caption := outdata;                                    //output to label
end;

Dieser code gibt mir einen Fehler aus. "Lokale Variablen" - Fenster zeigt indata, outdata, ivector, wichtige Variablen wie 'Unzugänglich Wert'.
Oder vielleicht gibt es einen anderen Weg, es zu tun. Dies scheint ziemlich geradlinig, aber.
Vielen Dank im Voraus.

Nach Wodzu Hilfe:
Beachten Sie, dass ich empfangen, entschlüsselt string base64-kodierter, so dass ich denke, ich muss es zuerst zu Dekodieren.

var
  Form1: TForm1;
  StringToEncrypt, StringToDecrypt, DecryptedString: string;
  vector:string;

procedure TForm1.Button2Click(Sender: TObject);
begin
  vector := '1234567812345678';        //Length 16
  stringtodecrypt := '2YOXZ20Z7B3TRI/Ut8iH/GpEZWboE2tnnWU';
  stringtodecrypt := Decode64(stringtodecrypt);  //after encrypted string is sent over internet, it is encoded with base64, so i need to decode it.
  SetLength(DecryptedString, 36);  //36 is the length of the output
  DCP_rijndael1.Init('MyKey:128bit', 128, @Vector[1]);
  DCP_rijndael1.SetIV(Vector);
  DCP_rijndael1.BlockSize := Length(Vector); //Should this be also 128
  DCP_rijndael1.DecryptCBC(StringToDecrypt[1], DecryptedString[1], Length(StringToDecrypt)*2);  //Here i get hieroglyph as a result. Why is length multiplied with 2?
  decryptedstring := Encode64(decryptedstring);  //Here i get less hieroglyph, but would like to get correct decrypted string. I doubt the necessity of encoding

  ShowMessage(DecryptedString);

end;

Kann ich nicht machen, diesen code zu entschlüsseln, die Daten, die jemand anderes verschlüsseln (mit PHP) (nach dem verschlüsseln der Daten ist kodiert mit base64).
Hinweis! verschlüsselt text-Länge ist nicht das gleiche wie der entschlüsselte text Länge!

Und die exakt Fehlermeldung?
Ich sehe nicht ein Konstruktor für die dcp_rijndael1 überall in Ihrem code, das könnte das problem sein. Zu den lokalen Variablen müssen Sie zum deaktivieren der compiler-Optimierung.
dieser Fehler steht nicht in Zusammenhang mit der Entschlüsselung. Nach dem Aufruf DecryptCBC Methode 'indata', 'outdata' und andere Variablen zu "unzugänglich Wert', wenn ich also versuchen, die Beschriftung mit einem unzugänglichen Variablen bekomme ich Fehler. Ich denke, ich mache etwas falsch, also die Zuordnung von Daten auf Etiketten ist ein kleines problem.
Vereinfachung der tatsächlichen Verhalten, kann man sagen debugger zeigt "unzugänglich Wert" - label für Variablen der linker bestimmt sind, nicht verwendet werden, nachdem die Ausführung zeigen. Aber wenn Sie verwenden Sie in Ihrem code danach, der debugger wird Ihnen zeigen, den Wert für diese Variablen. Also, wenn Sie wollen, um zu sehen, dass Wert im debug-Zeit, nur sind einige code, der verwendet den Wert (z.B. ein ShowMessage oder Zuweisung als Wert an einer öffentlichen Eigenschaft oder Globale variable.

InformationsquelleAutor Peacelyk | 2010-11-20

Wenn Ihr Probleme mit dem code, den ich gepostet bevor Sie versuchen, diese version mit streams.

procedure TForm1.Decrypt(const aKey: AnsiString; aPVector: Pointer;
  var aInData, aOutData: TMemoryStream);
var
  Cipher : TDCP_rijndael;
begin
  Cipher := TDCP_rijndael.Create(nil);
  try
    Cipher.Init(aKey, Length(aKey)*8, aPVector);
    Cipher.CipherMode := cmCBC;
    Cipher.DecryptStream(aInData, aOutData, aInData.Size);
  finally
    Cipher.Burn;
    Cipher.Free;
  end;
end;

und hier ist, wie es zu benutzen:

var
  din, dout: TMemoryStream;
  Vector: array of byte;
begin


SetLength(Vector, 16);

Vector[1] := 1;
Vector[2] := 2;
Vector[3] := 9;
Vector[4] := 0;
Vector[5] := 6;
Vector[6] := 1;
Vector[7] := 6;
Vector[8] := 7;
Vector[9] := 5;
Vector[10] := 8;
Vector[11] := 3;
Vector[12] := 1;
Vector[13] := 7;
Vector[14] := 3;
Vector[15] := 3;
Vector[16] := 8;

din := TMemoryStream.Create;
dout := TMemoryStream.Create;
try
  din.LoadFromFile('Encrypted.DAT');
  din.Position := 0;
  decrypt('4tkF4tGN1KSiwc4E', addr(Vector[1]), din, dout);
  dout.SaveToFile('Decrypted.DAT');
finally
  din.Free;
  dout.Free;
end;

und eine version für Streicher:

procedure TForm1.Decrypt(const aKey: AnsiString; aPVector: Pointer;
   const aInData: AnsiString; var aOutData: AnsiString);
var
  Cipher : TDCP_rijndael;
begin
  Cipher := TDCP_rijndael.Create(nil);
  try
    Cipher.Init(aKey, Length(aKey)*8, aPVector);
    Cipher.CipherMode := cmCBC;
    aOutData := Cipher.DecryptString(aInData);
  finally
    Cipher.Burn;
    Cipher.Free;
  end;
end;

wenn Sie weitere Hilfe benötigen lass es mich wissen.

Vielen Dank für Ihre Antwort. Hier ist die Ausgabe die ich bekomme: 9¾i«å}Źäz ½ļqv$8)¶L"c...„_r™*+;&čJeFP÷—&†“ =$¶_ĮŌĪ¢G(IL35. Gut, es ist entstellt, ein wenig, weil ich es kopiert hier. Die Eingabe wird codiert in base64 kodiert ist, sollte es nicht dekodiert werden erste? Warum bekomme ich so ein komisches Ergebnis? die Ausgabe kann nicht sein, dass schon lange! es werden nur die Hälfte der verschlüsselten string. Irgendwelche Ideen?
dies ist das Ergebnis, das ich bekomme, wenn ich die Verwendung von string-version der Entschlüsselung: ģ±aFżdolTråY|ÓĶä H5÷«f:ō—ėŅq—qĄ?¾½äßS†O. Warum komme ich völlig anderes Ergebnis bei Verwendung der verschiedenen Ansätze?
Können Sie einige verschlüsselte Daten, Schlüssel, iv und was sollte es entschlüsseln zu können. Dann kann ich sehen, was passiert.
Mike, vielen Dank für all die Antworten. Ich fand cityinthesky.co.uk/cryptography.html einen link, wo es eine demo für diejenigen, die versuchen zu entschlüsseln Kryptogramm wurde erstellt von PHP. Ich habe es jetzt funktionieren!!!

InformationsquelleAutor Mike Taylor

Ich bin mit dieser Bibliothek selbst, aber ich bin ver - /entschlüsseln von strings in andere Art und Weise.
Der Grund, der Sie immer fehlerhaft ist, dass Sie auf eine falsche Art der Daten. Übergeben Sie die Saiten, aber Sie sollten übergeben werden einem Puffer von Daten zu entschlüsseln.

In dieser Codezeile:

dcp_rijndael1.DecryptCBC(indata,outdata,Length(indata));

Dieser Methode ist nicht zu erwarten, dass die Saiten.
Ändern Sie Ihren code wie folgt:

procedure TForm1.Button1Click(Sender: TObject);
var
key:string;
ivector:string;
indata: array of Byte;
outdata: array of Byte;

begin
  key := 'abc12345679';  
  dcp_rijndael1.InitStr(key,TDCP_sha1);  

  ivector := edit2.Text;  
  dcp_rijndael1.SetIV(ivector);
  dcp_rijndael1.BlockSize := Length(ivector); 

 // indata := edit1.Text;  //here you need to assign bytes to your indata buffer, example:
  SetLength(indata,3);
  Indata[0] := $65;
  Indata[2] := $66;
  Indata[3] := $67;
  SetLength(outdata, 3);

  dcp_rijndael1.CipherMode := cmCBC;

  dcp_rijndael1.DecryptCBC(indata[0],outdata[0],Length(indata));
//  label3.Caption := outdata; //this will not show you anything I guess
end;

Nach edit:

Beispiel für WideStrings:

unit Unit14;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DCPcrypt2, DCPsha1, DCPblockciphers, DCPrijndael, StdCtrls;

type
  TForm14 = class(TForm)
    btnEncrypt: TButton;
    DCP_rijndael1: TDCP_rijndael;
    DCP_sha11: TDCP_sha1;
    btnDecrypt: TButton;
    procedure btnEncryptClick(Sender: TObject);
    procedure btnDecryptClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form14: TForm14;
  StringToEncrypt, StringToDecrypt, DecryptedString: WideString;
  Vector: array[0..3] of Byte;
implementation

{$R *.dfm}

procedure TForm14.btnEncryptClick(Sender: TObject);

begin
  SetLength(StringToDecrypt, 16);
  StringToEncrypt := 'Encrypt me babe!';
  DCP_rijndael1.Init('1234', 32, @Vector[0]);
  DCP_rijndael1.SetIV(Vector);
  DCP_rijndael1.BlockSize := 4;
  DCP_rijndael1.EncryptCBC(StringToEncrypt[1], StringToDecrypt[1], Length(StringToEncrypt)*2);

end;

procedure TForm14.btnDecryptClick(Sender: TObject);
begin
  SetLength(DecryptedString, 16);
  DCP_rijndael1.Init('1234', 32, @Vector[0]);
  DCP_rijndael1.SetIV(Vector);
  DCP_rijndael1.BlockSize := 4;
  DCP_rijndael1.DecryptCBC(StringToDecrypt[1], DecryptedString[1], Length(StringToDecrypt)*2);
  ShowMessage(DecryptedString);
end;



procedure TForm14.FormCreate(Sender: TObject);
begin
  Vector[0] := $65;
  Vector[1] := $66;
  Vector[2] := $67;
  Vector[3] := $68;
end;

end.

Hoffe, das hilft.

Ja, aber wie kann ich für Menschen lesbaren format aus oder? Der outdata hat die gleiche Länge wie indata, aber die verschlüsselten Daten unter Umständen nicht so lange.
Wenn Sie davon ausgehen, dass ein Zeichen kodiert ist, mit einem byte, als die Konvertierung ist ziemlich einfach. Sie könnten versuchen, wie @MikeT vorgeschlagen, um zu verwenden ein AnsiString als outdata, oder Sie können konvertiert die bytes in Zeichen Händisch: YourString[1] := Char(outdata[0]) und so eine. Ich verstehe nicht, den zweiten Teil Ihres Kommentars. Ist das nicht die indata = verschlüsselte Daten?
der verschlüsselte string ist 64 Zeichen lang, aber die entschlüsselten string 36 Zeichen lang sein. wenn ich konvertieren entschlüsselt hex-zahlen (die ich bekommen 64) auf char bekomme ich ein richtiger Mischmasch aus ihm heraus. Was muss ich tun, wenn die Zeichen codiert wurde 2 bytes?
Ich habe eine komplette Lösung für Sie, mit einem Beispiel von WideStrings.
Danke für deinen code Wodzu. Ich versuchte es und es funktioniert gut, wenn ich auch verschlüsseln und dann entschlüsseln. Aber wenn ich versuche, Daten zu entschlüsseln, die nicht verschlüsselt ist, indem dieser code dann bekomme ich als seltsame Zeichenfolge verschlüsselt. ich muss das verschlüsselt werden, so etwas wie 'PJ7z38g2xAAwFhDUFUBB5QfzPJcr2D5anny6/1nArDWTVavcPiokTawquV+1gE8I" was string-Typ muss ich verwenden, um das zu bekommen? Was ist der zweite parameter in DCP_rijndael1.Init () - Funktion? Und obwohl verschlüsselt ist ~64 char lange entschlüsselt ist ~35.
Es ist impossile zu sagen, warum man komisch Ausgabe, wenn ich nicht weiß, wie Sie die Verschlüsselung der Eingabedaten. Wenn Sie zeigen den code, in dem Sie Ihre Dateien verschlüsseln, dann könnte ich in der Lage sein zu helfen.

InformationsquelleAutor Wodzu

0

Haben Sie einige Probleme mit der demo, die Sie zur Verfügung gestellt:
- http://www.cityinthesky.co.uk/files/dcpdemos.zip
Außerdem haben Sie versucht, die anderen Bibliotheken, die könnte die Sache aufzuklären:
- Freie Verschlüsselungs-Bibliothek für Delphi
- Wenn Sie mit Delphi .NET: Hilfe Rijndael-Algorithmus in Delphi 2007. Net
- Erstens, ich verstehe nicht, warum hash benötigt, um Daten zu entschlüsseln? Ich habe iv,Schlüssel und das Kryptogramm. Sollte ich nicht verwenden, diese als eine Art Parameter zu entschlüsseln? Zweitens, die Krypto-Methode CBC. Dank
- Ich bin nicht so vertraut mit AES. Ich habe es ein paar mal vor ein paar Jahren und ich erinnere mich, es sind Algorithmus-Einschränkungen, die Sie erwähnen (wie IV erfordern eine bestimmte Länge, etc.). Wenn Sie wirklich wollen wissen, warum Sie brauchen, um dieses oder jenes zu tun oder sich Fragen, warum der Algorithmus oder dieses konkreten Umsetzung führt einige Initialisierungen (hashing, wie Sie es nennen), dann hätte Sie Lesen ein bisschen mehr auf das Thema. Aus der Sicht des Anwenders - ich bearbeitet die post zwei weitere Beiträge beschreiben die Bibliotheken für Delphi, die helfen könnten, clearing Dinge.
InformationsquelleAutor icyrock.com
0

Ich die DCPCrypt Komponenten regelmäßig und geschrieben haben, eine wrapper-Klasse für Sie zu machen es einfacher zu bedienen.

Zunächst ich nehme an, Sie haben, ließ Sie die Komponente auf die form, da sehe ich keinen Konstruktor/Destruktor aufgerufen wird, oder eine lokale Instanz der block-cipher-Klasse, wenn dies nicht der Fall ist das erste problem, ist das.

Wenn Ihre lokalen Variablen gezeigt werden, wie unzugänglichen stellen Sie sicher, dass die Anwendung erstellt wurde, die in debug und ohne Optimierung, dies kann verhindern, dass der debugger beobachten Sie die Variablen.

Letzte hier ist etwas code, der helfen kann, ich habe keine verschlüsselten Daten, so kann nicht testen, ich habe noch nie verwendet die rijndael-Chiffre so nicht bieten jede Hilfe, die es gibt.
```
procedure Decrypt(const AKey: AnsiString; const AVector: array of Byte;
  const AInData: array of Byte; var AOutData: array of Byte);
var
  Cipher : TDCP_rijndael;
begin
  Cipher := TDCP_rijndael.Create(nil);
  try
    Cipher.Init(AKey, Length(AKey)*8, @AVector[0]);
    Cipher.CipherMode := cmCBC;
    Cipher.DecryptCBC(AInData[0], AOutData[0], Length(AInData));
  finally
    Cipher.Burn;
    Cipher.Free;
  end;
end;
```
IN diesem code der vector ist ein dynamisches array und die Länge festgelegt und mit den Daten ausgefüllt, vor dem Aufruf der Prozedur, auch der Schlüssel ist ein string, der entweder ein hash-digest oder eine einfache Taste, je nachdem, wie die Daten verschlüsselt waren.

warum wird eine hash erforderlich ist, dass ich glaube, es ist um die Sicherheit zu erhöhen, so dass es schwierig für Hacker zu entschlüsseln dieser Daten.
- haben Sie es getestet unter Delphi 2009 oder höher? Ich bin nicht sicher, aber es könnte nicht funktionieren, für die unicode-Zeichenfolgen.
- sehr guter Punkt, am besten mit byte-array oder AnsiString für die AInData und AOutDATA. Ich bin immer noch mit Delphi 2007.
- Mike, ich habe versucht, Ihren code zu Entschlüsseln('4tkF4tGN1KSiwc4E',Vektor,toDecrypt^,DecryptedData); Arten: toDecrypt - Zeiger auf byte array, DecryptedData - empty byte array, Vektor - byte-array. Allerdings bekomme ich error: EAccessViolation...
- Vektor Wert ist (1, 2, 9, 0, 6, 1, 6, 7, 5, 8, 3, 1, 7, 3, 3, 8)
- Korrigiert habe ich die code-Beispiel für Sie, aber stellen Sie sicher, dass die Länge des dynamischen arrays, bevor Sie übergeben Sie an die decrypt Prozedur, dies kann eine Zugriffsverletzung verursachen, wenn Sie nicht. ich gehe davon aus, dass die Länge der entschlüsselten Daten ist die gleiche wie die verschlüsselten Daten und die Zuweisung in ein und demselben Raum beide arrays.
- Siehe neue Antwort, die ich geschrieben
- Das ist der Fall, dass die Daten entschlüsselt und die verschlüsselten Daten sind nicht die gleiche Größe haben. verschlüsselte string ist 64 char aber entschlüsselt werden soll ~47 oder so, entschlüsselt Größe variieren.
InformationsquelleAutor Mike Taylor

Schreibe einen Kommentar

Du musst angemeldet sein, um einen Kommentar abzugeben.