codaine

Dim obj1 As Object = 0
               If (Me.TextBox15.get_Text.get_Length Is 10) Then
                    Dim obj3 As Object
                    Dim obj4 As Object
                    Dim text21 As String
                    Dim text23 As String
                    Dim obj6 As Object
                    Dim obj9 As Object
                    Dim obj12 As Object
                    Dim obj15 As Object
                    Dim obj18 As Object
                    Dim obj5 As Object = 0
                    If FlowControl.ForLoopInitObj(obj3, 0, 7, 1, obj18, obj3) Then
                         Do
                              obj4 = Strings.Asc(Me.TextBox3.get_Text.Substring(IntegerType.FromObject(obj3), 1))
                              text21 = (text21 & obj4.ToString.Substring(0, 1))
                              text23 = (text23 & obj4.ToString.Substring(1, 1))
                              obj5 = ObjectType.AddObj(obj5, obj4)
                         Loop While FlowControl.ForNextCheckObj(obj3, obj18, obj3)
                    End If
                    Dim text11 As String = ""
                    Dim text12 As String = ""
                    If FlowControl.ForLoopInitObj(obj3, 0, (text23.get_Length - 1), 1, obj15, obj3) Then
                         Do
                              obj4 = Strings.Asc(text23.Substring(IntegerType.FromObject(obj3), 1))
                              text11 = (text11 & obj4.ToString.Substring(0, 1))
                              text12 = (text12 & obj4.ToString.Substring(1, 1))
                         Loop While FlowControl.ForNextCheckObj(obj3, obj15, obj3)
                    End If
                    obj5 = ObjectType.AddObj(ObjectType.AddObj(ObjectType.AddObj(ObjectType.AddObj(obj5, LongType.FromString(text21)), LongType.FromString(text23)), LongType.FromString(text11)), LongType.FromString(text12))
                    Dim text22 As String = obj5.ToString
                    If (text22.get_Length > 8) Then
                         text22 = text22.Substring(1)
                    End If
                    obj4 = 0
                    If FlowControl.ForLoopInitObj(obj3, 0, 7, 1, obj12, obj3) Then
                         Do
                              obj4 = ObjectType.AddObj(obj4, IntegerType.FromString(text22.Substring(IntegerType.FromObject(obj3), 1)))
                         Loop While FlowControl.ForNextCheckObj(obj3, obj12, obj3)
                    End If
                    If (ObjectType.ObjTst(obj4, 99, False) > 0) Then
                         text23 = obj4.ToString.Substring((obj4.ToString.get_Length - 2))
                    Else
                         If (ObjectType.ObjTst(obj4, 10, False) < 0) Then
                              text23 = ("5" & obj4.ToString)
                         Else
                              text23 = obj4.ToString
                         End If
                    End If
                    text23 = (text23 & text22)
                    If FlowControl.ForLoopInitObj(obj3, 0, (text23.get_Length - 1), 1, obj9, obj3) Then
                         Do
                              numArray1(IntegerType.FromObject(obj3)) = IntegerType.FromString(text23.Substring(IntegerType.FromObject(obj3), 1))
                         Loop While FlowControl.ForNextCheckObj(obj3, obj9, obj3)
                    End If
                    text22 = String.Concat(New String() { numArray1(1).ToString, numArray1(6).ToString, numArray1(8).ToString, numArray1(4).ToString, numArray1(0).ToString, numArray1(2).ToString, numArray1(5).ToString, numArray1(7).ToString, numArray1(3).ToString, numArray1(9).ToString })
                    obj4 = 0
                    If FlowControl.ForLoopInitObj(obj3, 0, (text22.get_Length - 1), 1, obj6, obj3) Then
                         Do
                              If (Not StringType.StrCmp(text22.Substring(IntegerType.FromObject(obj3), 1), Me.TextBox15.get_Text.Substring(IntegerType.FromObject(obj3), 1), False) Is 0) Then
                                   obj4 = ObjectType.AddObj(obj4, 1)
                              End If
                         Loop While FlowControl.ForNextCheckObj(obj3, obj6, obj3)
                    End If
                    If (ObjectType.ObjTst(obj4, 0, False) > 0) Then
                         Module1.NoReg = 1
                    End If
               Else
                    Module1.NoReg = 1
               End If