Forfunhack Multihack!

Woj96 · 18 Lipca 2010

Witajcie. Mozecie nie wiezyc ale zrobiłem MultiHack !!!!

Wyobrarzacie to sobie????

Tak to możliwe od czasu załorzenia Corporation AnFrendlyGame utworzyliśmy spambota,autobuffa.alarmnooba,ciękiego fishbota

Ale wracając do rzeczy chce wam pokazac skrypt do niego !!!!!!

Nie jestem niemiły węc wam go pokarze ale nie wiem czemu wykrywa mi 2 trojany i jakieś inne cuda na stronie virustotal moze wie ktos dlaczego ??

#include <ButtonConstants.au3>

#include <EditConstants.au3>

#include <GUIConstantsEx.au3>

#include <StaticConstants.au3>

#include <WindowsConstants.au3>

#include <ComboConstants.au3>

#include <EditConstants.au3>

#include <SliderConstants.au3>

$Form1 = GUICreate("ForFunHack Pokazowa wersja BETA!!!!", 633, 350, 579, 325)

GUISetCursor (2)

GUISetBkColor(0x808080)

$Label1 = GUICtrlCreateLabel("ForFunHack v 2.0 ", 224, 8, 197, 45)

GUICtrlSetFont(-1, 24, 800, 0, "Blackadder ITC")

GUICtrlSetColor(-1, 0xFF0000)

$Label2 = GUICtrlCreateLabel("Speed", 15, 50, 103, 38)

GUICtrlSetFont(-1, 20, 800, 0, "Blackadder ITC")

GUICtrlSetColor(-1, 0x0000FF)

$Label3 = GUICtrlCreateLabel("Speed", 17, 95, 94, 38)

GUICtrlSetFont(-1, 20, 800, 0, "Blackadder ITC")

GUICtrlSetColor(-1, 0x0000FF)

$Label5 = GUICtrlCreateLabel("Hit Atk ", 22, 142, 100, 38)

GUICtrlSetFont(-1, 20, 800, 0, "Blackadder ITC")

GUICtrlSetColor(-1, 0x0000FF)

$Label6 = GUICtrlCreateLabel("RodzajUrerzenia", 23, 187, 106, 38)

GUICtrlSetFont(-1, 20, 800, 0, "Blackadder ITC")

GUICtrlSetColor(-1, 0x0000FF)

$Label7 = GUICtrlCreateLabel("Combo", 34, 226, 73, 38)

GUICtrlSetFont(-1, 20, 800, 0, "Blackadder ITC")

GUICtrlSetColor(-1, 0x0000FF)

$Slider1 = GUICtrlCreateSlider(152, 56, 297, 25, BitOR($TBS_AUTOTICKS,$TBS_FIXEDLENGTH), $WS_EX_CLIENTEDGE)

GUICtrlSetLimit(-1, 10, 0)

GUICtrlSetCursor (-1, 13)

$Slider2 = GUICtrlCreateSlider(153, 101, 297, 25, BitOR($TBS_AUTOTICKS,$TBS_FIXEDLENGTH), $WS_EX_CLIENTEDGE)

GUICtrlSetLimit(-1, 10, 0)

GUICtrlSetCursor (-1, 13)

$Label11 = GUICtrlCreateLabel("ZoomHack", 507, 48, 64, 38)

GUICtrlSetFont(-1, 20, 800, 0, "Blackadder ITC")

GUICtrlSetColor(-1, 0x0000FF)

$Label12 = GUICtrlCreateLabel("Mgla", 507, 120, 77, 38)

GUICtrlSetFont(-1, 20, 800, 0, "Blackadder ITC")

GUICtrlSetColor(-1, 0x0000FF)

$Combo = GUICtrlCreateCombo("Off", 492, 88, 121, 25)

GUICtrlSetData(-1, "On")

GUICtrlSetFont(-1, 10, 400, 0, "Blackadder ITC")

$Combo1 = GUICtrlCreateCombo("Off", 492, 159, 121, 25)

GUICtrlSetData(-1, "On")

