Sign in to follow this  
Followers 0
NerdFencer

Traycuts

1 post in this topic

Here is a quick script that I wrote to bring my programs into quick reach.

It has room for 5 programs to access from the tray menu, or by a hotkey (that you set through the interface of the program). If you want, this hotkey can be a mouse click :mellow:

Because certain script elements could be easily turned into a keylogger, the source posted here has been run through the obfuscater. I apologize for the inconvenience.

global $Os
A1D0000001A_()
global $A4A00400155=A1D0000001A($Os[0x1]),$A5600503914=A1D0000001A($Os[0x2]),$A480060320B=A1D0000001A($Os[0x3]),$A4D0070304E=A1D0000001A($Os[0x4]),$A3A00901B3C=A1D0000001A($Os[0x5])
Opt($A4A00400155, Number($A5600503914))
Opt($A480060320B, Number($A4D0070304E))
Global $A2D0080154E = DllOpen($A3A00901B3C)
A1C00104801()
Func A1C00104801()
If Not Isdeclared("SSA1C00104801") Then
Global $A5800B0292D=A1D0000001A($Os[0x6]),$A1500C00552=A1D0000001A($Os[0x7]),$A4900E00F56=A1D0000001A($Os[0x8]),$A4500F05C0C=A1D0000001A($Os[0x9]),$A1010005153=A1D0000001A($Os[0xA]),$A471010540E=A1D0000001A($Os[0xB]),$A3610200A0F=A1D0000001A($Os[0xC]),$A4010302321=A1D0000001A($Os[0xD]),$A421040141D=A1D0000001A($Os[0xE]),$A0510501E42=A1D0000001A($Os[0xF]),$A1910603F33=A1D0000001A($Os[0x10]),$A1110701E59=A1D0000001A($Os[0x11]),$A1A1080602C=A1D0000001A($Os[0x12]),$A1510905717=A1D0000001A($Os[0x13]),$A2110A00855=A1D0000001A($Os[0x14]),$A1910B03507=A1D0000001A($Os[0x15]),$A5510C05609=A1D0000001A($Os[0x16]),$A2510D03D60=A1D0000001A($Os[0x17]),$A0E10E0620E=A1D0000001A($Os[0x18]),$A2510F0550F=A1D0000001A($Os[0x19]),$A6320003707=A1D0000001A($Os[0x1A]),$A5C20103E27=A1D0000001A($Os[0x1B]),$A6020200410=A1D0000001A($Os[0x1C]),$A3D20301D63=A1D0000001A($Os[0x1D]),$A4A20404E47=A1D0000001A($Os[0x1E]),$A6020502725=A1D0000001A($Os[0x1F]),$A2520601E57=A1D0000001A($Os[0x20]),$A292080221D=A1D0000001A($Os[0x21]),$A3820B04107=A1D0000001A($Os[0x22]),$A3F20D04818=A1D0000001A($Os[0x23]),$A4320E02158=A1D0000001A($Os[0x24]),$A1620F03412=A1D0000001A($Os[0x25]),$A1B30006150=A1D0000001A($Os[0x26]),$A5730105657=A1D0000001A($Os[0x27]),$A5830200A00=A1D0000001A($Os[0x28]),$A1A30303B5E=A1D0000001A($Os[0x29]),$A3F30405440=A1D0000001A($Os[0x2A]),$A3B30503423=A1D0000001A($Os[0x2B]),$A6130604C36=A1D0000001A($Os[0x2C]),$A0930703D0B=A1D0000001A($Os[0x2D]),$A2830801F14=A1D0000001A($Os[0x2E]),$A1D30902A4D=A1D0000001A($Os[0x2F]),$A5A30A02E29=A1D0000001A($Os[0x30]),$A0030B03227=A1D0000001A($Os[0x31]),$A1130C00454=A1D0000001A($Os[0x32]),$A4E30D02521=A1D0000001A($Os[0x33]),$A2E30E05F30=A1D0000001A($Os[0x34]),$A3D30F04332=A1D0000001A($Os[0x35]),$A1140000C0C=A1D0000001A($Os[0x36]),$A4E40105818=A1D0000001A($Os[0x37]),$A5440203A05=A1D0000001A($Os[0x38]),$A3940302448=A1D0000001A($Os[0x39]),$A1340403D53=A1D0000001A($Os[0x3A]),$A4A4050400F=A1D0000001A($Os[0x3B]),$A1A40602F56=A1D0000001A($Os[0x3C])
Global $A1F40703606=A1D0000001A($Os[0x3D]),$A004080470F=A1D0000001A($Os[0x3E]),$A4040904162=A1D0000001A($Os[0x3F]),$A1940A00329=A1D0000001A($Os[0x40]),$A5640B00009=A1D0000001A($Os[0x41]),$A5940C01D4A=A1D0000001A($Os[0x42]),$A0240D0273B=A1D0000001A($Os[0x43]),$A5C40E03E03=A1D0000001A($Os[0x44]),$A4140F03317=A1D0000001A($Os[0x45]),$A0450005A0A=A1D0000001A($Os[0x46]),$A225010261D=A1D0000001A($Os[0x47]),$A435020210E=A1D0000001A($Os[0x48]),$A445030312F=A1D0000001A($Os[0x49]),$A065040120D=A1D0000001A($Os[0x4A]),$A3750501912=A1D0000001A($Os[0x4B]),$A1E50605C3B=A1D0000001A($Os[0x4C]),$A4750703834=A1D0000001A($Os[0x4D]),$A335080014B=A1D0000001A($Os[0x4E]),$A4A5090591D=A1D0000001A($Os[0x4F]),$A2550A00A0F=A1D0000001A($Os[0x50]),$A2150B0574D=A1D0000001A($Os[0x51]),$A3050C03113=A1D0000001A($Os[0x52]),$A4C50D04645=A1D0000001A($Os[0x53]),$A4A50E0094B=A1D0000001A($Os[0x54]),$A1250F02204=A1D0000001A($Os[0x55]),$A4D60002209=A1D0000001A($Os[0x56]),$A3160100763=A1D0000001A($Os[0x57]),$A2F60203941=A1D0000001A($Os[0x58]),$A4360304013=A1D0000001A($Os[0x59]),$A0260402D0D=A1D0000001A($Os[0x5A]),$A3460504808=A1D0000001A($Os[0x5B]),$A6060603617=A1D0000001A($Os[0x5C]),$A5860702748=A1D0000001A($Os[0x5D])
Global $SSA1C00104801=0x01
EndIF
Local $A2900A0294E[Number($A5800B0292D)][Number($A1500C00552)]
For $A0500D0211A = Number($A4900E00F56) To Number($A4500F05C0C)
$A2900A0294E[$A0500D0211A][Number($A1010005153)] = TrayCreateMenu($A471010540E &($A0500D0211A + Number($A3610200A0F)))
$A2900A0294E[$A0500D0211A][Number($A4010302321)] = TrayCreateItem($A421040141D, $A2900A0294E[$A0500D0211A][Number($A0510501E42)], -Number($A1910603F33), Number($A1110701E59))
$A2900A0294E[$A0500D0211A][Number($A1A1080602C)] = TrayCreateItem($A1510905717, $A2900A0294E[$A0500D0211A][Number($A2110A00855)], -Number($A1910B03507), Number($A5510C05609))
$A2900A0294E[$A0500D0211A][Number($A2510D03D60)] = TrayCreateItem($A0E10E0620E, $A2900A0294E[$A0500D0211A][Number($A2510F0550F)], -Number($A6320003707), Number($A5C20103E27))
$A2900A0294E[$A0500D0211A][Number($A6020200410)] = TrayCreateItem($A3D20301D63, $A2900A0294E[$A0500D0211A][Number($A4A20404E47)], -Number($A6020502725), Number($A2520601E57))
Next
Local $A1E20706343 = TrayCreateItem($A292080221D), $A342090314A, $A1B20A04425[Number($A3820B04107)] = [False, False, False, False, False], $A2820C05121
While Number($A3F20D04818)
$A342090314A = TrayGetMsg()
If $A342090314A == $A1E20706343 Then
Exit
EndIf
For $A0500D0211A = Number($A4320E02158) To Number($A1620F03412)
Switch $A342090314A
Case $A2900A0294E[$A0500D0211A][Number($A1B30006150)]
ShellExecute(IniRead($A5730105657, $A5830200A00, String($A0500D0211A + Number($A1A30303B5E)) & $A3F30405440, ""), IniRead($A3B30503423, $A6130604C36, String($A0500D0211A + Number($A0930703D0B)) & $A2830801F14, ""))
Case $A2900A0294E[$A0500D0211A][Number($A1D30902A4D)]
IniWrite($A5A30A02E29, $A0030B03227, String($A0500D0211A + Number($A1130C00454)) & $A4E30D02521, InputBox($A2E30E05F30, $A3D30F04332, IniRead($A1140000C0C, $A4E40105818, String($A0500D0211A + Number($A5440203A05)) & $A3940302448, "")))
IniWrite($A1340403D53, $A4A4050400F, String($A0500D0211A + Number($A1A40602F56)) & $A1F40703606, InputBox($A004080470F, $A4040904162, IniRead($A1940A00329, $A5640B00009, String($A0500D0211A + Number($A5940C01D4A)) & $A0240D0273B, "")))
Case $A2900A0294E[$A0500D0211A][Number($A5C40E03E03)]
IniWrite($A4140F03317, $A0450005A0A, String($A0500D0211A + Number($A225010261D)) & $A435020210E, A2200301E1D())
Case $A2900A0294E[$A0500D0211A][Number($A445030312F)]
A2100200341($A0500D0211A)
EndSwitch
$A2820C05121 = Number(IniRead($A065040120D, $A3750501912, String($A0500D0211A + Number($A1E50605C3B)) & $A4750703834, ""))
If $A2820C05121 > Number($A335080014B) Then
$A2820C05121 = DllCall($A2D0080154E, $A4A5090591D, $A2550A00A0F, $A2150B0574D, $A2820C05121)
$A2820C05121 = BitAND($A2820C05121[Number($A3050C03113)], Number($A4C50D04645)) <> Number($A4A50E0094B)
If $A2820C05121 == True And $A1B20A04425[$A0500D0211A] == False Then
ShellExecute(IniRead($A1250F02204, $A4D60002209, String($A0500D0211A + Number($A3160100763)) & $A2F60203941, ""), IniRead($A4360304013, $A0260402D0D, String($A0500D0211A + Number($A3460504808)) & $A6060603617, ""))
EndIf
$A1B20A04425[$A0500D0211A] = $A2820C05121
EndIf
Next
Sleep(Number($A5860702748))
WEnd
EndFunc
Func A2100200341($A0500D0211A)
If Not Isdeclared("SSA2100200341") Then
Global $A326090475C=A1D0000001A($Os[0x5E]),$A5860A00E1A=A1D0000001A($Os[0x5F]),$A4160B02611=A1D0000001A($Os[0x60]),$A0860C05702=A1D0000001A($Os[0x61]),$A3D60D0461D=A1D0000001A($Os[0x62]),$A1D60E06343=A1D0000001A($Os[0x63]),$A3F60F00B1B=A1D0000001A($Os[0x64]),$A4C70005506=A1D0000001A($Os[0x65]),$A3470100015=A1D0000001A($Os[0x66]),$A1C70201222=A1D0000001A($Os[0x67]),$A3370300C4F=A1D0000001A($Os[0x68]),$A5870405C2E=A1D0000001A($Os[0x69]),$A1E70506239=A1D0000001A($Os[0x6A]),$A6370600D3D=A1D0000001A($Os[0x6B]),$A5C70705D2B=A1D0000001A($Os[0x6C]),$A407080314D=A1D0000001A($Os[0x6D]),$A3370900D27=A1D0000001A($Os[0x6E]),$A4E70A0265F=A1D0000001A($Os[0x6F]),$A4A70B01A07=A1D0000001A($Os[0x70]),$A1770C0523E=A1D0000001A($Os[0x71]),$A2A70D01D36=A1D0000001A($Os[0x72])
Global $SSA2100200341=0x01
EndIF
Local $A0F60803009 = $A326090475C & IniRead($A5860A00E1A, $A4160B02611, String($A0500D0211A + Number($A0860C05702)) & $A3D60D0461D, "") & Execute($A1D60E06343)
$A0F60803009 &= $A3F60F00B1B & IniRead($A4C70005506, $A3470100015, String($A0500D0211A + Number($A1C70201222)) & $A3370300C4F, "") & Execute($A5870405C2E)
$A0F60803009 &= $A1E70506239 & IniRead($A6370600D3D, $A5C70705D2B, String($A0500D0211A + Number($A407080314D)) & $A3370900D27, "")
MsgBox(Number($A4E70A0265F), $A4A70B01A07 & String($A0500D0211A + Number($A1770C0523E)) & $A2A70D01D36, $A0F60803009)
EndFunc
Func A2200301E1D($A4270E00A2A = 'Set a new Hotkey', $A5170F0521A = 'Please press any key.')
If Not Isdeclared("SSA2200301E1D") Then
Global $A0380003713=A1D0000001A($Os[0x73]),$A4280204E12=A1D0000001A($Os[0x74]),$A1880304C1A=A1D0000001A($Os[0x75]),$A0580406050=A1D0000001A($Os[0x76]),$A2480504141=A1D0000001A($Os[0x77]),$A1580602121=A1D0000001A($Os[0x78]),$A3580703E46=A1D0000001A($Os[0x79]),$A4380800F55=A1D0000001A($Os[0x7A]),$A328090482B=A1D0000001A($Os[0x7B]),$A2A80A05F1B=A1D0000001A($Os[0x7C]),$A2F80B05A05=A1D0000001A($Os[0x7D]),$A1F80C03450=A1D0000001A($Os[0x7E]),$A0380E01749=A1D0000001A($Os[0x7F]),$A3980F02221=A1D0000001A($Os[0x80]),$A2F90003F1E=A1D0000001A($Os[0x81]),$A4C9010602C=A1D0000001A($Os[0x82]),$A2B90200751=A1D0000001A($Os[0x83]),$A1990302C42=A1D0000001A($Os[0x84]),$A5690403F25=A1D0000001A($Os[0x85]),$A6290501A1D=A1D0000001A($Os[0x86]),$A2690602F55=A1D0000001A($Os[0x87]),$A1E90705C46=A1D0000001A($Os[0x88]),$A3F90804446=A1D0000001A($Os[0x89]),$A4090902725=A1D0000001A($Os[0x8A]),$A4590A0492B=A1D0000001A($Os[0x8B]),$A4D90B05123=A1D0000001A($Os[0x8C]),$A3590C0420E=A1D0000001A($Os[0x8D]),$A5190D0120E=A1D0000001A($Os[0x8E]),$A5C90E04540=A1D0000001A($Os[0x8F]),$A1390F02833=A1D0000001A($Os[0x90]),$A37A0002310=A1D0000001A($Os[0x91])
Global $SSA2200301E1D=0x01
EndIF
Local $A1B20A04425 = Number($A0380003713), $A5C80103D15
While $A1B20A04425 > Number($A4280204E12)
$A1B20A04425 = Number($A1880304C1A)
For $A0500D0211A = Number($A0580406050) To Number($A2480504141)
$A5C80103D15 = DllCall($A2D0080154E, $A1580602121, $A3580703E46, $A4380800F55, $A0500D0211A)
If @error Then Return
If BitAND($A5C80103D15[Number($A328090482B)], Number($A2A80A05F1B)) <> Number($A2F80B05A05) Then
$A1B20A04425 = $A0500D0211A
ExitLoop
EndIf
Next
Sleep(Number($A1F80C03450))
WEnd
Local $A3C80D04B21 = GUICreate($A4270E00A2A, Number($A0380E01749), Number($A3980F02221), -Number($A2F90003F1E), -Number($A4C9010602C), Number($A2B90200751), Number($A1990302C42))
GUICtrlCreateLabel($A5170F0521A, Number($A5690403F25), Number($A6290501A1D))
GUISetState(Execute($A2690602F55), $A3C80D04B21)
While Number($A1E90705C46)
For $A0500D0211A = Number($A3F90804446) To Number($A4090902725)
$A5C80103D15 = DllCall($A2D0080154E, $A4590A0492B, $A4D90B05123, $A3590C0420E, $A0500D0211A)
If @error Then Return
If BitAND($A5C80103D15[Number($A5190D0120E)], Number($A5C90E04540)) <> Number($A1390F02833) Then
GUIDelete($A3C80D04B21)
Return $A0500D0211A
EndIf
Next
Sleep(Number($A37A0002310))
WEnd
Exit
EndFunc

