ANTICHAT — форум по информационной безопасности, OSINT и технологиям

'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