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
|