Register for your free account! | Forgot your password?

Go Back   elitepvpers › Popular Games › Silkroad Online › SRO Private Server
[ESRO]Sp Exploit - Packed based working [ESRO]Sp Exploit - Packed based working
You last visited: Today at 11:30

  • Please register to post and access all features, it's quick, easy and FREE!

Advertisement


Advertise with us!

[ESRO]Sp Exploit - Packed based working

Discussion on [ESRO]Sp Exploit - Packed based working within the SRO Private Server forum part of the Silkroad Online category.

Closed Thread
Page 3 of 5 12 3 45
 
Old   #31
 
ZeraPain's Avatar
 
elite*gold: 0
The Black Market: 0/0/0
Join Date: Jan 2010
Posts: 360
Received Thanks: 249
Code:
#cs ----------------------------------------------------------------------------

 AutoIt Version: 3.3.6.0
 Author:         Frayzer

 Script Function:
	Template AutoIt script.

#ce ----------------------------------------------------------------------------

; Script Start - Add your code below here

#include <string.au3>
Global $sBuffer, $rBuffer
Global $iSize, $iIndex

#region PacketWriter
Func NewPacket($sValue, $iValue)
	Local $sTemp = Hex($sValue)
	$sBuffer = ""
	$iSize = 0
	$sBuffer &= StringLeft(ReverseHex(Hex($sValue)), 4);length
	$sBuffer &= StringLeft(ReverseHex(Hex($iValue)), 4);security
EndFunc   ;==>NewPacket

Func AppendByte($sValue)
	$sBuffer &= StringRight(Hex($sValue), 2)
	$iSize += 1
EndFunc   ;==>AppendByte

Func AppendWord($sValue)
	$sBuffer &= StringLeft(ReverseHex(Hex($sValue)), 4)
	$iSize += 2
EndFunc   ;==>AppendWord

Func AppendDWord($sValue)
	$sBuffer &= StringLeft(ReverseHex(Hex($sValue)), 8)
	$iSize += 4
EndFunc   ;==>AppendDWord

Func AppendString($sString, $Unicode = false)
	Local $iLength = StringLen($sString)
	If $Unicode Then
		$sBuffer &= _StringToHexExt($sString, True)
		$iSize += $iLength * 4
	Else
		$sBuffer &= _StringToHexExt($sString)
		$iSize += $iLength * 2
	EndIf
EndFunc   ;==>AppendString

Func GetPacket()
	Local $sTemp = "0x"
	$sTemp &= StringLeft(ReverseHex(Hex($iSize)), 4)
	$sTemp &= $sBuffer
	Return $sTemp
EndFunc   ;==>GetPacket
#endregion

#region PacketReader
Func BeginParse($sString)
	$iIndex = 1
	$rBuffer = StringMid($sString, 13)
	Return Dec(StringMid($sString, 3, 2) & StringMid($sString, 1, 2))
EndFunc   ;==>BeginParse

Func ReadByte()
	Local $result = Dec(StringMid($rBuffer, $iIndex, 2))
	$iIndex += 2
	Return $result
EndFunc   ;==>ReadByte

Func ReadWord()
	Local $result = Dec(ReverseHex(StringMid($rBuffer, $iIndex, 4)))
	$iIndex += 4
	Return $result
EndFunc   ;==>ReadWord

Func ReadDWord()
	Local $result = Dec(ReverseHex(StringMid($rBuffer, $iIndex, 8)))
	$iIndex += 8
	Return $result
EndFunc   ;==>ReadDWord

Func ReadString($iLength, $Unicode = False)
	Local $result, $string = ""
	If $Unicode Then
		For $i = 0 To $iLength - 1
			$string &= StringMid($rBuffer, $iIndex + $i * 4, 2)
		Next
		$iIndex += $iLength * 4
	Else
		$string = StringMid($rBuffer, $iIndex, $iLength * 2)
		$iIndex += $iLength * 2
	EndIf
	$result = _HexToString($string)
	Return $result
EndFunc   ;==>ReadString
#endregion

Func ReverseHex($sString)
	Local $sTemp, $len
	For $i = StringLen($sString) + 1 To 1 Step -2
		$sTemp &= StringMid($sString, $i, 2)
	Next
	Return $sTemp
