#include <global.au3>
Opt('ExpandVarStrings', 1)
$geld = "$"
$zombie = ""
$mdata = ""
$var = ""
$item = ""
$version = "0.1 Beta"
$dat1 = ""
$gewinn = ""
$gewinnabfrage = ""
$side2 = ""
$html = ""
$respawn = "60"
$marque = ""
$masterpw = "quiz"
$retourn = ""
$url = ""
$iniuser = ""
$befallsms = ""
$inipic = ""
$virtual = IniReadSectionNames(@ScriptDir & "\virtual.ini")
$kuser = ""
$kwert = ""
$hat = ""
$wartung = "0"
$kostet = ""
Const $side = IniRead(@ScriptDir & "/spammer.ini", "game angaben", "seite", "")
Const $botn = IniRead(@ScriptDir & "/spammer.ini", "game angaben", "user", "")
Const $botp = IniRead(@ScriptDir & "/spammer.ini", "game angaben", "passwort", "")
Dim $maillesen
$spammtext = ""
$data = ""
$pause = "1"
Const $hw_open = _WinHttpOpen("Mozilla/5.0 (Windows; U; Windows NT 6.1; de; rv:1.9.2.12) Gecko/20101026 Firefox/3.6.12")
Const $hw_connect = _WinHttpConnect($hw_open, "www." & $side & "")
While 1
	$pause = IniRead(@ScriptDir & "/spammer.ini", "pause", "minute", "0")
	$respawn = $pause * 60 + 20
	While 1
		_LOGIN()
		_MAILGUCK()
		_SEITE()
		Sleep($pause * 30000)
	WEnd
WEnd
Func _LOGIN()
	$post1 = "username=" & $botn & "&password=" & $botp & "&submit=Anmelden"
	Sleep(100)
	TrayTip("", "Login", 6)
	Sleep(1000)
	$h_openRequest = _WinHttpOpenRequest($hw_connect, "POST", $side2 & "/login", "HTTP/1.1", "http://www." & $side & "/")
	_WinHttpSendRequest($h_openRequest, "Content-Type: application/x-www-form-urlencoded; charset=UTF-8", $post1)
	_WinHttpReceiveResponse($h_openRequest)
	Sleep(100)
	Do
		$data &= _WinHttpReadData($h_openRequest)
	Until @error
	_WinHttpCloseHandle($h_openRequest)
