ARC XT PRO [Help] произошла ошибка :D

[CraZy.]

привет ето опять я :D произошла ошибка в преддыдушей теме я выложил другую прогу :D

смотрел чегото нехватает, ето все от марихуаны :D

вот ето то программа :D
http://www.butel.nl/

http://www.butel.nl/download/arc96/arc96.zip

[CraZy.]

вот, я же говорил что прога сложная.

[CraZy.]

ну, некто не смог чтоли?

[lis84]

а в чём проблема собственнно? покупаешь ключ вводишь и всё работает.

ПыСы. выкладывай наработки, или топай в отдел заказов.

[lis84]

Кури p-code, вижл бэйсик, и разбирайся что делает этот код с введёнными ключами :)

'Data Table: 428190
Dim var_C4 As Variant
Dim var_118 As String
Dim var_11C As String
Dim var_140 As String
Dim var_114 As Variant
Dim var_1B4 As Variant
Dim var_1E0 As Variant
Dim MemVar_5F520A As Integer
Dim MemVar_5F5208 As Integer
loc_53F204: On Error Resume Next
For var_E4 = 1 To 7000: var_94 = var_E4 'Variant
loc_53F241: FnIntVar
loc_53F277: var_130 = Unknown_4BA4AC(CStr(Asc(CStr((CVar(Rnd(1)) * 1000)))), "89") 'Variant
Next var_E4 'Variant
loc_53F2C2: Me.TextBox.Text = CStr(Ucase(CVar(Me.TextBox.Text)))
loc_53F30B: Me.TextBox.Text = CStr(Ucase(CVar(Me.TextBox.Text)))
If (Me.TextBox.Text = "W96AAXFTHA18") Then '53F34A
loc_53F348: End
End If
If (Me.TextBox.Text = "WPXTAANQMW59") Then '53F373
loc_53F371: End
End If
If (Me.TextBox.Text = "HXTTAXCELU48") Then '53F39C
loc_53F39A: End
End If
If (Me.TextBox.Text = "WPXTAXGYUF36") Then '53F3C5
loc_53F3C3: End
End If
If (Me.TextBox.Text = "AA3ACANEFM17") Then '53F3EE
loc_53F3EC: End
End If
If (Me.TextBox.Text = "W96ABAUWNF86") Then '53F417
loc_53F415: End
End If
If (Me.TextBox.Text = "WPXTAAJFME36") Then '53F440
loc_53F43E: End
End If
If (Me.TextBox.Text = "WPXTAADTGE45") Then '53F469
loc_53F467: End
End If
loc_53F47F: Open CStr(MemVar_5F5348 & "\arclog.drt") For Append As 9 Len = &HFF
loc_53F497: var_11C = %x1 = Date$ & " "
loc_53F4E6: var_164 = CVar(%x2 & var_11C = Time$ & " " & Me.TextBox.Text & " " & Me.TextBox.Text) 'Variant
For var_194 = 1 To Len(var_164): var_174 = var_194 'Variant
loc_53F550: var_1A4 = var_1A4 & CVar(Chr$(CLng((Asc(Mid$(CStr(var_164), CLng(var_174), 1)) - &HC)))) 'Variant
Next var_194 'Variant
loc_53F574: Print 9, var_1A4
loc_53F57E: Close 9
If ((Len(Me.TextBox.Text) <> CLng(Me.global_60)) And (Len(Me.TextBox.Text) <> CLng((Me.global_60 - 1)))) Then '53F5ED
loc_53F5E2: UnLoad Me
loc_53F5EC: Exit Sub
End If
loc_53F620: Me.TextBox.Text = CStr(Trim(CVar(Me.TextBox.Text)))
loc_53F669: Me.TextBox.Text = CStr(Trim(CVar(Me.TextBox.Text)))
If (Len(Me.TextBox.Text) = &HC) Then '53F6EE
loc_53F6BD: var_140 = "general"
loc_53F6DE: var_130 = Unknown_4AA110("key1", Me.TextBox.Text) 'Variant
End If
loc_53F73B: var_114 = 2
loc_53F754: var_1B4 = 2
loc_53F76A: var_1E0 = CVar(Mid$(Me.TextBox.Text, 2, 2) & Mid$(Me.TextBox.Text, 6, var_114) & Mid$(Me.TextBox.Text, &HA, var_1B4)) 'String
loc_53F76D: var_1D0 = var_1E0 'Variant
If ((Len(Me.TextBox.Text) <> CLng(Me.global_60)) And (MemVar_5F520A = 0)) Then '53F832
If ((var_1F0 + 1) >= 3) Then '53F814
loc_53F800: MsgBox(var_200, 0, var_114, var_1B4, var_1E0)
loc_53F812: End
End If
loc_53F81B: CAdVar
loc_53F827: UnLoad var_210
loc_53F831: Exit Sub
End If
loc_53F843: Me.TextBox.Text = "0"
For var_230 = 1 To CVar((Me.global_60 - 1)): var_174 = var_230 'Variant
loc_53F8BC: var_114 = (var_174 * var_174)
loc_53F8C0: var_1B4 = (CVar(Asc(Mid$(Me.TextBox.Text, CLng(var_174), 1))) * var_114)
loc_53F8C4: var_1E0 = (CVar(Val(Me.TextBox.Text)) + var_1B4)
loc_53F8F4: Me.TextBox.Text = CStr((var_1E0 + ((var_174 + 2) * (var_174 * var_174))))
Next var_230 'Variant
If (CDbl((Val(CStr(var_1D0)) + Val(Me.TextBox.Text))) = CDbl(Me.global_56)) Then '53FE24
For var_2AC = 1 To CVar(Len(Me.TextBox.Text)): var_174 = var_2AC 'Variant
loc_53F9DE: var_284 = var_284 & Chr$(CLng((Asc(Mid$(Me.TextBox.Text, CLng(var_174), 1)) + &H1B)))
Next var_2AC 'Variant
For var_2CC = 1 To CVar(Len(Me.TextBox.Text)): var_174 = var_2CC 'Variant
loc_53FA69: var_284 = var_284 & Chr$(CLng((Asc(Mid$(Me.TextBox.Text, CLng(var_174), 1)) + &H1A)))
Next var_2CC 'Variant
For var_2EC = 1 To CVar(Len(Me.TextBox.Text)): var_174 = var_2EC 'Variant
loc_53FAF4: var_284 = var_284 & Chr$(CLng((Asc(Mid$(Me.TextBox.Text, CLng(var_174), 1)) + &H18)))
Next var_2EC 'Variant
For var_30C = 1 To CVar(Len(Me.TextBox.Text)): var_174 = var_30C 'Variant
loc_53FB7F: var_284 = var_284 & Chr$(CLng((Asc(Mid$(Me.TextBox.Text, CLng(var_174), 1)) + &H1D)))
Next var_30C 'Variant
For var_32C = 1 To CVar(Len(Me.TextBox.Text)): var_174 = var_32C 'Variant
loc_53FC0A: var_284 = var_284 & Chr$(CLng((Asc(Mid$(Me.TextBox.Text, CLng(var_174), 1)) + &H14)))
Next var_32C 'Variant
For var_34C = 1 To CVar(Len(Me.TextBox.Text)): var_174 = var_34C 'Variant
loc_53FC95: var_284 = var_284 & Chr$(CLng((Asc(Mid$(Me.TextBox.Text, CLng(var_174), 1)) + &H1C)))
Next var_34C 'Variant
loc_53FCB7: var_11C = "com"
loc_53FCD4: var_130 = Unknown_4AA110("vartie", var_284) 'Variant
loc_53FCE6: var_1F0 = 0 'Variant
loc_53FCEE: MemVar_5F520A = 1
loc_53FCF5: MemVar_5F5208 = 0
loc_53FCFA: var_C4 = 1
For var_36C = var_C4 To 23212: var_94 = var_36C 'Variant
loc_53FD32: FnIntVar
loc_53FD6F: var_130 = Unknown_4BA4AC(CStr(Asc(CStr((CVar(Rnd(1)) * 1000)))), Asc(CStr((CVar(Rnd(1)) * 1000))) & "89" = Time$, var_C4) 'Variant
Next var_36C 'Variant
loc_53FD8B: Unknown_52AF94()
For var_38C = 1 To 23212: var_94 = var_38C 'Variant
loc_53FDCA: FnIntVar
loc_53FE07: var_130 = Unknown_4BA4AC(CStr(Asc(CStr((CVar(Rnd(1)) * 1000)))), Asc(CStr((CVar(Rnd(1)) * 1000))) & "89" = Date$) 'Variant
Next var_38C 'Variant
loc_53FE21: GoTo loc_53FE78
End If
If ((var_1F0 + 1) >= 7) Then '53FE76
loc_53FE62: MsgBox(var_200, 0, var_114, var_1B4, var_1E0)
loc_53FE74: End
End If
loc_53FE78: ' Referenced from: 53FE21
If ((MemVar_5F520A = 1) And (Me.CheckBox.Value = 1)) Then '53FEE8
loc_53FEB0: var_118 = Me.TextBox.Text
loc_53FED5: var_118 = Unknown_4E3300(Me.TextBox.Text)
End If
loc_53FEF7: UnLoad Me
loc_53FF01: Exit Sub