Hi,

erstmal möchte ich euch sagen das dieses board mir schon bei dem ein oder anderen problem sehr geholfen hat. Auch ohne nachfragen. Aber nun bin ich an einem punkt, wo ich nicht weiterkomme und doch mal fragen muss.

Ich habe folgendes problem. Und zwar möchte ich einen IRCClient machen der auch Fish verschlüsseln und entschlüsseln kann. Ich hoffe es kann mir einer weiterhelfen.

Vielen dank im voraus

Fish? BlowFish und Diffie-Hellman meinst Du?
Such hier im Forum mal nach DEC, da dürftre das meiste drin sein.

Sherlock

Nein, leider nicht. Das habe ich schon probiert. Es pass nicht. Sonst würde ich ja nicht fragen

Ich habe mir mal die Source von DEM Fish vorgenommen. Wenn einer 2009 drauf hätte könnte man eine unit erstellen.

Die URL zu diesem Fish ist http://fish.secure.la/ Dann oben auf Fish klicken. Normalerweise wird da die mirc.exe gepacht.

Da habe ich auch die Source her, leider in C. Ich habe aber schon die grundfunktionen extrahiert. Blos bin ich leider nicht in der lage eine unit davon zu erstellen.

Oder habe ich das DEC falsch angewendet? Wär toll wenn dort mal einer schauen könnte.


Danke und Gruss

Nachtrag:

Im irc sieht das word text wie folgt aus

11HWp1aS5fm.

Der Key ist testkey

Bei dem Encrypt('text','testkey'); bekomme ich leider folgendes.

j6/LrRj4EbYWho+gC9n38WY81JFOLmIgEHqkOQ==

Gruss

PS.: Das ist der Code dazu. Habe ich hier aus dem Board.

zusammenfalten · markieren

Delphi-Quellcode:

function Encrypt(const AText: String; const APassword: String): String;
var
  ASalt: Binary;
  AData: Binary;
  x :String;
begin
  with ValidCipher(ACipherClass).Create, Context do
  try
    ASalt := RandomBinary(16);
    Mode := ACipherMode;
    Init(ValidHash(AHashClass).KDFx(APassword, ASalt, KeySize, TFormat_Copy, AKDFIndex));
    AData := ASalt + EncodeBinary(AText) + CalcMAC;
    Result := ValidFormat(ATextFormat).Encode(AData);
  finally
    Free;
    ProtectBinary(ASalt);
    ProtectBinary(AData);
  end;
end;

Ich antworte mir mal selber

man muss die fish.dll laden und den einsprung von incoming und outgoing hohlen. Das was ich im moment noch nicht weiss ist, wie welche parameter übergeben werden müssen.

Da ich im moment noch an was anderem bin dauert es vielleicht noch ein bissl. Sobald ich das fertig habe werde ich es hier mal hochladen. Weil ich habe gesehen das ich nicht der einzige mit dem prob bin.

Gruss

Hi,

wie versprochen die antwort.

Nachdem ich nun ca. 1,5 stunden getraced habe dachte ich "googlst du nochmal". Und nun für euch die lösung.

http://www.donationcoder.com/Softwar..._otherlang.php und zwar das file ircBlowFish-Delphi.zip laden.

Gruss

Suchbegriffe: irc client fish crypted fish.dll

Kleine ergänzung. Im decrypt ist ein kleiner fehler. In zeile 181 der ircblowfish.pas sollte man unbedingt ein Trim reinmachen. Sonst hängen am String der zurück kommt #0 (nullen) dran.

Result:= Trim(dText);

Dann noch oben bei uses die Sysutils mit rein. Schon ist der String sauber.