EndFunc   ;==>_LOGIN
Func _MAILGUCK()
	$mailrequest = _WinHttpOpenRequest($hw_connect, "POST", $side2 & "/mail/inbox", "HTTP/1.1", "http://www." & $side & "/")
	_WinHttpSendRequest($mailrequest, "Content-Type: application/x-www-form-urlencoded; charset=UTF-8" & @CRLF, "")
	_WinHttpReceiveResponse($mailrequest)
	$mdata = ""
	Do
		$mdata &= _WinHttpReadData($mailrequest)
	Until @error
	_WinHttpCloseHandle($mailrequest)
	If IsArray($mdata) Then Return 0
	Global $AMOD = _StringBetween($mdata, "<h1>Posteingang</h1>", "</table")
	If Not IsArray($AMOD) Then Return 0
	$maillesen = StringRegExp($AMOD[0], 'href="mail/inbox/(.*?)">', 3)
	$MAIL = UBound($maillesen)
	For $d = 0 To UBound($maillesen) - 1
		ConsoleWrite($maillesen[$d] & @CRLF)
		$mailrequest2 = _WinHttpOpenRequest($hw_connect, "POST", $side2 & "/mail/inbox/" & $maillesen[$d], "HTTP/1.1", "http://www." & $side & "/")
		_WinHttpSendRequest($mailrequest2, "Content-Type: application/x-www-form-urlencoded; charset=UTF-8" & @CRLF, "")
		_WinHttpReceiveResponse($mailrequest2)
		$mdata2 = ""
		Do
			$mdata2 &= _WinHttpReadData($mailrequest2)
		Until @error
		_WinHttpCloseHandle($mailrequest2)
		If IsArray($mdata2) Then Return 0
		Global $amod2 = _StringBetween($mdata2, '<td><a href="mail/blacklist">Black-List</a></td>', '<table class="wrap_table">')
		If StringInStr($amod2[0], "spammerexit", 0) Then ConsoleWrite("spammerexit" & @CRLF)
		If StringInStr($amod2[0], "Systemnachricht", 0) Then
			TrayTip("", "lösche systemnachricht" & $maillesen[$d], 10)
			$mailrequest3 = _WinHttpOpenRequest($hw_connect, "POST", $side2 & "/mail/inbox/" & $maillesen[$d], "HTTP/1.1", "http://www." & $side & "/")
			_WinHttpSendRequest($mailrequest3, "Content-Type: application/x-www-form-urlencoded; charset=UTF-8", "delete=1&confirm=Ja")
			_WinHttpReceiveResponse($mailrequest3)
		ElseIf StringInStr($amod2[0], "Eventmanager", 0) Then
			TrayTip("", "lösche Eventmanager" & $maillesen[$d], 10)
			$mailrequest4 = _WinHttpOpenRequest($hw_connect, "POST", $side2 & "/mail/inbox/" & $maillesen[$d], "HTTP/1.1", "http://www." & $side & "/")
			_WinHttpSendRequest($mailrequest4, "Content-Type: application/x-www-form-urlencoded; charset=UTF-8", "delete=1&confirm=Ja")
			_WinHttpReceiveResponse($mailrequest4)
		Else
			$mailpunkt = IniRead(@ScriptDir & "/spammer.ini", "Gesammt", "mails", "0")
			IniWrite(@ScriptDir & "/spammer.ini", "Gesammt", "mails", $mailpunkt + 1)
			$userlesen = StringRegExp($amod2[0], 'href="member/(.*?)"', 3)
			$usercheck = StringRegExp($amod2[0], 'href="member/(.*?)"', 3)
			$maillesen2 = StringRegExp($amod2[0], '<td colspan="4" class="tcell">(.*?)</td>', 3)
			If $maillesen2 = @error Then Return
			ConsoleWrite($userlesen[0] & " user" & @CRLF)
			ConsoleWrite($maillesen2[0] & " txt" & @CRLF)
			$var = $maillesen2[0]
			Global $retourn = $userlesen[0]
			$iniuser = $userlesen[0]
			For $n = 0 To UBound($virtual) - 1
				If StringInStr($maillesen2[0], $virtual[$n], 0) Then
					$item = $virtual[$n]
					$virtuallitem = IniReadSection(@ScriptDir & "/virtual.ini", $var)
					$kostet = IniRead(@ScriptDir & "/virtual.ini", $item, "kostet", "0")
					$geld = IniRead(@ScriptDir & "/virtual.ini", $item, "geld", "0")
					$mailrequest5 = _WinHttpOpenRequest($hw_connect, "POST", $side2 & "/mail/inbox/" & $maillesen[$d], "HTTP/1.1", "http://www." & $side & "/")
					_WinHttpSendRequest($mailrequest5, "Content-Type: application/x-www-form-urlencoded; charset=UTF-8", "delete=1&confirm=Ja")
					_WinHttpReceiveResponse($mailrequest5)
					_TEST()
				EndIf
			Next
		EndIf
	Next
EndFunc   ;==>_MAILGUCK
Func _TEST()
	$h_openRequest = _WinHttpOpenRequest($hw_connect, "POST", "/admin/edit-member/" & $iniuser, "HTTP/1.1", "http://www." & $side & "/")
	_WinHttpSendRequest($h_openRequest, "Content-Type: application/x-www-form-urlencoded; charset=UTF-8" & @CRLF, "")
	_WinHttpReceiveResponse($h_openRequest)
	$DATA2 = ""
	Do
		$DATA2 &= _WinHttpReadData($h_openRequest)
	Until @error
	_WinHttpCloseHandle($h_openRequest)
	$USERGUCK = _StringBetween($DATA2, '"tcell">Benutzername</td>', "</tr>")
	$USERGUCK1 = StringRegExp($USERGUCK[0], 'class="tcell"><a href="member/(.*?)"', 3)
	ConsoleWrite($USERGUCK1[0] & @CRLF)
	$item = ""
	$user = ""
	$testuser = IniRead(@ScriptDir & "/virtual.ini", $item, $user, "")
	$testuser1 = IniReadSection(@ScriptDir & "/virtual.ini", $item)
	ConsoleWrite("Compare: '" & $testuser & "' = '" & $USERGUCK1[0] & "'" & @CRLF)
	ConsoleWrite("Compare1: '" & $testuser1 & "' = '" & $USERGUCK1[0] & "'" & @CRLF)
	If $testuser == $USERGUCK1[0] Then
		ConsoleWrite("Ja vorhanden")
	Else
		ConsoleWrite("Nein vorhanden")
	EndIf