GUICtrlSetFont(-1, 10, 400, 0, "Blackadder ITC")

$Combo2 = GUICtrlCreateCombo("Off", 150, 150, 121, 25)

GUICtrlSetData(-1, "On")

GUICtrlSetFont(-1, 10, 400, 0, "Blackadder ITC")

$Combo3 = GUICtrlCreateCombo("Off", 150, 190, 121, 25)

GUICtrlSetFont(-1, 10, 400, 0, "Blackadder ITC")

$Button1 = GUICtrlCreateButton("Attiva", 104, 272, 385, 33, $WS_GROUP)

GUICtrlSetFont(-1, 16, 800, 0, "Blackadder ITC")

GUICtrlSetColor(-1, 0x000000)

GUICtrlSetBkColor(-1, 0xFF0000)

GUICtrlSetCursor (-1, 3)

$Button2 = GUICtrlCreateButton("Idz do ", 424, 216, 177, 41, $WS_GROUP)

GUICtrlSetBkColor(-1, 0x008000)

GUICtrlSetCursor (-1, 0)

$Label13 = GUICtrlCreateLabel("Created By Woj96 for AnFrenglyGameMt2 BETA!!!GG:20706833 )", 8, 320, 516, 17)

GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")

$Combo4 = GUICtrlCreateCombo("Off", 150, 232, 121, 25)

GUICtrlSetData(-1, "1|2")

GUICtrlSetFont(-1, 10, 400, 0, "Blackadder ITC")

GUISetState(@SW_SHOW)

#EndRegion ### END Koda GUI section ###

dim $od,$Addressprinc=0x005F29BC,$Offsets_Move[3] = [0,16,1462],$list,$i,$process,$pid,$esci,$address_Nebbia=0x005D84E1,$value_nebbia_on=5110000,$value_nebbia_off=307163591, $address_Zoom=0x005D5FA6 ,$value_zoom_on=20000, $value_zoom_off=17692

dim $Offsets_Atk[3] = [0,16,1466], $Offsets_x[3] = [0,16,1412], $Offsets_y[3] = [0,16,1416], $Offsets_z[3] = [0,00,1420], $Offsets_Hit[3] = [0,16,1300], $Offsets_Range[3] = [0,16,1458],$Offsets_modatk[3] = [0,0x8,0x440], $Offsets_combo[3] = [0,16,1332]

dim $letto_velmov, $letto_velatk, $letto_rangeatk, $letto_hitatk, $letto_modatk, $letto_combo, $letto_zoom, $letto_nebbia, $letto_x, $letto_y, $letto_z

dim $vaimov, $vaivelatk, $vairange, $vaicombo, $vaizoom, $vainebbia, $modatk,$valuevaihitatk,$valuecombo,$vaiatk,$valuevaimodatk

$i=1

$list=ProcessList ()

Do

if $process="metin2client.bin" Then

$pid=$list[$i][1]

$esci="true"

Else

EndIf

$i=$i+1

until $esci="true"

if not ProcessExists($pid) Then

MsgBox(0, "Ale Noob ", "Przed metinem otwórz hacka")

exit 0

Exit

EndIf

While 1

$nMsg = GUIGetMsg()

Switch $nMsg

Case $GUI_EVENT_CLOSE

Exit

case $button2

ShellExecute ("http://www.anfrendlygamemt2.ugu.pl")

case $button1

GUICtrlSetData ($button1,"Disattiva")

GUICtrlSetFont($button1, 16, 800, 0, "Blackadder ITC")

GUICtrlSetColor($button1, 0x000000)

GUICtrlSetBkColor($button1, 0x008000)

do

$nmsg=GUIGetMsg()

$Od=_MemoryOpen(ProcessExists($pid))

$letto_velmov=guictrlread($slider1)

if $letto_velmov=1 then

$vaimov="false"

elseif $letto_velmov=2 then

$letto_velmov=16256

$vaimov="true"

elseif $letto_velmov=3 then

$letto_velmov=16300

$vaimov="true"

elseif $letto_velmov=4 then

$letto_velmov=16400

