Post Reply 
 
Thread Rating:
  • 0 Vote(s) - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Autoit: How to restore common functionnames_ARRAYDELETE after decompile
05-24-2012, 02:52 PM (This post was last modified: 11-20-2020 01:31 AM by cw2k.)
Post: #1
Autoit: How to restore common functionnames_ARRAYDELETE after decompile
is there any substitute automatically replace
for example


Code:
Func a4300705601(ByRef $a2f31502f3a, $a423180411e)
    If NOT IsArray($a2f31502f3a) Then Return SetError(1, 0, 0)
    Local $a5431705e37 = UBound($a2f31502f3a, 1) - 1
    If NOT $a5431705e37 Then
        $a2f31502f3a = ""
        Return 0
    EndIf
    If $a423180411e < 0 Then $a423180411e = 0
    If $a423180411e > $a5431705e37 Then $a423180411e = $a5431705e37
    Switch UBound($a2f31502f3a, 0)
        Case 1
            For $a1e31901646 = $a423180411e To $a5431705e37 - 1
                $a2f31502f3a[$a1e31901646] = $a2f31502f3a[$a1e31901646 + 1]
            Next
            ReDim $a2f31502f3a[$a5431705e37]
        Case 2
            Local $a4031a01d01 = UBound($a2f31502f3a, 2) - 1
            For $a1e31901646 = $a423180411e To $a5431705e37 - 1
                For $a2331b00917 = 0 To $a4031a01d01
                    $a2f31502f3a[$a1e31901646][$a2331b00917] = $a2f31502f3a[$a1e31901646 + 1][$a2331b00917]
                Next
            Next
            ReDim $a2f31502f3a[$a5431705e37][$a4031a01d01 + 1]
        Case Else
            Return SetError(3, 0, 0)
    EndSwitch
    Return $a5431705e37
EndFunc

writes so that it automatically code

Code:
Func _ARRAYDELETE(ByRef $AVARRAY, $IELEMENT)
    If NOT IsArray($AVARRAY) Then Return SetError(1, 0, 0)
    Local $IUBOUND = UBound($AVARRAY, 1) - 1
    If NOT $IUBOUND Then
        $AVARRAY = ""
        Return 0
    EndIf
    If $IELEMENT < 0 Then $IELEMENT = 0
    If $IELEMENT > $IUBOUND Then $IELEMENT = $IUBOUND
    Switch UBound($AVARRAY, 0)
        Case 1
            For $I = $IELEMENT To $IUBOUND - 1
                $AVARRAY[$I] = $AVARRAY[$I + 1]
            Next
            ReDim $AVARRAY[$IUBOUND]
        Case 2
            Local $ISUBMAX = UBound($AVARRAY, 2) - 1
            For $I = $IELEMENT To $IUBOUND - 1
                For $J = 0 To $ISUBMAX
                    $AVARRAY[$I][$J] = $AVARRAY[$I + 1][$J]
                Next
            Next
            ReDim $AVARRAY[$IUBOUND][$ISUBMAX + 1]
        Case Else
            Return SetError(3, 0, 0)
    EndSwitch
    Return $IUBOUND
EndFunc
Find all posts by this user
Quote this message in a reply
Post Reply 


Forum Jump:


User(s) browsing this thread: 1 Guest(s)

Contact Us | Homepage | Return to Top | Return to Content | Lite (Archive) Mode | RSS Syndication