EndFunc   ;==>_TEST
Func _KONTO()
	Local $buchungcount
	$h_openRequest = _WinHttpOpenRequest($hw_connect, "POST", "/admin/edit-member/" & $iniuser, "HTTP/1.1", "http://www." & $side & "/")
	_WinHttpSendRequest($h_openRequest, "Content-Type: application/x-www-form-urlencoded; charset=UTF-8" & @CRLF, "")
	_WinHttpReceiveResponse($h_openRequest)
	$DATA2 = ""
	Do
		$DATA2 &= _WinHttpReadData($h_openRequest)
	Until @error
	_WinHttpCloseHandle($h_openRequest)
	$GELDGUCK3 = _StringBetween($DATA2, '"tcell">Konto</td>', "</tr>")
	$MMCODE = StringRegExp($GELDGUCK3[0], 'class="tcell">&#(.*?);&nbsp;', 3)
	ConsoleWrite($MMCODE[0] & @CRLF)
	$GELDGUCK2 = StringRegExp($GELDGUCK3[0], 'class="tcell">&#' & $MMCODE[0] & "(.*?)</td>", 3)
	ConsoleWrite($GELDGUCK2[0] & @CRLF)
	$GELDGUCK1 = StringReplace($GELDGUCK2[0], ".", "", 0)
	$GELDER = StringReplace($GELDGUCK1, ";&nbsp;", "", 0)
	ConsoleWrite($GELDER & " grösser als  " & $kostet & @CRLF)
	ConsoleWrite($iniuser & " hat " & $GELDER & " am Konto kauft um  " & $kostet & @CRLF)
	If Number($kostet) <= Number($GELDER) Then
		ConsoleWrite("ja" & @CRLF)
		$zombie = $iniuser
		$userpunkt = IniRead(@ScriptDir & "/virtual.ini", $item, $iniuser, "0")
		IniWrite(@ScriptDir & "/virtual.ini", $item, $iniuser, $userpunkt + 1)
		IniWrite(@ScriptDir & "/bucher.ini", "Auszahlungen", $iniuser, $buchungcount)
		ConsoleWrite($userpunkt & " punkt und ok gefunden " & @CRLF)
		ConsoleWrite($kostet & " kosten " & @CRLF)
		ConsoleWrite($geld & " Pro Stund " & @CRLF)
		$post30 = "bank=" & $kostet & "&min=%2B"
		$befallsms = "Item wurde gekauft&message=Du hasst einmal " & $item & " gekauft " & $kostet & "$ wurden abgezogen"
		_mail()
		$h_openRequest = _WinHttpOpenRequest($hw_connect, "POST", "/admin/edit-member/" & $iniuser, "HTTP/1.1", "http://www." & $side & "/")
		_WinHttpSendRequest($h_openRequest, "Content-Type: application/x-www-form-urlencoded; charset=UTF-8", $post30)
		_WinHttpReceiveResponse($h_openRequest)
		ConsoleWrite("kontoabzug: " & $kostet & @CRLF)

		$var = ""
		$item = ""
		$buchungcount = "168"
	Else

		ConsoleWrite("nein nicht abgezogen" & @CRLF)
		$zombie = $iniuser
		$befallsms = "Item wurde Nicht gekauft&message= " & $item & " kostet " & $kostet & "$ bitte auf dein konto buchen" & @CRLF & "naja oder mich freud es gerade nicht " & @CRLF & "versuchs nochmal"
		_mail()
		Sleep(1000)
	EndIf
	$var = ""
	$item = ""
	$kostet = ""
	$kuser = ""
	$kwert = ""
	$hat = ""
