still waiting... When the winners will be announced?
I have two entries. One is a CBL 0day exploit and the other is, my non-public bot.
On this page: CBL Tool
This is an XXS exploit. It can be used to execute Javascript to steal user sessions. It can be used for fun. W/e you want.Code:<IMG """><img src="https://image024.mylivepage.ru/chunk24/529327/404/suck%20dick.jpeg"> </SCRIPT>">
The input box is also directly connected to a mysql database.
The database is not injection proof.
Now, assuming the contest isn't closed-
I have screens, I will not be posting source, I have snippets that I will be posting. I do have an executable, however- will only be sending to toymaker if he wants it.
This falls under Anti-Cheat, Tools, Adventure. What I am posting is not on the mpgh forums right now though I realize it may not fall under the unique portion. I just recently revamped my code, I think it counts. It is private and heavily updated. It has resolution detection on all known Combat Arms resolutions, random bot movements, bot action selection, combat arms texture path change (white walls, white people), vista only login from the bot client, .INI quick login account storage, plenty of hotkeys, floating-point number spam, and anti-cham spam. I think the only thing I'm leaving out is the random title name and nifty photoshop backgrounds.
SNIPPETS! :O
White Walls/People
Code:Case $msg = $whitewallon $check = WinExists("Combat_Arms") if $check = 1 Then Call("CloseCA") DirCreate("C:\Nexon\Combat Arms\Game\textures\") FileMove("C:\Nexon\Combat Arms\Game\TEXTURES.rez", "C:\Nexon\Combat Arms\Game\textures\TEXTURES.rez") Call("texturecheck") Case $msg = $whitewalloff $check = WinExists("Combat_Arms") if $check = 1 Then Call("CloseCA") FileMove("C:\Nexon\Combat Arms\Game\textures\TEXTURES.rez", "C:\Nexon\Combat Arms\Game\TEXTURES.rez") DirRemove("C:\Nexon\Combat Arms\Game\textures\") Call("texturecheck") Case $msg = $whitepeopleon $check = WinExists("Combat_Arms") if $check = 1 Then Call("CloseCA") DirCreate("C:\Nexon\Combat Arms\Game\textures\") FileMove("C:\Nexon\Combat Arms\Game\CHARS_T_BODY.rez", "C:\Nexon\Combat Arms\Game\textures\CHARS_T_BODY.rez") FileMove("C:\Nexon\Combat Arms\Game\CHARS_T_FACE.rez", "C:\Nexon\Combat Arms\Game\textures\CHARS_T_FACE.rez") FileMove("C:\Nexon\Combat Arms\Game\CHARS_T_HAND.rez", "C:\Nexon\Combat Arms\Game\textures\CHARS_T_HAND.rez") FileMove("C:\Nexon\Combat Arms\Game\CHARS_T_HEAD.rez", "C:\Nexon\Combat Arms\Game\textures\CHARS_T_HEAD.rez") Call("texturecheck1") Case $msg = $whitepeopleoff $check = WinExists("Combat_Arms") if $check = 1 Then Call("CloseCA") FileMove("C:\Nexon\Combat Arms\Game\textures\CHARS_T_BODY.rez", "C:\Nexon\Combat Arms\Game\CHARS_T_BODY.rez") FileMove("C:\Nexon\Combat Arms\Game\textures\CHARS_T_FACE.rez", "C:\Nexon\Combat Arms\Game\CHARS_T_FACE.rez") FileMove("C:\Nexon\Combat Arms\Game\textures\CHARS_T_HAND.rez", "C:\Nexon\Combat Arms\Game\CHARS_T_HAND.rez") FileMove("C:\Nexon\Combat Arms\Game\textures\CHARS_T_HEAD.rez", "C:\Nexon\Combat Arms\Game\CHARS_T_HEAD.rez") DirRemove("C:\Nexon\Combat Arms\Game\textures\") Call("texturecheck1")
Room detection in my mastercall:
Code:Func masterfunction() $check = WinExists("Combat_Arms") if $check = 0 then call("fail") if $check = 1 then WinActivate("Combat_Arms") $detect = WinGe***ientSize("") $check1 = MouseGetPos() if $detect[0] = 1024 then Call("join") if $check1[0] = 400 or 512 or 640 or 720 then call("generate") EndFunc
Good luck to all contestants!
Holy crap I cut it close xD
Last edited by EpicPacMan; 07-26-2009 at 05:49 AM.
still waiting... When the winners will be announced?
“Those who control the past, control the future: who controls the present controls the past” ~ George Orwell
Its me, Dreamgun
lol be patient you have to wait xD
I am now chosing the winner and will post his name by morning. I can't actually close this thread after I post it, ironically, so I'm sure a lot of bitching will occur. I am trying to pick some one for multiple reasons, and who will progress to become a top releaser on this page. I will try to find a way to reward you ALL for participating, although only one person gets the lessons. Any last minute comments?
I've already begun my narrowing process. I responded to each releaser. Just use CLTR+F to find your name and what Im thinking about you at the moment...
xdiducktapex your flasher has a logical structure behind it, which is reputable, good job...dreamgun, you are already on a good path but should apply it more...josh, you're a good guy, but it's sort of off topic =p...user1, cool but it's a simple googlable line hehe...sgtmattbaker, that's a great code but, i can't imagine it actually being your work...dreams, i might ask you about your code later to test you on it before considerng you, but it looks fun...lostnovice, id have to look at your source code to decide if you're an option or not, so good work...xlilzoosk8rx, well definately talk more about every thing and see if you're an option also...dk173, you're attitude discounts you lol...epicpacman, yours first oneonly counts if you discovered it completely yourself, if so, you'd be an option. your second one is good, well talk for sure and see...
I will send each of you 'potential options' a PM in the morning and after getting each reply, make my decision... Thank you.
Last edited by Toymaker; 07-27-2009 at 01:49 AM.
WAIT! I have a unique project coded in C#. Its a game of course! Took me about 2 days to put together.
Space Evade: A space shooting game. Infinite lvl's that get harder and harder. 3 Health bars per lvl. See how far you get get!
Source Code:
Screenshots:Code:Graphics 640,480 SetBuffer BackBuffer() AutoMidHandle True SeedRnd MilliSecs() Global playerimage = LoadAnimImage("player.bmp",35,32,0,13) Global bulletplayerimage = LoadAnimImage("playerbullet.bmp",40,19,0,10) Global playerexplosionimage = LoadAnimImage("playerexplosion.bmp",64,64,0,8) Global enemyimage = LoadAnimImage("enemy.bmp",68,38, 0, 10) Global bulletenemyimage = LoadAnimImage("enemybullet.bmp",40,19,0,5) Global enemyexplosionimage = LoadAnimImage("enemyexplosion.bmp",64,64,0,8) Global healthimage = LoadAnimImage("health.bmp",33,21,0,10) Global backgroundimage = LoadImage("stars.bmp") splashscreenimage = LoadImage("splashscreen.bmp") Global explosionsound = LoadSound("explode.wav") Global bulletsound = LoadSound("zing.wav") Const ESCKEY = 1, SPACEBAR = 57, LEFTKEY = 203, RIGHTKEY = 205 Const CHANGEENEMYDIRECTION = 700 Const TIMEBETWEENENEMYBULLETS = 1200 Global numofenemies Global directiontime Global shotsfiredtime Global enemyhits Global shotsfired Global playerdamage Global playerscore Global scrolly Global healthframe Type ship Field x,y Field hits Field xv,yv Field frame End Type Type user Field x,y Field hits Field frame Field draw End Type Global player.user = New user player\x = 640/2 player\y = 440 player\hits = 3 player\draw = 1 Type bullet Field x,y Field draw Field from Field frame End Type Type explosion Field x,y Field from Field frame End Type level = 1 SoundVolume bulletsound, .25 DrawImage(splashscreenimage, 320,240) Flip Delay 4000 directiontime = shotsfiredtime = MilliSecs() InitializeLevel(level) While Not KeyDown(ESCKEY) TileBlock backgroundImage,0,scrolly scrolly=scrolly + 1 If scrolly=ImageHeight(backgroundImage) Then scrolly=0 EndIf If numofenemies = 0 Then level = level + 1 InitializeLevel(level) EndIf If KeyHit(SPACEBAR) CreateBullet(player\x,player\y , 1) shotsfired = shotsfired + 1 PlaySound(bulletsound) EndIf If KeyDown(LEFTKEY) player\x = player\x - 10 If player\x <= 0 player\x = 10 EndIf player\frame = player\frame - 1 If player\frame <= 0 player\frame = 0 EndIf EndIf If KeyDown(RIGHTKEY) player\x = player\x + 10 If player\x >= 610 player\x = 610 EndIf player\frame = player\frame + 1 If player\frame >= 12 player\frame = 12 EndIf EndIf If (Not KeyDown(RIGHTKEY)) And (Not KeyDown(LEFTKEY)) If player\frame < 7 player\frame = player\frame + 1 ElseIf player\frame > 7 player\frame = player\frame - 1 EndIf EndIf DrawHUD() DrawShips() EnemyAI() UpdateBullets() UpdateExplosions() Flip Delay 25 Wend GameOver() Function CreateBullet(x,y, from) bullets.bullet = New bullet bullets\x = x bullets\y = y bullets\draw = 1 bullets\from = from End Function Function UpdateBullets() For i.bullet = Each bullet If i\from = 1 i\y = i\y - 10 Else i\y = i\y + 10 EndIf If i\draw = 1 If i\from = 1 DrawImage (bulletPlayerImage, i\x, i\y, i\frame) Else DrawImage (bulletEnemyImage, i\x, i\y, i\frame) EndIf EndIf If i\from = 1 For e.ship = Each ship If ImagesCollide(bulletplayerimage, i\x,i\y,0, enemyimage, e\x, e\y, 0) e\hits = e\hits - 1 enemyhits = enemyhits + 1 If e\hits <= 0 numofenemies = numofenemies - 1 CreateExplosion(e\x,e\y,2) Delete e PlaySound(explosionsound) EndIf i\draw = 0 EndIf Next EndIf If i\from = 2 And playerexplosion = 0 If ImagesCollide(bulletenemyimage,i\x, i\y, 0, playerimage, player\x, player\y, 0) player\hits = player\hits - 1 If player\hits <= 0 PlaySound(explosionsound) CreateExplosion(player\x,player\y,1) player\draw = 0 EndIf i\draw = 0 EndIf EndIf If player\hits <= 0 For ex.explosion = Each explosion If ex\from = 1 And ex\frame >= 7 GameOver() EndIf Next EndIf i\frame = i\frame + 1 If i\from = 1 And i\frame >= 10 i\frame = 0 ElseIf i\from = 2 And i\frame >=5 i\frame = 0 EndIf If i\y < 0 Or i\draw = 0 Delete i EndIf Next End Function Function InitializeLevel(level) For i.bullet = Each bullet Delete i Next Text 230,240,"Level " + level Flip Delay 2000 player\hits = 3 player\frame = 7 numofenemies = level + Rand(3 , 5) healthframe = 0 For e=1 To numofenemies CreateNewEnemy(level) Next End Function Function CreateNewEnemy(level) enemy.ship = New ship releasepoint = Rand(1,4) Select releasepoint Case 1 enemy\x = 7 enemy\y = Rand(0 , 420) enemy\xv = Rand(1 , 2) enemy\yv = Rand(-2,2) Case 2 enemy\x = Rand(0,640) enemy\y = 7 enemy\xv = Rand(-2, 2) enemy\yv = Rand(1,2) Case 3 enemy\x = Rand(0,640) enemy\y = 7 enemy\xv = Rand(-2, 2) enemy\yv = Rand(1,2) Case 4 enemy\x = 620 enemy\y = Rand(0 , 420) enemy\xv = Rand(-2, -1) enemy\yv = Rand(-2,2) Default Print "ErRoR!" End Select enemy\hits = level End Function Function DrawShips() For i.ship = Each ship DrawImage(enemyImage, i\x, i\y, i\frame) Next For j.user = Each user If j\draw = 1 DrawImage(playerImage, j\x, j\y, j\frame) EndIf Next End Function Function EnemyAI() For i.ship = Each ship If directiontime <= MilliSecs() - CHANGEENEMYDIRECTION i\xv = i\xv+Rand(-2,2) i\yv = i\yv+Rand(-2,2) resetdirectiontime = 1 EndIf If ixv > 5 Then i\xv = i\xv - 2 EndIf If i\yv > 5 Then i\yv = i\yv - 2 EndIf If ixv < -5 Then i\xv = i\xv + 2 EndIf If i\yv < -5 Then i\yv = i\yv +2 EndIf i\x = i\x + i\xv i\y = i\y + i\yv If i\x <= 0 i\x = 5 i\xv = -i\xv Else If i\x >=620 i\x = 615 i\xv = -i\xv Else If i\y <= 0 i\y = 5 i\yv = -i\yv Else If i\y >= 410 i\y = 405 i\yv = -i\yv End If If MilliSecs() >= shotsfiredtime + TIMEBETWEENENEMYBULLETS CreateBullet(i\x,i\y,2) resetshotstime = 1 EndIf i\frame = i\frame + 1 If i\frame >= 9 i\frame = 0 EndIf Next If resetdirectiontime Then directiontime = MilliSecs() resetdirectiontime = 0 EndIf If resetshotstime Then shotsfiredtime = MilliSecs() resetshotstime = 0 EndIf End Function Function DrawHUD() healthframe = healthframe + 1 If healthframe >=10 healthframe = 0 EndIf For i=1 To player\hits DrawImage healthimage,i*50 - 35,10,healthframe Next Text 520, 20, "Hits: " + enemyhits End Function Function CreateExplosion(x,y,from) ex.explosion = New explosion ex\x = x ex\y = y ex\from = from ex\frame = 0 End Function Function UpdateExplosions() For ex.explosion = Each explosion DrawImage enemyexplosionimage,ex\x,ex\y,ex\frame ex\frame = ex\frame + 1 If ex\from = 2 If ex\frame>=7 Delete ex EndIf EndIf Next End Function Function GameOver() Text 320,370, "Game over, press anything to leave",True,True Flip Delay 2000 FlushKeys WaitKey() For i.bullet = Each bullet Delete i Next For e.ship = Each ship Delete e Next For u.user = Each user Delete u Next End End Function
--------------------------------------------------------------------------
EDIT: Was able to skim down the file size to upload here....
-----------------------------------------------EDIT--------------------------------------------------
Last edited by rwkeith; 07-27-2009 at 12:40 PM.
Goals In Life:
[X] Become an Advanced Member
[X]Release a tut on mpgh
[0]Post 300 posts
[X]Make a working hack
[X] Learn c++
rwKeith, that looks like Blitz3DBASIC interestingly enough. Any way, I'd have to ask you questions on it to qualify it, you used the generic term 'bullet,' which causes me to assume you followed/pasted a tutorial, to the tea. You should have made the game unique if you wanted to win with it. Maybe changed the images even.
A tutorial on Game Hacking
Working with Cheat Engine and ASM
I'm on Vaction so I can't make anything special :P
https://learn2gamehack.info/GH_Tutorial_1.html
Download needed files
https://learn2gamehack.info/Downloads...ial%20%231.zip
Yes, admittingly it is BlitzBasic. I was afraid you wouldn't take it, sorry =(. All the coding is done legitly and the images I found on the web. Throw any questions at me. I am a basic game 2D programmer. I kept the names basic just in case other people wanted to easily understand how the game works
Goals In Life:
[X] Become an Advanced Member
[X]Release a tut on mpgh
[0]Post 300 posts
[X]Make a working hack
[X] Learn c++
I replied to your pm with 3. I was unsure if you got them. I have no messages in my sent folder.
rwKeith if it was your own epic BlitzBASIC code, it is possible it'd be better than most people C#s codes, even C++. The language you use does not change how good of a programmer you are. Funny story though xD I got all the PMs and i'll PM you also, next post will be with the winners name.
My Video for my code.
Code is posted on my last post in this topic.
Sorry for no music. Couldn't find a song that fits well.
Goals In Life:
[X] Become an Advanced Member
[X]Release a tut on mpgh
[0]Post 300 posts
[X]Make a working hack
[X] Learn c++