TJvVigenere Fehler / Bedienung wie??

[Die Muhkuh]

Hi D-User,

lasst Dir doch mal die beiden Strings ausgeben, anstatt nur die Anzeige "Fehler!!"

Desweiteren wäre es nett, wenn Du Delphi-Code in die [ delphi][ /delphi] Tags (ohne die Leerzeichen) einschließt, dann stellt die Forensoftware das gleich mit Syntax-Highlighting dar.

Und noch was zum Code, Du solltest einen Resourcenschutzblock verwenden:

Delphi-Quellcode:

procedure TForm1.Button8Click(Sender: TObject);
var
  i: integer;
  VigenereCipher : TJvVigenereCipher;
  key,EncodedString, DecodedString: AnsiString;
  AsciiStr: AnsiString;
begin
  key := 'fwe1';
  AsciiStr := '';

  for i := 133 to 183 do
    AsciiStr := AsciiStr + char(i);

  VigenereCipher := TJvVigenereCipher.Create( nil );
  try
    EncodedString := VigenereCipher.EncodeString(key,AsciiStr );
    DecodedString := VigenereCipher.DecodeString(key,EncodedString );
  finally
    VigenereCipher.Free;
  end;

  // Test:
  if AsciiStr <> DecodedString then
    ShowMessage('Fehler!!');
end;