EndFunc   ;==>ReverseHex

Func _StringToHexExt($sString, $Unicode = False)
	Local $string
	If $Unicode Then
		For $i = 1 To StringLen($sString)
			$string &= _StringToHex(StringMid($sString, $i, 1)) & "00"
		Next
	Else
		For $i = 1 To StringLen($sString)
			$string &= _StringToHex(StringMid($sString, $i, 1))
		Next
	EndIf
	Return $string
EndFunc   ;==>_StringToHexExt
ZeraPain is offline  
Thanks
5 Users
Old   #32
 
elite*gold: 0
The Black Market: 0/0/0
Join Date: Aug 2007
Posts: 67
Received Thanks: 2
Quote:
Originally Posted by ZeraPain View Post
Code:
#cs ----------------------------------------------------------------------------

 AutoIt Version: 3.3.6.0
 Author:         Frayzer

 Script Function:
	Template AutoIt script.

#ce ----------------------------------------------------------------------------

; Script Start - Add your code below here

#include <string.au3>
Global $sBuffer, $rBuffer
Global $iSize, $iIndex

#region PacketWriter
Func NewPacket($sValue, $iValue)
	Local $sTemp = Hex($sValue)
	$sBuffer = ""
	$iSize = 0
	$sBuffer &= StringLeft(ReverseHex(Hex($sValue)), 4);length
	$sBuffer &= StringLeft(ReverseHex(Hex($iValue)), 4);security
EndFunc   ;==>NewPacket

Func AppendByte($sValue)
	$sBuffer &= StringRight(Hex($sValue), 2)
	$iSize += 1
EndFunc   ;==>AppendByte

Func AppendWord($sValue)
	$sBuffer &= StringLeft(ReverseHex(Hex($sValue)), 4)
	$iSize += 2
EndFunc   ;==>AppendWord

Func AppendDWord($sValue)
	$sBuffer &= StringLeft(ReverseHex(Hex($sValue)), 8)
	$iSize += 4
EndFunc   ;==>AppendDWord

Func AppendString($sString, $Unicode = false)
	Local $iLength = StringLen($sString)
	If $Unicode Then
		$sBuffer &= _StringToHexExt($sString, True)
		$iSize += $iLength * 4
	Else
		$sBuffer &= _StringToHexExt($sString)
		$iSize += $iLength * 2
	EndIf
EndFunc   ;==>AppendString

Func GetPacket()
	Local $sTemp = "0x"
	$sTemp &= StringLeft(ReverseHex(Hex($iSize)), 4)
	$sTemp &= $sBuffer
	Return $sTemp
EndFunc   ;==>GetPacket
#endregion

#region PacketReader
Func BeginParse($sString)
	$iIndex = 1
	$rBuffer = StringMid($sString, 13)
	Return Dec(StringMid($sString, 3, 2) & StringMid($sString, 1, 2))
EndFunc   ;==>BeginParse

Func ReadByte()
	Local $result = Dec(StringMid($rBuffer, $iIndex, 2))
	$iIndex += 2
	Return $result
EndFunc   ;==>ReadByte

Func ReadWord()
	Local $result = Dec(ReverseHex(StringMid($rBuffer, $iIndex, 4)))
	$iIndex += 4
	Return $result
EndFunc   ;==>ReadWord

Func ReadDWord()
	Local $result = Dec(ReverseHex(StringMid($rBuffer, $iIndex, 8)))
	$iIndex += 8
	Return $result
EndFunc   ;==>ReadDWord

Func ReadString($iLength, $Unicode = False)
	Local $result, $string = ""
	If $Unicode Then
		For $i = 0 To $iLength - 1
			$string &= StringMid($rBuffer, $iIndex + $i * 4, 2)
		Next
		$iIndex += $iLength * 4
	Else
		$string = StringMid($rBuffer, $iIndex, $iLength * 2)
		$iIndex += $iLength * 2
	EndIf
	$result = _HexToString($string)
	Return $result
EndFunc   ;==>ReadString
#endregion

