adam - Settings ?

oli

Hallo interessiert das noch wen?
Ich arbeite gerade an einen Konverter für Adam Settings. Wenn mir jemand die Checksummen Berechnung für MD5 in TP Quellen besorgen kann???

cu Oli

happy_maxx · **Registriert:** Mi 22. Jun 2005, 01:03 **Beiträge:** 2

hallo!

http://pascal.sources.ru/crypt/md5asm32.htm
http://www.ntecs.de/old-hp/s-direktnet/Data/Michael/Kryptologie/OnewayHashFunctions/
http://pascal.sources.ru/crypt/ -> tp6md5.zip (unteres Drittel der Seite)

mfg

oli

Спасибо

cu Oli

oli

Der letzte Link war gut! Ließ sich einfach in TPW15 verwenden. Jetzt muß ich nur schauen ob die Summe stimmt.
cu Oli

happy_maxx · **Registriert:** Mi 22. Jun 2005, 01:03 **Beiträge:** 2

охотно происходят :mrgreen:

mfg
markus

oli

hm irgend was stimmt noch nicht, die zurückgegebene MD5 ist falsch. Also stimmt jedenfalls nicht mit der von lostech Programm (CheckSum32) berechneten MD5 überein...

http://lostech.lo.funpic.de/download/CheckSum32_V02.jpg

cu Oli

Lostech · **Registriert:** Di 10. Okt 2000, 22:00 **Beiträge:** 2831

Check doch mal quer mit Hexworkshop welche MD5 dann rauskommt.

oli

Im Büro habe ich leider kein Hexworkshop, da muß dein Tool reichen.
Ich mußte ein paar Compilerschalter von TP 6.0 raus löschen, kante TPW nicht, vielleicht war es das.

Code:

{$A-,B-,D-,E-,F-,G-,I-,L-,N-,O-,R-,S-,V-,X-}

E und O geht nicht in TPW...
Die File ist im Moment des MD5 noch in Bearbeitung, weil die MD5 ja hinten angehängt wird, ob das ein Problem sein kann?

Code:

procedure md5digest(var message; len: word; var d: digest);
    {- digest a message with length len bytes, put the result in d }

was bedeutet dieser 'len: word'? Welcher Wert muß da stehen? Die Summe ändert sich wenn ich diesen Wert verändere!

cu oli

Lostech · **Registriert:** Di 10. Okt 2000, 22:00 **Beiträge:** 2831

LEN=LENGTH=Anzahl der Bytes von Position 0 an, die mit MD5 berechnet werden sollen.

Das bedeutet, das du den MD5 nicht über die komplette Dateilänge drüberziehen solltest, sondern nur über die Dateilänge abzüglich der Bytes, die für MD5 am Ende des Binary reserviert sind.

oli

Dann geht das ganze garnicht. Wenn len die anzahl der Byte ist und word ist kann ich max. 0xFFFF auf MD5 berechnen? Zuwenig! Oder kann ich das Blockweise berechnen und die einzelnen MD5 irgendwie zusammen rechnen?
cu Oli

Lostech · **Registriert:** Di 10. Okt 2000, 22:00 **Beiträge:** 2831

Warum änderst du denn nicht einfach den MD5 Funktionsauftruf z.B. "len: word" -> "len: integer"

Code:

procedure md5digest(var message; len: word; var d: digest);

in

Code:

procedure md5digest(var message; len: integer; var d: digest);

oli

Weil es dann ein System Fehler gibt. 314730 ist auch nicht mehr Integer sondern LongInt.
Ich habe es mit 32byte Files probiert, da stimmt die Summe auch nicht???
cu oli

Lostech · **Registriert:** Di 10. Okt 2000, 22:00 **Beiträge:** 2831

In der Funktion müssen die nachfolgenden Variablen und Funktionen ebenfalls auf den LongInt Datentyp angepasst werden (probieren mußt du selber, da ich kein TP einsetze, aber ich denke so sollte es hinhauen)

Hier die Änderungen:
len: word -> len: longint
i: word; -> i: longint;
x[14] := longint(len) shl 3; -> x[14] := len shl 3;

Code:

  procedure md5digest(var message; len: longint; var d: digest);
    const ctxtini: digest =
     ($01,$23,$45,$67,$89,$ab,$cd,$ef,$fe,$dc,$ba,$98,$76,$54,$32,$10);
    var xx: array[0..63] of byte absolute x;
   p: pointer;
   i: longint;
  begin
    move(ctxtini,ctxt,16);
    p := @message;
    i := len;
    while i >= 64 do
      begin
   move(p^,x,64);
   transform;
   inc(word(p),64);
   dec(i,64)
      end;
    move(p^,x,i);
    xx[i] := $80;
    if i < 56
      then fillchar(xx[i+1],55-i,#0)
      else
   begin
     fillchar(xx[i+1],63-i,#0);
     transform;
     fillchar(x,56,#0)
   end;
    x[14] := len shl 3;
    x[15] := 0;
    transform;
    move(ctxt,d,16)
  end;

[edit]Hatte vergessen die LongIntÂ´s im Source zu ändern[/edit]

oli

Klappt so nicht kommt ein Systemfehler, denke beißt sich mit der 16bit Umgebung. Es gab mal einen 32bit patch für TPW, finde ich aber im Internet nicht mehr :cry:

Grundsätzlich klappt es aber auch nicht mit dem Ursprünglichen code und kleinen Files die max. nur word Länge haben. Dort ist die MD5 auch falsch. Deswegen überlege ich das mal selber zu progen, oder die MD5 vorerst raus zu lassen. Das Tool ist ja eh nicht so für DAUs da in DOS.
cu Oli

Lostech · **Registriert:** Di 10. Okt 2000, 22:00 **Beiträge:** 2831

Sonst binde doch mal eine der vielen MD5.DLLs ein.

P.S.:
Ich hatte gestern im Code vergessen die Änderungen einzubauen und erst gestern Mittag da nochmal editiert. Nicht, daß du morgens den falschen Code per Copy&Paste verwendet hast.

http://satellite-board.de

adam - Settings ?

Wer ist online?