привет ето опять я произошла ошибка в преддыдушей теме я выложил другую прогу смотрел чегото нехватает, ето все от марихуаны вот ето то программа http://www.butel.nl/ http://www.butel.nl/download/arc96/arc96.zip
а в чём проблема собственнно? покупаешь ключ вводишь и всё работает. ПыСы. выкладывай наработки, или топай в отдел заказов.
Кури p-code, вижл бэйсик, и разбирайся что делает этот код с введёнными ключами 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