Func ReverseHex($sString)
	Local $sTemp, $len
	For $i = StringLen($sString) + 1 To 1 Step -2
		$sTemp &= StringMid($sString, $i, 2)
	Next
	Return $sTemp
EndFunc   ;==>ReverseHex

Func _StringToHexExt($sString, $Unicode = False)
	Local $string
	If $Unicode Then
		For $i = 1 To StringLen($sString)
			$string &= _StringToHex(StringMid($sString, $i, 1)) & "00"
		Next
	Else
		For $i = 1 To StringLen($sString)
			$string &= _StringToHex(StringMid($sString, $i, 1))
		Next
	EndIf
	Return $string
EndFunc   ;==>_StringToHexExt
What's this? And how can i use it? A little guide please.
zsolt1225 is offline  
Old   #33
 
saxer1's Avatar
 
elite*gold: 0
The Black Market: 1/0/1
Join Date: Aug 2007
Posts: 494
Received Thanks: 81
Does that topic refer to this:

?
saxer1 is offline  
Old   #34

 
Mai_1337's Avatar
 
elite*gold: 51
The Black Market: 7/0/1
Join Date: Jul 2007
Posts: 2,231
Received Thanks: 876
Hmm this exploit is intresting never tought esro could have such a simple bug xD
Mai_1337 is offline  
Old   #35
 
elite*gold: 27
The Black Market: 1/0/0
Join Date: Dec 2010
Posts: 1,579
Received Thanks: 2,706
Hi everyone, nice chatlog mini

@zsolt1225, thats autoIT source code.
lorveth is offline  
Old   #36
 
r7slayer's Avatar
 
elite*gold: 0
The Black Market: 0/0/0
Join Date: Apr 2008
Posts: 696
Received Thanks: 311
Quote:
Originally Posted by Synx7 View Post
I'm now debating about if I should tell the admin how to fix it or not... -_-
Yea sure go for it... He aint guna make you a gm if you tell him, your just going to be ***-licking pure and simple and your not going to be any more popular here if you do either.

Your choice and btw i don't think the admin could prevent this exploit. He doesn't have the experience to do ***** with the server files this is completely clear seen as he would like help from other people and another thing your trying to say you had access to the server files?

Wow can't see how this is possible seen as he wouldn't make you a gm but give you access to the files? Maybe the Database but nothing else. This exploit isn't fixable in the database, so stop trying to look or sound like you have some power over something because it's now become abundantly clear your just a power hungry little kid thats trying to stroke his e-*****.

You might of shown everyone that the admin only cares about profit and money but at the same time you've shown everyone you were just looking for more power.
r7slayer is offline  
Thanks
3 Users
Old   #37
 
elite*gold: 27
The Black Market: 1/0/0
Join Date: Dec 2010
Posts: 1,579
Received Thanks: 2,706
Quote:
Originally Posted by r7slayer View Post
Yea sure go for it... He aint guna make you a gm if you tell him, your just going to be ***-licking pure and simple and your not going to be any more popular here if you do either.

Your choice and btw i don't think the admin could prevent this exploit. He doesn't have the experience to do ***** with the server files this is completely clear seen as he would like help from other people and another thing your trying to say you had access to the server files?

Wow can't see how this is possible seen as he wouldn't make you a gm but give you access to the files. Maybe the Database but nothing else and this exploit isn't fixable in the database, so stop trying to look or sound like you have some power over something because it's now become abundantly clear your just a power hungry little kid thats trying to stroke his e-*****.

You might of shown everyone that the admin only cares about profit and money but at the same time you've shown everyone you were just looking for more power.
That exploit should be fixable by editing db tables, I or someone else have to test that on swsro and zszc.

On sjsro is working right now.
On esro it should work too, since there was only item mall update
lorveth is offline  
Old   #38
 
ZeraPain's Avatar
 
elite*gold: 0
The Black Market: 0/0/0
Join Date: Jan 2010
Posts: 360
Received Thanks: 249
Quote:
Originally Posted by zsolt1225 View Post
What's this? And how can i use it? A little guide please.
ZeraPain is offline  
Thanks
1 User
Old   #39
 
Kape7's Avatar
 