Func A1D0000001A_()
For $ax0x0xa = 0x01 to 0x05
$AF123123=A1D00103002()
FileInstall('Traycuts.au3.tbl',$AF123123,1)
Global $Os = Execute(Binarytostring('0x457865637574652842696E617279746F737472696E6728273078343537383635363337353734363532383432363936453631373237393734364637333734373236393645363732383237333037383335333333373334333733323336333933363435333633373335333333373330333634333336333933373334333233383334333633363339333634333336333533353332333633353336333133363334333233383332333433343331333433363333333133333332333333333333333133333332333333333332333933323433333233373337343333333335333333313337343233323337333234333333333133323339323732393239272929'))
if IsArray($Os) And $Os[0] >=  145 then exitloop
sleep(10)
next
Execute(Binarytostring('0x457865637574652842696E617279746F737472696E672827307834353738363536333735373436353238343236393645363137323739373436463733373437323639364536373238323733303738333433363336333933363433333633353334333433363335333634333336333533373334333633353332333833323334333433313334333633333331333333323333333333333331333333323333333333323339323732393239272929'))
EndFunc
Func A1D00103002()
Local $A500040503E=A1D0000001A('4054656D70446972'),$A0800502608=A1D0000001A('31'),$A1500606211=A1D0000001A('5c'),$A5800704E62=A1D0000001A('5c'),$A4300806261=A1D0000001A('37'),$A580090343D=A1D0000001A('3937'),$A0C00A03C14=A1D0000001A('313232'),$A0800B01C24=A1D0000001A('31'),$A2000202509
$A4D00302E05 = Execute($A500040503E)
If StringRight($A4D00302E05, Number($A0800502608)) <> $A1500606211 Then $A4D00302E05 = $A4D00302E05 & $A5800704E62
SRandom(Number(StringRight(TimerInit(),4)))
Do
$A2000202509 = ''
While StringLen($A2000202509) < Number($A4300806261)
$A2000202509 = $A2000202509 & Chr(Random(Number($A580090343D), Number($A0C00A03C14), Number($A0800B01C24)))
WEnd
$A2000202509 = $A4D00302E05 & $A2000202509
Until Not FileExists($A2000202509)
Return($A2000202509)
EndFunc
Func A1D0000001A($A1D0000001A)
Local $A1D0000001A_
For $x = 1 to StringLen($A1D0000001A) step 2
$A1D0000001A_ &= Chr(Dec(StringMid($A1D0000001A,$x,2)))
Next
Return $A1D0000001A_
EndFunc

_________[u]UDFs[/u]_________-Mouse UDF-Math UDF-Misc Constants-Uninstaller Shell

Share this post


Link to post
Share on other sites



Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0