CrackMe® Practices for Newbies
Project 11: DREADX by noos

Re: Joseph's Threed The key generatingg Code
Tuesday, 27-Apr-1999 20:34:20

    Greetings,

    The following code is the Basic representation of access code generating routine in Dreadx. It will generate a 50 byte key from your input which is checked against a hard coded 50 byte block. What combination of characters will generate the correct code? Thayt is the remaining question to answer. A careful analysis pf the code and the correct 50 byte block might lead us to the crrect answer.

    First the code:


    Private Sub Command1_Click()
    Key$ = Text1.Text
    Lenk = Len(Key$)

    For x = 1 To 50 - Lenk
    n = Asc(Mid$(Key$, x, 1)) * Asc(Mid$(Key$, x + 1, 1))
    n = n Mod 38
    If n < 26 Then
    n = n + 65
    Else
    n = n + 70
    End If
    Key$ = Key$ + Chr$(n)
    Next x
    Text2.Text = Key$

    n = 1
    For x = 1 To 50
    n = n + Asc(Mid$(Key$, x, 1))
    Next x
    nm = n Mod 49

    n = 0
    For x = 1 To nm + 1
    n = n + Asc(Mid$(Key$, x, 1))
    Next x
    n = n Mod 2 ^ 8

    nk = Asc(Mid$(Key$, nm + 1, 1))
    nk = nk Xor n
    nk = nk Mod 2 ^ 8

    For x = 1 To 48
    nk = nk + Asc(Mid$(Key$, x + 1, 1)) + 1
    nk = nk Mod 2 ^ 8
    nkt = nk
    nk = nk + Asc(Mid$(Key$, x + 2, 1))
    nk = nk Mod 2 ^ 8
    nkt = nkt Xor nk
    Code$ = Code$ + Chr$(nkt)
    Next x

    nk = nk + Asc(Mid$(Key$, 50, 1))
    nk = nk Mod 2 ^ 8
    nkt = nk
    nk = nk + Asc(Mid$(Key$, 3, 1))
    nkt = nkt Xor nk
    Code$ = Code$ + Chr$(nkt)

    nk = nk + Asc(Mid$(Key$, 3, 1))
    nk = nk Mod 2 ^ 8
    nkt = nk
    nk = nk + Asc(Mid$(Key$, 4, 1))
    nk = nk Mod 2 ^ 8
    nkt = nkt Xor nk
    Code$ = Code$ + Chr$(nkt)
    Text2.Text = Code$

    End Sub


    The correct 50 byte access code:

    D0 6F Bf CC C7 31 B3 C1 EA 99 D7 72 C2 AF DE A0
    4D A6 B0 EA 90 A0 47 96 98 72 D3 51 B2 41 60 E6
    7F A4 CA 5F A0 C1 B3 73 9E 71 49 CD C3 CE B0 77
    B0 F3


    Best regards,

    Joseph

    Joseph


Message thread:

Joseph's Threed Got it (Joseph) (27-Apr-1999 06:18:27)

Back to main board