View Full Version : New hack for source but not sure if reliable
cudencuden
26th September 2004, 16:52
i dl this and the exe looks suspicious, can anybody check credibility for me..i scanned w/ nod32 but came back with nothing but it;s prolly a new virus or a keylogger or something
ATI9800Pro
27th September 2004, 03:28
It works it as leaked fro ma L337 hacker, and cant be detected ever :)
straying
27th September 2004, 03:51
i dl this and the exe looks suspicious, can anybody check credibility for me..i scanned w/ nod32 but came back with nothing but it;s prolly a new virus or a keylogger or something
its clean according to KAV
i have never seen a hack that cant be patched before...O_O
ATI9800Pro
27th September 2004, 05:49
Yea here it is, and its only v1.0 so expect better features and reliability in the next version. Great way to throw a rench in valves valve eh ^^.
straying
27th September 2004, 07:24
lol!!
Nanako
27th September 2004, 13:34
so has any one tryed it yet ? well i just tryed useing it and it dont really seem to do any thing but tell people where you are it just makes mouse1 fire none stop and the bind of lower case dont seem to do any thing
cudencuden
27th September 2004, 15:47
well u got father than me..i cant get it to do anything..any help or instructs on how to use??
Nanako
27th September 2004, 16:33
well i go in game 1st the minamize to desktop click on it i dont think it matters what lower case you bind and just make sure you have it set on the res you use then go back in game tropble about it seems to aim at models in an odd way but it fires your gun just about at any thing
cudencuden
27th September 2004, 17:08
hmmm does it work if i have model hack aldready?? and uhmm..i get and critical error beginning physical dump something..its a blue screen and i have to restart..so uh..this hack doesnt work for me
lesaint
28th September 2004, 03:36
we i try it whit a model hack on and well not to good fire down any where but when i see enemy it fire some time /some time not so if update is there tell me .
Nanako
28th September 2004, 13:40
ya same thing happend with me
3PF
4th October 2004, 05:17
roft AutoIt aimbot oO
it shoots everytime it sees the color players has, this get your fps hell low.
here's the source code:
; <COMPILER: v3.0.101.0>
Global $paused
AutoItSetOption ( "MouseClickDelay", 10)
MsgBox(4096, "TubGirl v1.0 (CS:Source Version)", "This Program is Registered to: xxx ", 15)
MsgBox(4096, "TubGirl v1.0 (CS:Source Version) Readme:", "Okay... What TubGirl DOES NOT DO" & @CR & "1. It does not hack the server. Hell, it doesn't even read server code." & @CR & "2. It does not rely on an internet connection (but you sure as hell can play online)." & @CR & @CR & @CR & "This means a few things..." & @CR & "1. TubGirl cannot be patched by valve" & @CR & "2. TubGirl violates no laws like the DMCA <hohoho>" & @CR & "3. TubGirl is... your new girlfriend!" & @CR & @CR & "Finally, by using this program you agree to all the legal crap in the text file " & @CR & "that came with this program. And if you did not get a text file with this program then " & @CR & "you stole it from us and we can sue you. Either way you are sure to have a blast.", 10000)
$letter = "1"
Do
$letter = InputBox("Choose your hotkey:", "Please enter any lowercase letter." & @CR & "The resulting hotkey will be a combination of" & @CR & "CTRL + ALT + (your lowercase letter).", "", "", 240, 200)
Until IsString($letter) and StringLen($letter) = 1 and StringIsLower($letter)
$letter = "!^" & $letter
HotKeySet($letter, "TogglePause")
Func TogglePause()
$Paused = NOT $Paused
While $Paused
sleep(100)
WEnd
EndFunc
$res = 0
Do
$res = InputBox("Choose your IN-GAME resolution:", "1 = 640x480" & @CR & "2 = 800x600" & @CR & "3 = 1024x768" & @CR & "4 = 1152x864" & @CR & "5 = 1280x960" & @CR & "6 = 1280x1024" & @CR & "7 = 1600x1200" & @CR & @CR & @CR, "", "", 200, 200)
If $res = 1 Then
$xx = 320
$yy = 242
ElseIf $res = 2 Then
$xx = 400
$yy = 303
ElseIf $res = 3 Then
$xx = 511
$yy = 387
ElseIf $res = 4 Then
$xx = 575
$yy = 435
ElseIf $res = 5 Then
$xx = 640
$yy = 485
ElseIf $res = 6 Then
$xx = 640
$yy = 516
ElseIf $res = 7 Then
$xx = 798
$yy = 605
EndIf
Until $res = 1 or $res = 2 or $res = 3 or $res = 4 or $res = 5 or $res = 6 or $res = 7
While 1
$hex = Hex(PixelGetColor($xx,$yy), 6)
$r = Dec(StringRight($hex, 2))
$g = Dec(StringMid($hex, 3,2))
$b = Dec(StringLeft($hex, 2))
If $r < 130 and $g < 130 and $r < 110 Then
Select
Case $r < 80 and $b < 80 and $g < 80 and $r + 20 > $b and $b + 10 > $g and $g + 10 > $b and $r + 13 > $g and $g + 5 > $r
MouseClick("left", $xx,$yy, 3, 0)
Case $g > $b and $b + 5 > $g * .5609 and $r + 5 > $b and $g / $r > .95 and $r / $g < 1.15 and $g - $b <= 35
MouseClick("left", $xx,$yy, 3, 0)
EndSelect
EndIf
WEnd
HaTeBreeD
7th October 2004, 04:34
It deosnt really work that good, but it was cool to see somehting like that for source. what we really need is a Public Wallhack.
ATI9800Pro
8th October 2004, 16:04
No, what we really need is radar, and a forum columb just for source so we all can discuss new hacks.
kPoHyC
26th October 2004, 16:49
No hack....huck suXxX.....you need cheating-death!....loooooooOooooooool......
and no XakeP will you...:pP %)
bye bye....
No hack....hack suXxX.....you need cheating-death!....loooooooOooooooool......
and no XakeP will you...:pP %)
bye bye.... :lick:
Neiko
3rd November 2004, 07:13
jackass alert..
Yeh i think we need a source board.. i hate rummaging through the pages to find a topic about source
G0LD
22nd November 2004, 23:19
hey eny new aimbot for source ?
rorybellows
25th November 2004, 03:46
sweet,i hope valve feels this deep up the ass
ZappN
29th November 2004, 14:48
Rofl :dead:
shdwwlkr
13th December 2004, 00:35
forgive me for draggin up an old thread but just a question.how do you compile the source that was given to this "autoit aimbot" ? i appreciate the help.
i dont work with CS but for waht i play this is ideal.
thanks again,
abnoxious@gmail.com
ultraulan
14th December 2004, 22:16
roft AutoIt aimbot oO
it shoots everytime it sees the color players has, this get your fps hell low.
here's the source code:
; <COMPILER: v3.0.101.0>
Global $paused
AutoItSetOption ( "MouseClickDelay", 10)
MsgBox(4096, "TubGirl v1.0 (CS:Source Version)", "This Program is Registered to: xxx ", 15)
MsgBox(4096, "TubGirl v1.0 (CS:Source Version) Readme:", "Okay... What TubGirl DOES NOT DO" & @CR & "1. It does not hack the server. Hell, it doesn't even read server code." & @CR & "2. It does not rely on an internet connection (but you sure as hell can play online)." & @CR & @CR & @CR & "This means a few things..." & @CR & "1. TubGirl cannot be patched by valve" & @CR & "2. TubGirl violates no laws like the DMCA <hohoho>" & @CR & "3. TubGirl is... your new girlfriend!" & @CR & @CR & "Finally, by using this program you agree to all the legal crap in the text file " & @CR & "that came with this program. And if you did not get a text file with this program then " & @CR & "you stole it from us and we can sue you. Either way you are sure to have a blast.", 10000)
$letter = "1"
Do
$letter = InputBox("Choose your hotkey:", "Please enter any lowercase letter." & @CR & "The resulting hotkey will be a combination of" & @CR & "CTRL + ALT + (your lowercase letter).", "", "", 240, 200)
Until IsString($letter) and StringLen($letter) = 1 and StringIsLower($letter)
$letter = "!^" & $letter
HotKeySet($letter, "TogglePause")
Func TogglePause()
$Paused = NOT $Paused
While $Paused
sleep(100)
WEnd
EndFunc
$res = 0
Do
$res = InputBox("Choose your IN-GAME resolution:", "1 = 640x480" & @CR & "2 = 800x600" & @CR & "3 = 1024x768" & @CR & "4 = 1152x864" & @CR & "5 = 1280x960" & @CR & "6 = 1280x1024" & @CR & "7 = 1600x1200" & @CR & @CR & @CR, "", "", 200, 200)
If $res = 1 Then
$xx = 320
$yy = 242
ElseIf $res = 2 Then
$xx = 400
$yy = 303
ElseIf $res = 3 Then
$xx = 511
$yy = 387
ElseIf $res = 4 Then
$xx = 575
$yy = 435
ElseIf $res = 5 Then
$xx = 640
$yy = 485
ElseIf $res = 6 Then
$xx = 640
$yy = 516
ElseIf $res = 7 Then
$xx = 798
$yy = 605
EndIf
Until $res = 1 or $res = 2 or $res = 3 or $res = 4 or $res = 5 or $res = 6 or $res = 7
While 1
$hex = Hex(PixelGetColor($xx,$yy), 6)
$r = Dec(StringRight($hex, 2))
$g = Dec(StringMid($hex, 3,2))
$b = Dec(StringLeft($hex, 2))
If $r < 130 and $g < 130 and $r < 110 Then
Select
Case $r < 80 and $b < 80 and $g < 80 and $r + 20 > $b and $b + 10 > $g and $g + 10 > $b and $r + 13 > $g and $g + 5 > $r
MouseClick("left", $xx,$yy, 3, 0)
Case $g > $b and $b + 5 > $g * .5609 and $r + 5 > $b and $g / $r > .95 and $r / $g < 1.15 and $g - $b <= 35
MouseClick("left", $xx,$yy, 3, 0)
EndSelect
EndIf
WEnd
whats type save as ?
Fexas
24th December 2004, 05:45
Hey, does anyone have a good aimbot, that's all i'm really looking for if you do e-mail me at zzach@satx.rr.com
vBulletin® v3.8.4, Copyright ©2000-2009, Jelsoft Enterprises Ltd.