Czy coś takiego może działać ?

plum2122 · 5 Grudnia 2014

Witam,

Jako, że przeszukiwałem internet w poszukiwaniu autobuyer'a na steam'a ( Potrzebnego do poradnika. ) natknąłem się na coś takiego:

SteamMarket.au3

#include <IE.au3>
#include <Array.au3>
#include <Inet.au3>
#include <String.au3>
#include <SteamMarketGUI.au3>
HotKeySet("{F1}", "_debug")
Global $PriceArray, $Link_CheckCycle[0], $Price_CheckCycle[0], $GUIItemArray[0], $AutoBuy = True, $CheckCycle, $currenyid_Array
$Username = ""
$Password = ""
$Delay = 10000
GUISetState(@SW_SHOW, $Form1)
;$oIE = _IECreate("https://steamcommunity.com/login/home/?goto=market")
 
;_IELoadWait($oIE)
;_Login_IE($oIE, $Username, $Password)
 
				$oIE = _IECreate("https://steamcommunity.com/login/home/?goto=market")
						_IELoadWait($oIE)
						_Login_IE($oIE, $Username, $Username)
 
 
While 1
	Sleep(100)
	While $CheckCycle
 
		For $j = 0 To UBound($Link_CheckCycle) - 1
			$GetLastPrice = _IE_SteamMarketLastPrice($Link_CheckCycle[$j])
			If $GetLastPrice[0] = 0 Then
 
				GUICtrlSetData($GUIItemArray[$j], $Link_CheckCycle[$j] & "|" & $Price_CheckCycle[$j] & "| ERROR!")
			Else
				GUICtrlSetData($GUIItemArray[$j], $Link_CheckCycle[$j] & "|" & $Price_CheckCycle[$j] & "|" & $GetLastPrice[0])
			EndIf
				If $GetLastPrice[0] <= $Price_CheckCycle[$j] Then
 
					If $AutoBuy Then
 
						_IENavigate($oIE, $Link_CheckCycle[$j])
						_IENavigate($oIE, $GetLastPrice[1])
					Else
						Beep()
						MsgBox(0, "", "Price Alarm!")
					EndIf
					_ArrayDelete($Link_CheckCycle, $j)
					_ArrayDelete($Price_CheckCycle, $j)
					_ArrayDelete($GUIItemArray, $j)
				EndIf
 
		Next
		$tstart = TimerInit()
		While Round(TimerDiff($tstart)) < $Delay
			Sleep(10)
			WinSetTitle($Form1,"","Steam Market Bot || " & $Delay - Round(TimerDiff($tstart)) &"ms. to next Refresh")
		WEnd
 
	WEnd
 
WEnd
 
 
 
 
 
 
 
 
 
Func _debug()
	_ArrayDisplay($Link_CheckCycle)
EndFunc   ;==>_debug
 
 
 
Func AddButtonClick()
 
	If Not StringInStr(GUICtrlRead($ItemLinkInput), "steamcommunity.com/market/listings/") Then
		MsgBox(0, "", "Wrong Itemlink!")
	Else
		_ArrayAdd($Link_CheckCycle, GUICtrlRead($ItemLinkInput))
		_ArrayAdd($Price_CheckCycle, GUICtrlRead($BuyPriceInput))
		_ArrayAdd($GUIItemArray, GUICtrlCreateListViewItem(GUICtrlRead($ItemLinkInput) & "|" & GUICtrlRead($BuyPriceInput) & "|" & "", $ListView1))
 
 
	EndIf
EndFunc   ;==>AddButtonClick
 
 
Func _Start()
 
	$CheckCycle = Not $CheckCycle
 
EndFunc   ;==>_Start
 
 
Func BuyPriceInputChange()
 
EndFunc   ;==>BuyPriceInputChange
Func Form1Close()
	Exit
EndFunc   ;==>Form1Close
Func ItemLinkInputChange()
 
EndFunc   ;==>ItemLinkInputChange
 
 
 
 
 
 
 
;currency - id
;USD      -  2001
;GBP      -  2002
;EUR      -  2003
;RUB      -  2005
;BRL      -  2007
Func _IE_SteamMarketLastPrice($ItemLink)
 
 
 
	Local $LastPriceArray[2], $javascript_CMD = "", $LowestCount = 0, $Lowest = ""
	;_IENavigate($oIE, $ItemLink & "/render/?query=&search_descriptions=0&start=0&count=1")
	$FullHtml = BinaryToString(InetRead($ItemLink & "/render/?query=&search_descriptions=0&start=0&count=1"))
 
	$price_Array = _StringBetween($FullHtml, 'price":', ',')
	$fee_Array = _StringBetween($FullHtml, '"fee":', ',')
 
	$listingid_Array = _StringBetween($FullHtml, 'listingid":"', '",')
 
	$appid_Array = _StringBetween($FullHtml, 'appid":', ',')
	$contextid_Array = _StringBetween($FullHtml, 'contextid":"', '",')
	$id_Array = _StringBetween($FullHtml, 'id":"', '",')
	$currenyid_Array = _StringBetween($FullHtml, 'currencyid":"', '",')
	$i = 0
	If $currenyid_Array[$i] = 2003 Then
		$Price = ($price_Array[$i] + $fee_Array[$i]) / 100
	ElseIf $currenyid_Array[$i] = 2001 Then
		$Price = get_kurs(($price_Array[$i] + $fee_Array[$i]) / 100, "USD")
	ElseIf $currenyid_Array[$i] = 2002 Then
		$Price = get_kurs(($price_Array[$i] + $fee_Array[$i]) / 100, "GBP")
	ElseIf $currenyid_Array[$i] = 2005 Then
		$Price = get_kurs(($price_Array[$i] + $fee_Array[$i]) / 100, "RUB")
	ElseIf $currenyid_Array[$i] = 2007 Then
		$Price = get_kurs(($price_Array[$i] + $fee_Array[$i]) / 100, "BRL")
	Else
		MsgBox(0, "ERROR!", "Unkown Currency: " & $currenyid_Array[$i])
 
	EndIf
	$javascript_CMD = "javascript:BuyMarketListing(" & $listingid_Array[$i] & "," & $appid_Array[$i] & "," & $contextid_Array[$i] & "," & $id_Array[$i] & ")"
	$LastPriceArray[0] = $Price
	$LastPriceArray[1] = $javascript_CMD
	Return $LastPriceArray