elite*gold: 0
The Black Market: 5/0/0
Join Date: Dec 2007
Posts: 3,210
Received Thanks: 6,301
Quote:
Originally Posted by r7slayer View Post
Yea sure go for it... He aint guna make you a gm if you tell him, your just going to be ***-licking pure and simple and your not going to be any more popular here if you do either.

Your choice and btw i don't think the admin could prevent this exploit. He doesn't have the experience to do ***** with the server files this is completely clear seen as he would like help from other people and another thing your trying to say you had access to the server files?

Wow can't see how this is possible seen as he wouldn't make you a gm but give you access to the files? Maybe the Database but nothing else. This exploit isn't fixable in the database, so stop trying to look or sound like you have some power over something because it's now become abundantly clear your just a power hungry little kid thats trying to stroke his e-*****.

You might of shown everyone that the admin only cares about profit and money but at the same time you've shown everyone you were just looking for more power.
It is easy to fix.
Kape7 is offline  
Old   #40
 
yogitee2009's Avatar
 
elite*gold: 0
The Black Market: 0/0/0
Join Date: Dec 2008
Posts: 269
Received Thanks: 18
Synx Dont tell him .... its better , he will come to you and ask you
yogitee2009 is offline  
Old   #41
 
elite*gold: 0
The Black Market: 0/0/0
Join Date: Feb 2010
Posts: 2,278
Received Thanks: 445
Quote:
It is easy to fix.
maybe easy for you
but this noob admin cant do anything cuz he dont know anything about ****** /> and if someone winning to help him fix this
i perfer to tell him give money for this job
cuz if this didnt get fix then the server will get F
and everyone want this
so gl
rushcrush is offline  
Old   #42
 
ZeraPain's Avatar
 
elite*gold: 0
The Black Market: 0/0/0
Join Date: Jan 2010
Posts: 360
Received Thanks: 249
Quote:
Originally Posted by Synx7 View Post
I'm now debating about if I should tell the admin how to fix it or not... -_-
really funny to see you writing this.
one time you say you support the "community"
and now that you got left you still want to help him.

did you become homesick? ;-)
ZeraPain is offline  
Old   #43
 
elite*gold: 27
The Black Market: 1/0/0
Join Date: Dec 2010
Posts: 1,579
Received Thanks: 2,706
@rushcrush
All about money ya?
Not even if he would 1k€ for the fix,in my opinion I wouldnt do that.
He will just make more and more money.
Open more and more servers.
lorveth is offline  
Old   #44
 
elite*gold: 0
The Black Market: 0/0/0
Join Date: Feb 2010
Posts: 2,278
Received Thanks: 445
all we need is pro hacker and this admin will cry so much
rushcrush is offline  
Old   #45
 
Kape7's Avatar
 
elite*gold: 0
The Black Market: 5/0/0
Join Date: Dec 2007
Posts: 3,210
Received Thanks: 6,301
Quote:
Originally Posted by ZeraPain View Post
really funny to see you writing this.
one time you say you support the "community"
and now that you got left you still want to help him.

did you become homesick? ;-)
I still didn't lost my hope about the admin changing the way he manages his servers. That's why it is a debate for me.
Kape7 is offline  
Closed Thread
Page 3 of 5 12 3 45

« Wer kennt gute SRO-Pserver | Working Bot for zszc Earth »

Similar Threads Similar Threads
[Exploit PK2] [ESRO] Anti Invis And Stealth
07/15/2011 - SRO PServer Guides & Releases - 24 Replies
Credits to invinciblenoob for his original Tutorial which let me do this for you: This exploit allows you to see all players in stealth and invisibility, ive also coverd all the crystal invisiblitys for you. To install this exploit youll need Drews PK2 tools. 1) Make a copy of your media.pk2 (This is highly recommended always when pk2 editing) 2) Open up the PK2 Editor tool 3) File > Open and select the media.pk2 4) Select Automatic Single File upload option "Select File"



All times are GMT +2. The time now is 11:33.

elitepvpers - play less, get more - Top

Powered by vBulletin®
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
SEO by vBSEO ©2011, Crawlability, Inc.

Support | Contact Us | FAQ | Advertising | Privacy Policy | Terms of Service | Abuse
Copyright ©2026 elitepvpers All Rights Reserved.