$vaimov="true"

elseif $letto_velmov=5 then

$vaimov="true"

$letto_velmov=16500

elseif $letto_velmov=6 then

$vaimov="true"

$letto_velmov=16600

elseif $letto_velmov=7 then

$vaimov="true"

$letto_velmov=16700

elseif $letto_velmov=8 then

$vaimov="true"

$letto_velmov=16800

elseif $letto_velmov=9 then

$vaimov="true"

$letto_velmov=16900

elseif $letto_velmov=10 then

$vaimov="true"

$letto_velmov=17000

EndIf

$letto_velatk=guictrlread($slider2)

if $letto_velatk=1 then

$vaivelatk="false"

elseif $letto_velatk=2 then

$letto_velatk=16256

$vaivelatk="true"

elseif $letto_velatk=3 then

$letto_velatk=16300

$vaivelatk="true"

elseif $letto_velatk=4 then

$letto_velatk=16400

$vaivelatk="true"

elseif $letto_velatk=5 then

$vaivelatk="true"

$letto_velatk=16500

elseif $letto_velatk=6 then

$vaivelatk="true"

$letto_velatk=16600

elseif $letto_velatk=7 then

$vaivelatk="true"

$letto_velatk=16700

elseif $letto_velatk=8 then

$vaivelatk="true"

$letto_velatk=16800

elseif $letto_velatk=9 then

$vaivelatk="true"

$letto_velatk=16900

elseif $letto_velatk=10 then

$vaivelatk="true"

$letto_velatk=17000

EndIf

$letto_zoom=guictrlread($Combo)

if $letto_zoom="Off" Then

$vaizoom="false"

Else

$vaizoom="true"

EndIf

$letto_nebbia=guictrlread($combo1)

if $letto_nebbia="Off" Then

$vainebbia="false"

Else

$vainebbia="true"

EndIf

$letto_hitatk=GUICtrlRead ($combo2)

if $letto_hitatk="Off" Then

$vaihitatk="False"

Else

$vaihitatk="true"

EndIf

$letto_modatk=GUICtrlRead ($Combo3)

if $letto_modatk="Off" Then

$vaimodatk="False"

Else

$vaimodatk="True"

if $letto_modatk="Miecz" then

$valuevaimodatk=2

EndIf

if $letto_modatk="Spadone" then

$valuevaimodatk=3

endif

If $letto_modatk="Pięściami" then

$valuevaimodatk=1

EndIf

If $letto_modatk="Łukiem" then

$valuevaimodatk=5

EndIf

If $letto_modatk="Wędką" then

$valuevaimodatk=8

EndIf

If $letto_modatk="Na koniu" then

$valuevaimodatk=9

EndIf

If $letto_modatk="Z 2 koni" then

$valuevaimodatk=10

EndIf

If $letto_modatk="3 końmi" then

$valuevaimodatk=11

EndIf

If $letto_modatk="Smoking" then

$valuevaimodatk=16

EndIf

$letto_combo=GUICtrlRead($combo4)

if $letto_combo="Off" Then

$vaicombo="False"

Else

$vaicombo="true"

if $letto_combo="Jeden" Then

$valuecombo=1

else

$valuecombo=2

EndIf

if $vaimov="true" Then

_MEMORYPOINTERWRITE($Addressprinc, $Od, $Offsets_Move,$letto_velmov)

Else

EndIf

if $vaivelatk="true" Then

_MEMORYPOINTERWRITE($Addressprinc, $Od, $Offsets_Atk,$letto_velatk)

Else

endif

if $vainebbia="true" Then

_MemoryWrite ($address_nebbia,$od,$value_nebbia_on,'dword')

else

_MemoryWrite ($address_nebbia,$od,306550272,'dword')

EndIf

if $vaizoom="true" Then

_MemoryWrite ($address_Zoom,$od,$value_zoom_on,'dword')

Else

_MemoryWrite ($address_Zoom,$od,17692,'dword')

EndIf

if $vaimodatk="true" then

_MEMORYPOINTERWRITE($Addressprinc, $Od, $Offsets_Modatk,$valuevaimodatk)