EndFunc   ;==>_IE_SteamMarketLastPrice
 
 
Func _Login_IE($oIE, $cUsername, $cPassword)
	$oForm = _IEFormGetCollection($oIE, 0)
	$oUser = _IEFormElementGetObjByName($oForm, 'username')
	$oPass = _IEFormElementGetObjByName($oForm, 'password')
	_IEFormElementSetValue($oUser, $cUsername)
	_IEFormElementSetValue($oPass, $cPassword)
	Sleep(500)
	_IENavigate($oIE, "javascript:DoLogin();")
EndFunc   ;==>_Login_IE
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
Func get_kurs($wert, $k_inp)
 
 
	$update = "http://" & $k_inp & ".de.fxexchangerate.com/eur/" & $wert & "-currency-rates.html"
	$read = BinaryToString(InetRead($update))
	$split = _StringBetween($read, '<div class="history_today_s" style="float:left; width:350px; font-size:30px; margin-top:10px;">', 'UR</b>')
	$split1 = _StringBetween($split[0], '<b> ', '  E')
 
	Return $split1[0]
 
EndFunc   ;==>get_kurs

Oraz:

SteamMarketGUI.au3

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <ListViewConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
Opt("GUIOnEventMode", 1)
 
$Form1 = GUICreate("Steam Market Bot", 322, 493, 192, 164, -1, BitOR($WS_EX_APPWINDOW,$WS_EX_TOOLWINDOW,$WS_EX_WINDOWEDGE))
$MenuItem1 = GUICtrlCreateMenu("File")
$MenuItem4 = GUICtrlCreateMenuItem("Start!", $MenuItem1)
GUICtrlSetOnEvent($MenuItem4, "_Start")
$MenuItem3 = GUICtrlCreateMenuItem("Settings", $MenuItem1)
$MenuItem2 = GUICtrlCreateMenuItem("About", $MenuItem1)
GUISetOnEvent($GUI_EVENT_CLOSE, "Form1Close")
$ListView1 = GUICtrlCreateListView("Link|MaxBuyPrice|LowestPrice", 8, 0, 305, 289)
GUICtrlSendMsg($ListView1, $LVM_SETCOLUMNWIDTH, 0, 50)
$Group1 = GUICtrlCreateGroup("Add Item", 8, 296, 305, 169)
$Label1 = GUICtrlCreateLabel("Item Link:", 16, 320, 50, 17)
$ItemLinkInput = GUICtrlCreateInput("http://steamcommunity.com/market/listings/570/Leviathan%20Whale%20Blade", 16, 344, 289, 21)
$Label2 = GUICtrlCreateLabel("Max Buy Price:", 16, 376, 75, 17)
$BuyPriceInput = GUICtrlCreateInput("5", 16, 400, 121, 21)
$AddButton = GUICtrlCreateButton("AddButton", 16, 432, 283, 25)
GUICtrlSetOnEvent($AddButton, "AddButtonClick")
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_HIDE,$Form1)
#EndRegion ### END Koda GUI section ###

Czy coś takiego ma jakiekolwiek prawo działać ? Jest to jakiś rodzaj wirusa/worm'a/czegoś innego ? A jeżeli nie jest to ani skrypt ani wirus - To co to jest ?

Z góry dzięki za odpowiedź.

Pozdrawiam.

IZZER4 · 5 Grudnia 2014

Tak trudno wklepac kod, skompilowac i sprawdzic czy dziala?

plum2122 · 5 Grudnia 2014

Tak trudno wklepac kod, skompilowac i sprawdzic czy dziala?

Dla mnie trochę trudno bo się w ogóle na tym nie znam - Ja ten kod mogę rozczytać na ludzki język ale jak dochodzimy do jakiegoś kompilowania to po prostu mózg mi się wyłącza. Poza tym, mi nie chodzi o uruchomienie, tylko czy jest szansa na działanie czegoś takiego. Just askin'

Pozdrawiam.

IZZER4 · 5 Grudnia 2014

Masz 2 wyjscia

1.Skompiluj kod

2.Przeanalizuj kazda linie z kodem zrodlowym na steam.

Zaloguj się

👋 Witaj na MPCForum!

Czy coś takiego może działać ?

Rekomendowane odpowiedzi

plum2122

plum2122

IZZER4

IZZER4

plum2122

plum2122

IZZER4

IZZER4

Zarchiwizowany