EndFunc   ;==>_KONTO
Func _mail()

	ConsoleWrite("maile an. " & $zombie & @CRLF)
	TrayTip("", "Maile an " & $zombie, 10)
	Sleep(500)
	$request3 = _WinHttpOpenRequest($hw_connect, "POST", $side2 & "/mail/to/" & $zombie, "HTTP/1.1", "http://www." & $side & "/")
	_WinHttpSendRequest($request3, "Content-Type: application/x-www-form-urlencoded; charset=UTF-8" & @CRLF, "")
	_WinHttpReceiveResponse($request3)
	Sleep(100)
	$mdata4 = ""
	Do
		$mdata4 &= _WinHttpReadData($request3)
	Until @error
	_WinHttpCloseHandle($request3)

	Global $mailstring = _StringBetween($mdata4, '<input type="hidden" name="newreply" value="1"/><input type="hidden" name="sendmail" value="1"/>', '</div>')
	If @error Then ConsoleWrite(@error & @CRLF);Return

	ConsoleWrite($mailstring[0] & @CRLF)
	$code1 = StringRegExp($mailstring[0], 'class="submit good" type="submit" name="(.*?)"', 3)
	ConsoleWrite($code1[0] & @CRLF)
	$code4 = StringRegExp($mailstring[0], 'class="submit bad" type="submit" name="(.*?)"', 3)

	$code2 = StringRegExp($mailstring[0], 'type="hidden" name="challenge" value="(.*?)"', 3)
	ConsoleWrite($code2[0] & @CRLF)
	$code3 = StringRegExp($mailstring[0], 'hidden" name="sess" value="(.*?)"', 3)
	ConsoleWrite($code3[0] & @CRLF)
	ConsoleWrite($code4[0] & @CRLF)
	$gewinn4 = IniRead(@ScriptDir & "/spammer.ini", "data", "data1", "0")


	;Danke+f%FCr+deine+Mail&message=%5Bimg%5Dhttp%3A%2F%2Fwww.robert-abele.de%2Fwp-content%2Fuploads%2F2011%2F05%2Fmail-icon.gif%5B%2Fimg%5D%0D%0ASo+wie+du+mich+bespammst+so+bespamm+ich+dich+%3AD%0D%0AEs+wurden+dir+20.000%24+aufgebucht.%0D%0A%0D%0Alg.+dein+spammy&newreply=1&sendmail=1&R_YHHX=Nachricht+senden&challenge=2893452&sess=1f0b45caba635edf6c058198335ce601

	$send = "to=" & $zombie & "&subject=" & $befallsms & "&newreply=1&sendmail=1&" & $code1[0] & "=Nachricht+senden&challenge=" & $code2[0] & "&sess=" & $code3[0]
	$openRequest = _WinHttpOpenRequest($hw_connect, "POST", $side2 & "/mail/to/" & $zombie, "HTTP/1.1", "http://www." & $side & "/")
	_WinHttpSendRequest($openRequest, "Content-Type: application/x-www-form-urlencoded; charset=UTF-8", $send)
	_WinHttpReceiveResponse($openRequest)
	ConsoleWrite($send & @CRLF)

EndFunc   ;==>_mail
Func _gewinn()
	$mailrequest5 = _WinHttpOpenRequest($hw_connect, "POST", $side2 & "/member/" & $iniuser, "HTTP/1.1", "http://www." & $side & "/")
	_WinHttpSendRequest($mailrequest5, "Content-Type: application/x-www-form-urlencoded; charset=UTF-8" & @CRLF, "")
	_WinHttpReceiveResponse($mailrequest5)
	Sleep(100)
	$mdata5 = ""
	Do
		$mdata5 &= _WinHttpReadData($mailrequest5)
	Until @error
	_WinHttpCloseHandle($mailrequest5)

	If IsArray($mdata5) Then Return 0

	ConsoleWrite($mdata5 & " mdata5 " & @CRLF)



	;$post="protection=1&plus=%2B1"
	;$url="admin/edit-member/"&$iniuser
	;$befallsms="1 STD Schutz&message=%0D%0ADieser+Spamm+brachte+dir+1+STD+schutz%0D%0A%0D%0Alg.+deine+"&$botn