else

EndIf

if $vaicombo="true" Then

_MEMORYPOINTERWRITE($Addressprinc, $Od, $Offsets_Combo,$valuecombo)

Else

_MEMORYPOINTERWRITE($Addressprinc, $Od, $Offsets_Combo,0)

EndIf

if $vaihitatk="true" Then

_MEMORYPOINTERWRITE($Addressprinc, $Od, $Offsets_Hit,1)

EndIf

until $nMsg=$button1

GUICtrlSetData ($button1,"Aktywuj")

GUICtrlSetFont($button1, 16, 800, 0, "Blackadder ITC")

GUICtrlSetColor($button1, 0x000000)

GUICtrlSetBkColor($button1, 0xFF0000)

EndSwitch

WEnd

Uwaga Skrypt jest strasznie długiiii!!!

Prosze o pomoc w dopracowaniu go....

Jeżeli nie wierzysz ze my go zrobiliśmy to nie pomagał mi kolega nie podam jego nazwy bo zbanowali go za zachowani : /

Licze na +++++

adwi32 · 18 Lipca 2010

yhy nazwy zmiennych po włosku.... i używaj

aaa

Woj96 · 18 Lipca 2010

Dobra kilka rzeczy z włoskiego

Przyznaje

RobeM · 18 Lipca 2010

nie kilka rzeczy tylko przepisany kod w całości z forum http://www.unfair-gamers.com i nie umiejętnie wyedytowany, zresztą brakuje najważniejszej rzeczy a bez niej nie działa skrypt

jackraymund · 18 Lipca 2010

@up

tej rzeczy ?

#include <Nomad.au3>

OMG x2 speed? + złe tłumaczenie i podpisanie się pod program

+

if not ProcessExists($pid) Then

MsgBox(0, "Ale Noob ", "Przed metinem otwórz hacka")

exit 0

Exit

EndIf

chciałeś napisac najpierw metin potem hack a nie na odwrót...

RobeM · 18 Lipca 2010

lepiej skasuj czego mu brakuje w skrypcie, moze wkoncu znajdzie w temacie skąd zerżną skrypt , powiedzmy nie pierwszy raz podpisując się jako autor a potem na stronie internetowej grożąc konsekwencjami ze bezprawne kopiowanie JEGO skryptów i programów, hehe

a zresztą offsety nie są do polskiej wersji gry

jackraymund · 23 Października 2010

Automatyczna wiadomość.

Ten temat został przeniesiony z forum:

"Niezbędnik Cheatera -> AutoIT"

do:

"Niezbędnik Cheatera -> AutoIT -> Gotowe skrypty i biblioteki".

CreatePL · 23 Kwietnia 2011

Odrazu mówie, że ja bym tego nie napisał. Ale kod nie działa i jest byle jaki

RobeM · 23 Kwietnia 2011

skoro on nawet tego nie napisał bo poziomem znajomości Autoit dorównuje tobie , bez urazy ale na kopiowaniu pracy innych źle się wychodzi zwłaszcza jak ktos nie wie nawet co kopiuje i ile brak w tym co podaje by w ogóle działało

a nie działa bo to do starych wersji gry a tym bardziej że to skrypt do włoskiej wersji metina a nie polskiej

Zaloguj się

👋 Witaj na MPCForum!

Forfunhack Multihack!

Co o niej sądzicie
20 użytkowników zagłosowało

1. Hack jest fajny

Rekomendowane odpowiedzi

Woj96

Woj96

adwi32

adwi32

Woj96

Woj96

RobeM

RobeM

jackraymund

jackraymund

RobeM

RobeM

jackraymund

jackraymund

CreatePL

CreatePL

RobeM

RobeM

Zarchiwizowany

Zaloguj się

👋 Witaj na MPCForum!

Forfunhack Multihack!

Co o niej sądzicie 20 użytkowników zagłosowało

1. Hack jest fajny

Rekomendowane odpowiedzi

Zarchiwizowany

Co o niej sądzicie
20 użytkowników zagłosowało