vb6,autoit packet logger?sender,receiver?

blackout617 · 10/11/2012, 09:46

Can anyone help me to make a packet logger or packet receiver and sender for darkorbit or only to make a little tool for learning like a auto skylab upgrader(packet) or bid tool or anything or login bot(packet) ? i have vb6,vb 2008,c#,autoit.

Havelock_Vetinari · 10/11/2012, 09:50

you need WinHttp . Go and get Livehttpheaders for Firefox , then you can read the sended packets of your browser . Just do turn livehhtpheaders on , log in on darkorbit ,then you know what packets you need for an autologin

blackout617 · 10/11/2012, 09:55

Quote:

Originally Posted by Alex_II

you need WinHttp . Go and get Livehttpheaders for Firefox , then you can read the sended packets of your browser . Just do turn livehhtpheaders on , log in on darkorbit ,then you know what packets you need for an autologin

there not existing a plugin for chrome or comodo(i think comodo and chrome is the some

)
?

Havelock_Vetinari · 10/11/2012, 09:56

Quote:

Originally Posted by blackout617

there not existing a plugin for chrome or comodo(i think comodo and chrome is the some )
?

Sure. there will be a lot i think. But my favourite is LiveHttpHeaders for Firefox

blackout617 · 10/11/2012, 10:05

now i found this;
this is the loginform id and pw i think

Code:

loginForm_default_username=thismyac&loginForm_default_password=andmypw&loginForm_default_login_submit=Giri%C5%9F&LPId=2729

before some weeks i test it in vb 2008 there i added a web browser and textboxes and an button and it can login but he cannot select server etc.
now i will make a packet login bot(better,faster

)

after this come the server packets or ?

Havelock_Vetinari · 10/11/2012, 10:08

Quote:
Originally Posted by blackout617
now i found this;
this is the loginform id and pw i think
Code:
loginForm_default_username=thismyac&loginForm_default_password=andmypw&loginForm_default_login_submit=Giri%C5%9F&LPId=2729
before some weeks i test it in vb 2008 there i added a web browser and textboxes and an button and it can login but he cannot select server etc.
now i will make a packet login bot(better,faster )

after this come the server packets or ?

I dont know what you mean with "server packets" ... After Login , you can go to the serverchange menu , then you have the packets for changing the server

blackout617 · 10/11/2012, 10:11

i will mean with "server packets" how can i make to select a server ex. i will select de2 how can i make it?
and how can i make it without browser can i make it with winsock ?

Havelock_Vetinari · 10/11/2012, 10:12

Quote:

Originally Posted by blackout617

i will mean with "server packets" how can i make to select a server ex. i will select de2 how can i make it?
and how can i make it without browser can i make it with winsock ?

Use WinHttp , its working in the background .
To change the server , turn LiveHttpHeaders on , change the server , then you have the packets....

blackout617 · 10/11/2012, 10:16

how can i change the server

you mean after i write id and pw to select server ? or after i selected the server to change the server
after i write id and pw come lot of things in livehttp i found this

Code:

http://de2.darkorbit.bigpoint.com/GameAPI.php?req=YTo1OntzOjY6ImFjdGlvbiI7czoyMToicG9ydGFsLmxvZ2luQnlDcnlwdElkIjtzOjEyOiJsb2dpbkNyeXB0SWQiO3M6MzI6IjUyZmM1N2RkODFmNGMxOTA2ZmM0NTg0Zjk3NmIxNjFlIjtzOjY6ImdhbWVJZCI7aToxNTI7czo2OiJsb2NhbGUiO3M6MjoidHIiO3M6OToiYm9udXNDb2RlIjtOO30%3D&sign=2154e95f71f1c64f03197ce8c043a416

Havelock_Vetinari · 10/11/2012, 10:18

Quote:
Originally Posted by blackout617
how can i change the server you mean after i write id and pw to select server ? or after i selected the server to change the server
after i write id and pw come lot of things in livehttp i found this
Code:
http://de2.darkorbit.bigpoint.com/GameAPI.php?req=YTo1OntzOjY6ImFjdGlvbiI7czoyMToicG9ydGFsLmxvZ2luQnlDcnlwdElkIjtzOjEyOiJsb2dpbkNyeXB0SWQiO3M6MzI6IjUyZmM1N2RkODFmNGMxOTA2ZmM0NTg0Zjk3NmIxNjFlIjtzOjY6ImdhbWVJZCI7aToxNTI7czo2OiJsb2NhbGUiO3M6MjoidHIiO3M6OToiYm9udXNDb2RlIjtOO30%3D&sign=2154e95f71f1c64f03197ce8c043a416

