호출은 아래처럼 하고 디컴파일러 돌린건데 아마 arg_14부분이 Optional arg_14일 가능성이 높음


도움좀 부탁드려요


Proc_8_1_555DBC("199 186 41 62 119 101 227 201 133 180", &H1CCE)

Proc_8_1_555DBC("58 67 6 73 62 250 15 86 214", &H1CCE, 0)




Public Sub Proc_8_1_555DBC(arg_C, arg_10, arg_14) '555DBC
'Data Table: 4019B8
Dim arg_2008 As Variant
Dim var_92 As Integer
Dim var_A0 As Long
Dim var_A4 As Long
Dim var_A8 As Long
On Error Goto loc_555DB3
arg_2008 = Split(CStr(Trim(arg_C)), " ", -1, 0)
var_90 = arg_2008
var_92 = CInt(UBound(var_90, 1))
var_92 = (var_92 + 1)
ReDim var_108(1 To CLng(var_92))
For var_110 = 1 To CLng(var_92): var_98 = var_110 'Long
     var_108(var_98) = CLng(var_90((var_98 - 1)))
Next var_110 'Long
var_A0 = (&HB + (arg_10 Mod &HE9))
var_A4 = (7 + (arg_10 Mod &HEF))
var_A8 = (5 + (arg_10 Mod &HF1))
For var_118 = 1 To CLng((var_92 - 2)): var_98 = var_118 'Long
     var_108(var_98) = var_108(var_98) Xor var_108((var_98 + 2)) Xor (((3 + (arg_10 Mod &HFB)) * var_108((var_98 + 1))) Mod &H100)
Next var_118 'Long
For var_120 = CLng(var_92) To 3 Step -1: var_98 = var_120 'Long
     var_108(var_98) = var_108(var_98) Xor var_108((var_98 - 2)) Xor ((var_A8 * var_108((var_98 - 1))) Mod &H100)
Next var_120 'Long
For var_128 = 1 To CLng((var_92 - 1)): var_98 = var_128 'Long
     var_108(var_98) = var_108(var_98) Xor var_108((var_98 + 1)) Xor ((var_A4 * var_108((var_98 + 1))) Mod &H100)
Next var_128 'Long
For var_130 = CLng(var_92) To 2 Step -1: var_98 = var_130 'Long
     var_108(var_98) = var_108(var_98) Xor var_108((var_98 - 1)) Xor ((var_A0 * var_108((var_98 - 1))) Mod &H100)
Next var_130 'Long
var_9C = vbNullString
For var_138 = 1 To CLng(var_92): var_98 = var_138 'Long
     var_9C = var_9C & Chr$(var_108(var_98))
Next var_138 'Long
If arg_14 Then
     var_88 = CStr(Mid$(var_9C, 3, CVar((Len(var_9C) - 4))))
Else
     var_88 = var_9C
End If
Exit Sub
var_88 = vbNullString
Exit Sub
End Sub