R2du-soft
دوشنبه 24 آبان 1395, 03:01 صبح
با سلام و خسته نباشید من یک برنامه رو دیکد کردم ولی بصورت مبهم هست،از سه الگریتم کدکردن و دیکد کردن استفاده میکنه،برای برگردوندن به حالت اولش کمک نیاز دارم،اساتید از این کدها سردر میارید؟
Public Sub Proc_1_9_4522E4(arg_C, arg_10) '4522E4
'Data Table: 40140C
Dim var_104 As Integer
Dim var_11C As String
Dim var_114 As Variant
loc_45219C: On Error GoTo loc_4522DB
loc_4521A2: If arg_10 Then
loc_4521A8: var_88 = arg_C
loc_4521AE: arg_C = vbNullString
loc_4521C2: For var_F4 = 1 To CVar(Len(var_88)): var_A4 = var_F4 'Variant
loc_4521F6: var_11C = CStr((Asc(CStr(Mid(var_88, CLng(var_A4), 1))) - &H31))
loc_4521FA: arg_C = arg_C & var_11C
loc_45220F: Next var_F4 'Variant
loc_452215: End If
loc_45221B: Do 'loop at: 4522D7
loc_45222B: var_104 = Left(arg_C, 1)
loc_452256: arg_C = CStr(Mid(arg_C, 2, var_104))
loc_452270: var_104 = Left(arg_C, CLng(CInt(var_104)))
loc_452279: var_8C = CStr(var_104)
loc_452297: var_114 = Mid(arg_C, (Len(var_8C) + 1), var_104)
loc_4522C5: var_88 = CStr(CVar(vbNullString) & Chr(CLng(var_8C)))
loc_4522D7: Loop Until Not (CStr(Mid(arg_C, 2, Chr(CLng(var_8C)))) <> vbNullString) 'do at: 45221B
loc_4522DA: Exit Sub
loc_4522DB: ' Referenced from: 45219C
loc_4522DE: var_88 = "Error decrypting string"
loc_4522E1: Exit Sub
End Sub
Public Sub Proc_1_7_452144(arg_C, arg_10) '452144
'Data Table: 40140C
Dim var_104 As Integer
Dim var_11C As String
Dim var_114 As Variant
loc_451FFC: On Error GoTo loc_45213B
loc_452002: If arg_10 Then
loc_452008: var_88 = arg_C
loc_45200E: arg_C = vbNullString
loc_452022: For var_F4 = 1 To CVar(Len(var_88)): var_A4 = var_F4 'Variant
loc_452056: var_11C = CStr((Asc(CStr(Mid(var_88, CLng(var_A4), 1))) - &H51))
loc_45205A: arg_C = arg_C & var_11C
loc_45206F: Next var_F4 'Variant
loc_452075: End If
loc_45207B: Do 'loop at: 452137
loc_45208B: var_104 = Left(arg_C, 1)
loc_4520B6: arg_C = CStr(Mid(arg_C, 2, var_104))
loc_4520D0: var_104 = Left(arg_C, CLng(CInt(var_104)))
loc_4520D9: var_8C = CStr(var_104)
loc_4520F7: var_114 = Mid(arg_C, (Len(var_8C) + 1), var_104)
loc_452125: var_88 = CStr(CVar(vbNullString) & Chr(CLng(var_8C)))
loc_452137: Loop Until Not (CStr(Mid(arg_C, 2, Chr(CLng(var_8C)))) <> vbNullString) 'do at: 45207B
loc_45213A: Exit Sub
loc_45213B: ' Referenced from: 451FFC
loc_45213E: var_88 = "Error decrypting string"
loc_452141: Exit Sub
End Sub
Public Sub Proc_1_5_451FA4(arg_C, arg_10) '451FA4
'Data Table: 40140C
Dim var_104 As Integer
Dim var_11C As String
Dim var_8E As Integer
Dim var_114 As Variant
Dim var_2B01 As Double
loc_451E5C: On Error GoTo loc_451F9B
loc_451E62: If arg_10 Then
loc_451E68: var_88 = arg_C
loc_451E6E: arg_C = vbNullString
loc_451E82: For var_F4 = 1 To CVar(Len(var_88)): var_A4 = var_F4 'Variant
loc_451EB6: var_11C = CStr((Asc(CStr(Mid(var_88, CLng(var_A4), 1))) - &H30))
loc_451EBA: arg_C = arg_C & var_11C
loc_451ECF: Next var_F4 'Variant
loc_451ED5: End If
loc_451EDB: Do 'loop at: 451F97
loc_451EEB: var_104 = Left(arg_C, 1)
loc_451EF4: var_8E = CInt(var_104)
loc_451F16: arg_C = CStr(Mid(arg_C, 2, var_104))
loc_451F30: var_104 = Left(arg_C, CLng(var_8E))
loc_451F39: var_8C = CStr(var_104)
loc_451F57: var_114 = Mid(arg_C, (Len(var_8C) + 1), var_104)
loc_451F85: var_88 = CStr(CVar(vbNullString) & Chr(CLng(var_8C)))
loc_451F97: Loop Until Not (CStr(Mid(arg_C, 2, Chr(CLng(var_8C)))) <> vbNullString) 'do at: 451EDB
loc_451F9A: Exit Sub
loc_451F9B: ' Referenced from: 451E5C
loc_451F9E: var_88 = "Error decrypting string"
loc_451FA1: Exit Sub
loc_451FA2: var_2B01 = var_8E
End Sub
Public Sub Proc_1_8_4514C4(arg_C, arg_10) '4514C4
'Data Table: 40140C
Dim var_144 As Variant
loc_4513C0: On Error GoTo loc_4514BC
loc_4513D9: For var_EC = 1 To CVar(Len(arg_C)): var_9C = var_EC 'Variant
loc_451407: var_8C = CStr(Asc(CStr(Mid(arg_C, CLng(var_9C), 1))))
loc_451428: var_88 = vbNullString & CStr(Len(var_8C)) & var_8C
loc_451435: Next var_EC 'Variant
loc_45143E: If arg_10 Then
loc_451444: arg_C = var_88
loc_45145E: For var_134 = 1 To CVar(Len(arg_C)): var_9C = var_134 'Variant
loc_45148C: var_144 = (Mid(arg_C, CLng(var_9C), 1) + 49)
loc_4514A2: var_88 = CStr(CVar(vbNullString) & Chr(CLng(var_144)))
loc_4514B5: Next var_134 'Variant
loc_4514BB: End If
loc_4514BB: Exit Sub
loc_4514BC: ' Referenced from: 4513C0
loc_4514BF: var_88 = "Error encrypting string"
loc_4514C2: Exit Sub
End Sub
Public Sub Proc_1_6_451358(arg_C, arg_10) '451358
'Data Table: 40140C
Dim var_144 As Variant
loc_451254: On Error GoTo loc_451350
loc_45126D: For var_EC = 1 To CVar(Len(arg_C)): var_9C = var_EC 'Variant
loc_45129B: var_8C = CStr(Asc(CStr(Mid(arg_C, CLng(var_9C), 1))))
loc_4512BC: var_88 = vbNullString & CStr(Len(var_8C)) & var_8C
loc_4512C9: Next var_EC 'Variant
loc_4512D2: If arg_10 Then
loc_4512D8: arg_C = var_88
loc_4512F2: For var_134 = 1 To CVar(Len(arg_C)): var_9C = var_134 'Variant
loc_451320: var_144 = (Mid(arg_C, CLng(var_9C), 1) + 81)
loc_451336: var_88 = CStr(CVar(vbNullString) & Chr(CLng(var_144)))
loc_451349: Next var_134 'Variant
loc_45134F: End If
loc_45134F: Exit Sub
loc_451350: ' Referenced from: 451254
loc_451353: var_88 = "Error encrypting string"
loc_451356: Exit Sub
End Sub
Public Sub Proc_1_4_451630(arg_C, arg_10) '451630
'Data Table: 40140C
Dim var_144 As Variant
loc_45152C: On Error GoTo loc_451628
loc_451545: For var_EC = 1 To CVar(Len(arg_C)): var_9C = var_EC 'Variant
loc_451573: var_8C = CStr(Asc(CStr(Mid(arg_C, CLng(var_9C), 1))))
loc_451594: var_88 = vbNullString & CStr(Len(var_8C)) & var_8C
loc_4515A1: Next var_EC 'Variant
loc_4515AA: If arg_10 Then
loc_4515B0: arg_C = var_88
loc_4515CA: For var_134 = 1 To CVar(Len(arg_C)): var_9C = var_134 'Variant
loc_4515F8: var_144 = (Mid(arg_C, CLng(var_9C), 1) + 48)
loc_45160E: var_88 = CStr(CVar(vbNullString) & Chr(CLng(var_144)))
loc_451621: Next var_134 'Variant
loc_451627: End If
loc_451627: Exit Sub
loc_451628: ' Referenced from: 45152C
loc_45162B: var_88 = "Error encrypting string"
loc_45162E: Exit Sub
End Sub
Public Sub Proc_1_9_4522E4(arg_C, arg_10) '4522E4
'Data Table: 40140C
Dim var_104 As Integer
Dim var_11C As String
Dim var_114 As Variant
loc_45219C: On Error GoTo loc_4522DB
loc_4521A2: If arg_10 Then
loc_4521A8: var_88 = arg_C
loc_4521AE: arg_C = vbNullString
loc_4521C2: For var_F4 = 1 To CVar(Len(var_88)): var_A4 = var_F4 'Variant
loc_4521F6: var_11C = CStr((Asc(CStr(Mid(var_88, CLng(var_A4), 1))) - &H31))
loc_4521FA: arg_C = arg_C & var_11C
loc_45220F: Next var_F4 'Variant
loc_452215: End If
loc_45221B: Do 'loop at: 4522D7
loc_45222B: var_104 = Left(arg_C, 1)
loc_452256: arg_C = CStr(Mid(arg_C, 2, var_104))
loc_452270: var_104 = Left(arg_C, CLng(CInt(var_104)))
loc_452279: var_8C = CStr(var_104)
loc_452297: var_114 = Mid(arg_C, (Len(var_8C) + 1), var_104)
loc_4522C5: var_88 = CStr(CVar(vbNullString) & Chr(CLng(var_8C)))
loc_4522D7: Loop Until Not (CStr(Mid(arg_C, 2, Chr(CLng(var_8C)))) <> vbNullString) 'do at: 45221B
loc_4522DA: Exit Sub
loc_4522DB: ' Referenced from: 45219C
loc_4522DE: var_88 = "Error decrypting string"
loc_4522E1: Exit Sub
End Sub
Public Sub Proc_1_7_452144(arg_C, arg_10) '452144
'Data Table: 40140C
Dim var_104 As Integer
Dim var_11C As String
Dim var_114 As Variant
loc_451FFC: On Error GoTo loc_45213B
loc_452002: If arg_10 Then
loc_452008: var_88 = arg_C
loc_45200E: arg_C = vbNullString
loc_452022: For var_F4 = 1 To CVar(Len(var_88)): var_A4 = var_F4 'Variant
loc_452056: var_11C = CStr((Asc(CStr(Mid(var_88, CLng(var_A4), 1))) - &H51))
loc_45205A: arg_C = arg_C & var_11C
loc_45206F: Next var_F4 'Variant
loc_452075: End If
loc_45207B: Do 'loop at: 452137
loc_45208B: var_104 = Left(arg_C, 1)
loc_4520B6: arg_C = CStr(Mid(arg_C, 2, var_104))
loc_4520D0: var_104 = Left(arg_C, CLng(CInt(var_104)))
loc_4520D9: var_8C = CStr(var_104)
loc_4520F7: var_114 = Mid(arg_C, (Len(var_8C) + 1), var_104)
loc_452125: var_88 = CStr(CVar(vbNullString) & Chr(CLng(var_8C)))
loc_452137: Loop Until Not (CStr(Mid(arg_C, 2, Chr(CLng(var_8C)))) <> vbNullString) 'do at: 45207B
loc_45213A: Exit Sub
loc_45213B: ' Referenced from: 451FFC
loc_45213E: var_88 = "Error decrypting string"
loc_452141: Exit Sub
End Sub
Public Sub Proc_1_5_451FA4(arg_C, arg_10) '451FA4
'Data Table: 40140C
Dim var_104 As Integer
Dim var_11C As String
Dim var_8E As Integer
Dim var_114 As Variant
Dim var_2B01 As Double
loc_451E5C: On Error GoTo loc_451F9B
loc_451E62: If arg_10 Then
loc_451E68: var_88 = arg_C
loc_451E6E: arg_C = vbNullString
loc_451E82: For var_F4 = 1 To CVar(Len(var_88)): var_A4 = var_F4 'Variant
loc_451EB6: var_11C = CStr((Asc(CStr(Mid(var_88, CLng(var_A4), 1))) - &H30))
loc_451EBA: arg_C = arg_C & var_11C
loc_451ECF: Next var_F4 'Variant
loc_451ED5: End If
loc_451EDB: Do 'loop at: 451F97
loc_451EEB: var_104 = Left(arg_C, 1)
loc_451EF4: var_8E = CInt(var_104)
loc_451F16: arg_C = CStr(Mid(arg_C, 2, var_104))
loc_451F30: var_104 = Left(arg_C, CLng(var_8E))
loc_451F39: var_8C = CStr(var_104)
loc_451F57: var_114 = Mid(arg_C, (Len(var_8C) + 1), var_104)
loc_451F85: var_88 = CStr(CVar(vbNullString) & Chr(CLng(var_8C)))
loc_451F97: Loop Until Not (CStr(Mid(arg_C, 2, Chr(CLng(var_8C)))) <> vbNullString) 'do at: 451EDB
loc_451F9A: Exit Sub
loc_451F9B: ' Referenced from: 451E5C
loc_451F9E: var_88 = "Error decrypting string"
loc_451FA1: Exit Sub
loc_451FA2: var_2B01 = var_8E
End Sub
Public Sub Proc_1_8_4514C4(arg_C, arg_10) '4514C4
'Data Table: 40140C
Dim var_144 As Variant
loc_4513C0: On Error GoTo loc_4514BC
loc_4513D9: For var_EC = 1 To CVar(Len(arg_C)): var_9C = var_EC 'Variant
loc_451407: var_8C = CStr(Asc(CStr(Mid(arg_C, CLng(var_9C), 1))))
loc_451428: var_88 = vbNullString & CStr(Len(var_8C)) & var_8C
loc_451435: Next var_EC 'Variant
loc_45143E: If arg_10 Then
loc_451444: arg_C = var_88
loc_45145E: For var_134 = 1 To CVar(Len(arg_C)): var_9C = var_134 'Variant
loc_45148C: var_144 = (Mid(arg_C, CLng(var_9C), 1) + 49)
loc_4514A2: var_88 = CStr(CVar(vbNullString) & Chr(CLng(var_144)))
loc_4514B5: Next var_134 'Variant
loc_4514BB: End If
loc_4514BB: Exit Sub
loc_4514BC: ' Referenced from: 4513C0
loc_4514BF: var_88 = "Error encrypting string"
loc_4514C2: Exit Sub
End Sub
Public Sub Proc_1_6_451358(arg_C, arg_10) '451358
'Data Table: 40140C
Dim var_144 As Variant
loc_451254: On Error GoTo loc_451350
loc_45126D: For var_EC = 1 To CVar(Len(arg_C)): var_9C = var_EC 'Variant
loc_45129B: var_8C = CStr(Asc(CStr(Mid(arg_C, CLng(var_9C), 1))))
loc_4512BC: var_88 = vbNullString & CStr(Len(var_8C)) & var_8C
loc_4512C9: Next var_EC 'Variant
loc_4512D2: If arg_10 Then
loc_4512D8: arg_C = var_88
loc_4512F2: For var_134 = 1 To CVar(Len(arg_C)): var_9C = var_134 'Variant
loc_451320: var_144 = (Mid(arg_C, CLng(var_9C), 1) + 81)
loc_451336: var_88 = CStr(CVar(vbNullString) & Chr(CLng(var_144)))
loc_451349: Next var_134 'Variant
loc_45134F: End If
loc_45134F: Exit Sub
loc_451350: ' Referenced from: 451254
loc_451353: var_88 = "Error encrypting string"
loc_451356: Exit Sub
End Sub
Public Sub Proc_1_4_451630(arg_C, arg_10) '451630
'Data Table: 40140C
Dim var_144 As Variant
loc_45152C: On Error GoTo loc_451628
loc_451545: For var_EC = 1 To CVar(Len(arg_C)): var_9C = var_EC 'Variant
loc_451573: var_8C = CStr(Asc(CStr(Mid(arg_C, CLng(var_9C), 1))))
loc_451594: var_88 = vbNullString & CStr(Len(var_8C)) & var_8C
loc_4515A1: Next var_EC 'Variant
loc_4515AA: If arg_10 Then
loc_4515B0: arg_C = var_88
loc_4515CA: For var_134 = 1 To CVar(Len(arg_C)): var_9C = var_134 'Variant
loc_4515F8: var_144 = (Mid(arg_C, CLng(var_9C), 1) + 48)
loc_45160E: var_88 = CStr(CVar(vbNullString) & Chr(CLng(var_144)))
loc_451621: Next var_134 'Variant
loc_451627: End If
loc_451627: Exit Sub
loc_451628: ' Referenced from: 45152C
loc_45162B: var_88 = "Error encrypting string"
loc_45162E: Exit Sub
End Sub