I did not play DO since about a year . I dont know how to change server... Im just saying how you can do it. Searching you have to do alone

Geralk · 10/11/2012, 10:29

maybe this can help:

good luck

vokovl · 10/11/2012, 12:42

Quote:

Originally Posted by Alex_II

I did not play DO since about a year . I dont know how to change server... Im just saying how you can do it. Searching you have to do alone

learn/ and some litle exchange

; Авторизация
$sResponse = _HttpRequest('http://darkorbit.bigpoint.com', 'loginForm_default_username=' & $sLogin & '&loginForm_default_password=' & $sPass & '&loginForm_default_login_submit=%D0%92%D1%85%D0%B E%D0%B4')
If StringInStr($sResponse, 'Данное имя пользователя и/или пароль некорректны') Then
MsgBox(16, 'Ошибка', 'Данное имя пользователя и/или пароль некорректны')
Exit
Else
MsgBox(64, 'Внимание', 'Авторизация успешно пройдена')
EndIf
; <== Авторизация

; Выбор сервера
$sServerLink = StringRegExpReplace($sResponse, '(?s)(?i).+?<div id="instance_' & $div & '.+?<a class="verweis" href="(.+?)">.+', '\1')
Sleep(5000)
$sResponse = _HttpRequest($sServerLink, '', 'GET')
If Not StringInStr($sResponse, 'Привет, космический пилот!') Then
MsgBox(16, 'Ошибка', 'Ошибка выбора сервера')
Else
MsgBox(64, 'Внимание', 'Сервер успешно выбран')
EndIf
; <== Выбор сервера

FileOpen("c:\1.txt",2)
FileWrite("c:\1.txt",$sResponse)
FileClose("c:\1.txt")

$File = 'c:\1.txt'
$Text = "dosid"

$FindVar = _FileFindText($File, $Text, 0, 1)

If Not @error Then
For $i = 1 To $FindVar[0][0]
$sstr = $FindVar[$i][1]
Next

ElseIf @error = 1 Then
MsgBox(262144+16, "Error", "Unable to locate the File:" & @LF & "[" & $File & "]")
ElseIf @error > 0 Then
MsgBox(262144+48, "Error", "The Text [" & $Text & "] was not found in file(s):" & @LF & "[" & $File & "]")
EndIf
for $re = 0 to 14
$TStr = StringLeft($sStr, 1 - 1) & StringTrimLeft($sStr, 1)
$sStr = $TStr
Next
FileOpen("c:\2.txt",2)
FileWrite("c:\2.txt",$sStr)
FileClose("c:\2.txt")

$SID = FileRead("c:\2.txt",32)

$oIE =_IECreate ($SERV & '.darkorbit.bigpoint.com/indexInternal.es?action=internalStart&dosid=' & $SID,1,0)
_IELoadWait ($oIE)
_IENavigate($oIE,'http://' & $SERV & '.darkorbit.bigpoint.com/indexInternal.es?&action=internalSkylab&subaction= upgrade&construction=storageModule')
;_IEAction ($oIE, "close")
;$oIE =_IECreate ($SERV & '.darkorbit.bigpoint.com/indexInternal.es?action=internalStart&dosid=' & $SID,1,0)
;_IELoadWait ($oIE)
;_IENavigate($oIE,'http://' & $SERV & '.darkorbit.bigpoint.com/indexInternal.es?&action=internalSkylab&subaction= upgrade&construction=solarModule')
;_IELoadWait ($oIE)
;_IEAction ($oIE, "close")
;$oIE =_IECreate ($SERV & '.darkorbit.bigpoint.com/indexInternal.es?action=internalStart&dosid=' & $SID,1,0)
;_IELoadWait ($oIE)
;_IENavigate($oIE,'http://' & $SERV & '.darkorbit.bigpoint.com/indexInternal.es?&action=internalSkylab&subaction= prometiumCollector')
;_IENavigate($oIE,'http://' & $SERV & '.darkorbit.bigpoint.com/indexInternal.es?&action=internalSkylab&subaction= enduriumCollector')
;_IENavigate($oIE,'http://' & $SERV & '.darkorbit.bigpoint.com/indexInternal.es?&action=internalSkylab&subaction= terbiumCollector')
;_IENavigate($oIE,'http://' & $SERV & '.darkorbit.bigpoint.com/indexInternal.es?&action=internalSkylab&subaction= prometidRefinery')
;_IENavigate($oIE,'http://' & $SERV & '.darkorbit.bigpoint.com/indexInternal.es?&action=internalSkylab&subaction= duraniumRefinery')
;_IENavigate($oIE,'http://' & $SERV & '.darkorbit.bigpoint.com/indexInternal.es?&action=internalSkylab&subaction= xenoModule')
;_IENavigate($oIE,'http://' & $SERV & '.darkorbit.bigpoint.com/indexInternal.es?&action=internalSkylab&subaction= promeriumRefinery')
;_IENavigate($oIE,'http://' & $SERV & '.darkorbit.bigpoint.com/indexInternal.es?&action=internalSkylab&subaction= storageModule')
;_FFConnect()
;_FFStart()
;_FFOpenURL($SERV & '.darkorbit.bigpoint.com/indexInternal.es?action=internalStart&dosid=' & $SID)