EndFunc   ;==>_gewinn
Func _SEITE()
	$eintrag = IniReadSectionNames(@ScriptDir & "\virtual.ini")
	$ftpseite = "virtual.html"
	Local $server = "freemansworld.de"
	Local $username = "f0078b6a"
	Local $pass = "test"
	$sTitle = 'HTML Tooltip'
	$sSourceFile = @ScriptDir & '\virtual.ini'
	$sDestFile = @ScriptDir & '\' & $ftpseite
	$marque10 = IniRead(@ScriptDir & "/spammer.ini", "marque", "typ", "0")
	$hFile = FileOpen($sDestFile, 2) ; Zieldatei zum schreiben öffnen
	$gesammt = "0"
	$list = 0
	Local $sDest = ''
	$sDest &= '<table style="border-color: #ffff66; border-width: 1px; text-align: center; width: 535px; height: auto;" dir="ltr" border="1" frame="box" rules="all">' & @CRLF
	$sDest &= '<tbody>' & @CRLF
	$sDest &= '<tr>' & @CRLF
	$sDest &= '<td><strong><span>Angebot</span></strong></td>' & @CRLF
	$sDest &= '<td><strong><span>Schmiergeld $</span></strong></td>' & @CRLF
	$sDest &= '<td><strong><span>Verdienst $</span></strong></td>' & @CRLF
	$sDest &= '<td><strong><span>Laufzeit in Min</span></strong></td>' & @CRLF
	$sDest &= '</tr>' & @CRLF
	For $ch = 1 To $eintrag[0]
		$var = IniReadSection(@ScriptDir & "\virtual.ini", $eintrag[$ch])
		$color = "#888888"
		$time = IniRead(@ScriptDir & "/spammer.ini", "itemtimer", $eintrag[$ch], "0")
		$min = _DateDiff('n', _NowCalc(), $time)
		$sDest &= '<tr>' & @CRLF

		$sDest &= '<td><strong><span style="color: ' & $color & ';">' & $eintrag[$ch] & '</span></strong></td>' & @CRLF
		$sDest &= '<td><span style="color: ' & $color & ';">' & $var[1][1] & '$</span></td>' & @CRLF
		$sDest &= '<td><span style="color: ' & $color & ';">' & $var[2][1] & '$</span></td>' & @CRLF
		$sDest &= '<td><span style="color: ' & $color & ';">' & $min & ' min</span></td>' & @CRLF
		$wartung = IniRead(@ScriptDir & "/spammer.ini", "wartung", "wartung", "0")
		If StringInStr($eintrag[$ch], "der_geraet", 0) Then $wartung = 1
		If StringInStr($eintrag[$ch], "scheisshaufen", 0) Then $wartung = 1
		If $min <= "60" Then $wartung = 1
		If $min <= "1" Then $min = "--"
		$sDest &= '<td>' & @CRLF
		$sDest &= '<form action="http://www.' & $side & '/mail/to/' & $botn & '" target="_blank" method="POST"> <input name="subject" type="HIDDEN" value="Kaufen" /> <input name="message" type="HIDDEN" value="Kaufen 1" /> <input name="newreply" type="HIDDEN" value="1" /> ' & @CRLF
		$sDest &= '<input style="height: 0.7cm;" name="register" type="SUBMIT" value="Kaufen" /><input name="subject" type="HIDDEN" value="Ich kaufe 1 Stück" /><input name="message" type="HIDDEN" value="Ich möchte einmal ' & $eintrag[$ch] & '" /><input name="newreply" type="HIDDEN" value="' & $ch & '" /><!--Kaufen ' & $ch & '-->' & @CRLF
		$sDest &= '</td>' & @CRLF
		$sDest &= '</form>' & @CRLF
		$sDest &= '</tr>' & @CRLF
		;EndIf

	Next
	$sDest &= '</tbody>' & @CRLF
	$sDest &= '</table>' & @CRLF

	$sDest &= '<table style="border-color: #ffff66; border-width: 1px; background-color: #363732; text-align: center; width: 535px; height: 32px;" dir="ltr" border="1" frame="box" rules="all">' & @CRLF
	$sDest &= '<tbody>' & @CRLF
	$sDest &= '<tr>' & @CRLF
	$sDest &= '<td><span style="color: #FDFF75;">Besitz</span></td>' & @CRLF
	$sDest &= '<td><strong><span style="color: #FDFF75;">Item</span></strong></td>' & @CRLF

	$sDest &= '<td><strong><span style="color: #FDFF75;">User</span></strong></td>' & @CRLF
	$sDest &= '<td><strong><span style="color: #FDFF75;">$ Stündlich</span></strong></td>' & @CRLF

	$sDest &= '</tr>' & @CRLF

	For $ch = 1 To $eintrag[0]
		$var = IniReadSection(@ScriptDir & "\virtual.ini", $eintrag[$ch])

		For $sh = 3 To $var[0][0]
			$sDest &= '<tr>' & @CRLF
			$color = "#888888"

			$sDest &= '<td><span style="color: ' & $color & ';">' & $var[$sh][1] & '</span></td>' & @CRLF
			$sDest &= '<td><strong><span style="color: ' & $color & ';">' & $eintrag[$ch] & '</span></strong></td>' & @CRLF

			$sDest &= '<td><span style="color: ' & $color & ';">' & $var[$sh][0] & '</span></td>' & @CRLF
			$sDest &= '<td><span style="color: ' & $color & ';">' & $var[$sh][1] * $var[2][1] & '$</span></td>' & @CRLF

		Next
	Next
	$sDest &= '</tr>' & @CRLF
	$sDest &= '</tbody>' & @CRLF
	$sDest &= '</table>' & @CRLF
	$sDest &= '</p>' & @CRLF
	$sDest &= '<table style="border-color: #ffff66; border-width: 10px; background-color: #363732; text-align: center; width: 535px; height: 32px;" dir="ltr" border="1" frame="box" rules="all">' & @CRLF
	$sDest &= '<tbody>' & @CRLF
	$sDest &= '<tr>' & @CRLF

	$sDest &= '<td><span style="color:#888888;">Letzte aktuallisierung um ' & @HOUR & ':' & @MIN & ':' & @SEC & '</span></td>' & @CRLF
	$sDest &= '</tr>' & @CRLF
	$sDest &= '<tr>' & @CRLF
	$sDest &= '<td><span style="color:#888888;">© susi-Virtual version: ' & $version & '</span></td>' & @CRLF

	$sDest &= '</tr>' & @CRLF
	$sDest &= '<tr>' & @CRLF
	$sDest &= '<td><span style="color:#888888;"> Neu Nun wird die Gültichkeit des Items angezeigt!</span></td>' & @CRLF
	$sDest &= '</tr>' & @CRLF

	$sDest &= '</tbody>' & @CRLF
	$sDest &= '</table>' & @CRLF

	;ConsoleWrite($sDest)
	FileWrite($hFile, $sDest)
	FileClose($hFile) ; Datei schließen
	$Open = _FTP_Open('MyFTP Control')
	$Conn = _FTP_Connect($Open, $server, $username, $pass)
	$Ftpp = _FTP_FilePut($Conn, @ScriptDir & '\' & $ftpseite, '/' & $ftpseite, 0x08000000)
	$Ftpc = _FTP_Close($Open)
	IniWrite(@ScriptDir & "/spammer.ini", "Timer", "Time", @YEAR & "/" & @MON & "/" & @MDAY & " " & @HOUR & ":" & @MIN & ":" & @SEC)

	TrayTip("", "FTP übertragen", 6)
EndFunc   ;==>_SEITE