XProfan

- hier ist alles in einem Hauptprogramm
(sollte in Unterprogramme eingeteilt werden)
- hier besteht die Nachricht immer aus 8-Bit langen Zeichen
(MD5 kann normalerweise jede Bitsequenz verarbeiten)
- hier ist der Message-Puffer auf 4K begrenzt
- Nachricht_Laenge ist normal 64-Bit (hier 32-Bit)
es fehlt die Funktion LeftRotate
(1. Parameter der Wert&, 2. Parameter die zu rotierenden Bits)
hier die Message, die verwurstet werden soll: (53 Zeichen = 424 Bit)
Puffer: 4K + 512 Bit = 4096 + 64 Bytes = 4160
Declare Nachricht$,Nachricht#,Nachricht_Laenge&,Nachricht_Chars%,Nachricht_Block%
Dim Nachricht#,4160
Nachricht$ = Die XProfan-Foren-Community find ich einfach toll...
Char Nachricht#,0 = Nachricht$
Def Floor(1) (!(1) - Int(!(1)))
Def bit_length(1) Len($(1)) * 8
MD5# ist der 128-Bit-Puffer = (4 * 32 Byte)
r&[64] hier als Bereich (läßt sich leichter initialisieren) (ebenso k&[64])
Declare MD5#, r#, k#
Struct MD5Struct = h0&, h1&, h2&, h3&
Dim MD5#, MD5Struct
Initialisiere die Variablen
MD5#.h0& = $67452301
MD5#.h1& = $EFCDAB89
MD5#.h2& = $98BADCFE
MD5#.h3& = $10325476
Definiere r wie folgt:
Dim r#, 256
Long r#, 0 = 7, 12, 17, 22,  7, 12, 17, 22,  7, 12, 17, 22,  7, 12, 17, 22
Long r#,16 = 5,  9, 14, 20,  5,  9, 14, 20,  5,  9, 14, 20,  5,  9, 14, 20
Long r#,32 = 4, 11, 16, 23,  4, 11, 16, 23,  4, 11, 16, 23,  4, 11, 16, 23
Long r#,48 = 6, 10, 15, 21,  6, 10, 15, 21,  6, 10, 15, 21,  6, 10, 15, 21
Dim k#, 256
Verwende den binären Nachkommateil vom Sinus von Integerwerten als Konstanten:
für alle i von 0 bis 63

WhileLoop 0,63

    Long k#,&loop = Floor(abs(sin(&loop + 1)) * 2^32)

EndWhile

Vorbereitung der Nachricht Nachricht$:
Nachricht_Laenge& = bit_length(Nachricht$)
Nachricht_Chars% = Len(Nachricht$)
512 Bit (64 Byte) - 448 Bit (56 Byte) = 64 Bit (8 Byte)
erweitere message um bit 1
erweitere message um bits 0 bis Länge von message in bits ? 448 (mod 512)
- hier gemogelt: 1 + 7 Füllbits 0
Nachricht_Block% = Nachricht_Chars%
Byte Nachricht#,Nachricht_Block% = 1
Inc Nachricht_Block%

While (Nachricht_Block% mod 64) < 56

    Byte Nachricht#,Nachricht_Block% = 0
    Inc Nachricht_Block%

EndWhile

erweitere message um message_laenge als 64-Bit little-endian Integer
hier wird wieder gemogelt: 64-Bit Länge = obere 32-Bit auf Null, untere 32-Bit eintragen
Long Nachricht#,Nachricht_Block% = Nachricht_Laenge&
Long Nachricht#,Nachricht_Block%+4 = 0
Add Nachricht_Block%,8
Declare iBlock%,w&[16], i%, a&,b&,c&,d&, f&,g&, temp&
Bloecke% = Nachricht_Block% Div 64
Clear iBlock%
Verarbeite die Nachricht in aufeinander folgenden 512-Bit Blöcken:
für alle 512-Bit Block von message

Repeat

    unterteile Block in 16 32-bit little-endian Worte w(i), 0 ? i ? 15

    WhileLoop 0,15

        w&[&loop] = Long(Nachricht#,iBlock% + &loop)

    EndWhile

    Initialisiere den Hash-Wert für diesen Block:
    a& = MD5#.h0&
    b& = MD5#.h1&
    c& = MD5#.h2&
    d& = MD5#.h3&
    //Hauptschleife:
    für alle i von 0 bis 63
    Clear i%

    Repeat

        If (i% >= 0) and (i% <= 15)

            f& = (b& and c&) or ((not b&) and d&)
            g& = i%

        ElseIf (i% >= 16) and (i% <= 31)

            f& = (d& and b&) or ((not d&) and c&)
            g& = (5 * i% + 1) mod 16

        ElseIf (i% >= 32) and (i% <= 47)

            f& = b& xor c& xor d&
            g& = (3 * i% + 5) mod 16

        ElseIf (i% >= 48) and (i% <= 63)

            f& = c& xor (b& or (not d&))
            g& = (7 * i%) mod 16

        EndIf

        temp& = d& : d& = c& : c& = b&
        b& = LeftRotate((a& + f + Long(k#,i%) + w&[g&]), Long(r#,i%)) + b&
        a& = temp&
        Inc i%

    Until i% >= 64

    Addiere den Hash-Wert des Blocks zur Summe der vorherigen Hashes:
    MD5#.h0& = MD5#.h0& + a&
    MD5#.h1& = MD5#.h1& + b&
    MD5#.h2& = MD5#.h2& + c&
    MD5#.h3& = MD5#.h3& + d&
    Add iBlock%,64

Until iBlock% >= Nachricht_Block%

den MD5# Bereich ausgeben oder sichern
.......
Speicher aufräumen
Dispose r#
Dispose k#
Dispose Nachricht#
Dispose MD5#