Case $msg = $GUI_EVENT_CLOSE

ExitLoop
EndSelect
WEnd

Func _HttpRequest($sRequestURL, $sSendData, $sType='POST')
If $sType == 'GET' AND $sSendData <> '' Then
$sRequestURL &= '?' & $sSendData
$sSendData = ''
EndIf
Local $oHTTP = ObjCreate('WinHttp.WinHttpRequest.5.1')
$oHTTP.Open($sType, $sRequestURL)
$oHTTP.setTimeouts(5000, 5000, 15000, 15000)
$oHTTP.SetRequestHeader('Accept', 'text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8')
$oHTTP.SetRequestHeader('Accept-Language', 'ru-ru,ru;q=0.8,en-us;q=0.5,en;q=0.3')
$oHTTP.SetRequestHeader('Content-Type', 'application/x-www-form-urlencoded')
$oHTTP.SetRequestHeader('User-Agent', 'Mozilla/5.0 (Windows; U; Windows NT 6.1; ru; rv:1.9.2.13) Gecko/20101203 Firefox/3.6.13')
$oHTTP.SetRequestHeader('Host', $sRequestURL)
$oHTTP.SetRequestHeader('Connection', 'Keep-alive')
$oHTTP.Send($sSendData)
$oHTTP.WaitForResponse
Return $oHTTP.ResponseText
EndFunc

Func _Notepad($sText)
Local $hWin = WinGetHandle('[CLASS:Notepad]')
If $hWin == '' Then
Run('notepad.exe')
$hWin = WinWait('[CLASS:Notepad]')
EndIf
ControlSetText($hWin, '', 'Edit1', $sText)
WinActivate($hWin)
EndFunc

Func _FileFindText($sFile, $sFindText, $MatchWholeWordFlag = 0, $iCaseSense = 0)
If Not StringInStr($sFile, "|") And Not FileExists($sFile) Then Return SetError(1, 0, -1)

Local $aFilesArr = StringSplit($sFile, "|"), $hFile
Local $iCount = 0, $iLineN = 0, $sCurrentLine, $iMatch = 1, $iStrPos, $aRetArr[1][1]

For $i = 1 To UBound($aFilesArr)-1
If FileExists($aFilesArr[$i]) Then
$hFile = FileOpen($aFilesArr[$i], 0)
While 1
$sCurrentLine = FileReadLine($hFile)
If @error = -1 Then ExitLoop
$iLineN += 1
If StringIsASCII($sFindText) Then
$iStrPos = StringInStr($sCurrentLine, $sFindText)
Else
$sCurrentLine = StringLower($sCurrentLine)
$iStrPos = StringInStr($sCurrentLine, StringLower($sFindText))
$sFindText = StringLower($sFindText)
EndIf
If StringInStr($sCurrentLine, $sFindText, $iCaseSense) Then
If $MatchWholeWordFlag = 1 Then
If StringStripWS(StringMid($sCurrentLine, $iStrPos - 1, 1), 2) = "" And _
StringStripWS(StringMid($sCurrentLine, $iStrPos + StringLen($sFindText), 1), 2) = "" Then
$iMatch = 1
Else
$iMatch = 0
EndIf
EndIf
If $iMatch = 1 Then
$aRetArr[0][0] += 1
ReDim $aRetArr[$aRetArr[0][0]+1][4]
$aRetArr[$aRetArr[0][0]][0] = $aFilesArr[$i]
$aRetArr[$aRetArr[0][0]][1] = $sCurrentLine
$aRetArr[$aRetArr[0][0]][2] = $iLineN
$aRetArr[$aRetArr[0][0]][3] = $iStrPos
EndIf
EndIf
WEnd
FileClose($hFile)
EndIf
Next
If UBound($aRetArr) <= 1 Then Return SetError(2, 0, 0)
Return $aRetArr
EndFunc

blackout617 · 10/11/2012, 15:13

can anyone give me a source project file

?
thanks..