Author Topic: How To: Add Socks4 and HTTP proxy support to your vb6 project. (Read 8091 times)

ben_fb · « **on:** August 24, 2010, 01:59:42 PM »

This is pretty typical stuff but if any one needs to know how to accomplish so without trying to sort through a source code here is the basics of it.

HTTP

Code: [Select]

Dim battleNetServer As String = "213.248.106.200"
Dim battleNetPort As Long = 6112

Sub Winsock_Connect()
	ProxyGranted = False
	Winsock.SendData "CONNECT " & battleNetServer & ":" & battleNetPort & " HTTP/1.1" & vbCrLf & vbCrLf
End Sub

Sub Winsock_DataArrival()
Dim dataString As String

	Winsock.GetData dataString, vbString

	If Not ProxyGranted then
		If InstrB(dataString, "200 OK") Then
			ProxyGranted = True
			SendPacket 0x50
		Else
			'Denied
		End If
	Else
		ParsePacket dataString
	End If

End Sub

Socks4

Code: [Select]

Dim battleNetServer As String = "213.248.106.200"
Dim battleNetPort As Long = 6112

Sub Winsock_Connect()
	ProxyGranted = False
	Dim ProxySplit() As String, ProxyHash As String, arrIndex As Integer, PortHash As String
	'
	ProxySplit() = Split(battleNetServer, ".")
	For ArrIndex = 0 To UBound(ProxySplit)
		ProxyHash = ProxyHash & Chr$(CInt(ProxySplit(ArrIndex)))
	Next ArrIndex
	'hash ip
	PortHash = Hex(battleNetPort)
	ProxyHash = Chr$("&H" & Left$(PortHash, 2)) & Chr$("&H" & Mid$(PortHash, 3, 2)) & ProxyHash
	'hash port
	wS(Index).SendData Chr$(&H4) & Chr$(&H1) & ProxyHash & Chr$(&H0)
End Sub

Sub Winsock_DataArrival()
Dim dataString As String

	Winsock.GetData dataString

	If Not ProxyGranted Then
		Dim VerificationCode As Byte
		VerificationCode = Asc(Mid$(dataString, 2, 1))
		'
	        If Asc(Left$(dataString, 1)) = 0 And Left$(VerificationCode, 1) = 9 And Right$(VerificationCode, 1) = 0 Then
			ProxyGranted = True
			SendPacket 0x50
		Else
			'denied
		End If
	Else
		ParsePacket dataString
	End If

End Sub

кηιgнтяι∂єя · « **Reply #1 on:** August 24, 2010, 03:22:12 PM »

Did pkwarbot make you do this? to show people how they can do this too? o.O cause once you heard from pkwarbot and that scanner http, you went crazy posting sources and this. but thnx

ɥǝnяʎ ıן · « **Reply #2 on:** August 24, 2010, 03:51:15 PM »

I think he's doing it more so retards don't spend money for a free program.

ben_fb · « **Reply #3 on:** August 24, 2010, 05:11:58 PM »

Quote from: henry on August 24, 2010, 03:51:15 PM

I think he's doing it more so retards don't spend money for a free program.

exactly.

Crisis · « **Reply #4 on:** August 24, 2010, 05:20:37 PM »

nelson cracked pkwarbot last night iirc, it was funny

кηιgнтяι∂єя · « **Reply #5 on:** August 24, 2010, 06:18:02 PM »

who is nelson.

Crisis · « **Reply #6 on:** August 24, 2010, 06:19:40 PM »

warrior, my bad

warrior · « **Reply #7 on:** August 24, 2010, 08:46:54 PM »

This old thing? /yawn

ɥǝnяʎ ıן · « **Reply #8 on:** August 24, 2010, 08:56:14 PM »

You should just post it up as a free download, that way no one really has to pay for it.

ben_fb · « **Reply #9 on:** August 25, 2010, 05:59:23 AM »

I did say if someone would supply me with a copy I would take a look at cracking it. I doubt the protection is very serious, I would almost bet you could get away with a single JMP or NOP.

And why does it say -aadster on the title if warrior cracked it...

кηιgнтяι∂єя · « **Reply #10 on:** August 25, 2010, 06:22:08 AM »

Quote from: warrior on August 24, 2010, 08:46:54 PM

This old thing? /yawn

can you get it to connect ? no

eX.Pro · « **Reply #11 on:** August 25, 2010, 07:35:52 AM »

Look like a fake old version released publicly that didn't worked and was just trojaned.

ღღღ♥Karla♥ღღღ · « **Reply #12 on:** August 25, 2010, 08:47:38 AM »

Quote from: eX.Pro on August 25, 2010, 07:35:52 AM

Look like a fake old version released publicly that didn't worked and was just trojaned.

eX.Pro Your trojaned OKAY?
and even if u did crack don't release it.
Don't need ppl flooding/loading channels again=\

ben_fb · « **Reply #13 on:** August 25, 2010, 04:04:51 PM »

As much as a douchebag that warrior is, I don't doubt that he can crack a gimpy warbot made by a gimpy coder. It's really easy to do with the right application and some real basic knowledge. There's a good one out there that shows you every assembly call with strings attached, even if it's compressed; really wish I remembered the name of it.

I know good ways of protecting apps but it would be extremely stupid of me to say as helm reads these forums.

warrior · « **Reply #14 on:** August 25, 2010, 04:09:52 PM »

You can make it harder with good obfuscation, but it'll never be completely safe. If I honestly thought anyone would understand it, I'd go through and explain good ways of making code harder to reverse engineer.

I would say it required a little bit more knowledge simply because it was still packed somehow with something, but all you had to do was follow jmps around, but it would've thrown the elementary reverse engineer off. You're welcome to try it though, I can find the uncracked exe I had. It took me like 20 mins.

warrior · « **Reply #15 on:** August 28, 2010, 08:59:52 PM »

shit just got serious

ben_fb · « **Reply #16 on:** August 28, 2010, 09:34:26 PM »

I was actually about to lock this thread. Hackez took it a bit too far though. He gave me a warning for the post about calling truce, haha

warrior · « **Reply #17 on:** August 28, 2010, 10:17:16 PM »

now you can make a cool sig like me

Scope · « **Reply #18 on:** August 30, 2010, 06:06:04 PM »

look at warrior flaunting his bad behavior. Such a badass.

ɥǝnяʎ ıן · « **Reply #19 on:** August 30, 2010, 06:12:15 PM »

Is that the default message? I can't even remember, never actually sent those.

Scope · « **Reply #20 on:** August 30, 2010, 06:28:13 PM »

It's a warn template you can select when issuing a warning.

ɥǝnяʎ ıן · « **Reply #21 on:** August 30, 2010, 06:33:11 PM »

O_O
Being a mod was fun, but meh ;/

Crisis · « **Reply #22 on:** August 30, 2010, 06:44:32 PM »

nelson's so naughty

ben_fb · « **Reply #23 on:** August 31, 2010, 03:00:42 PM »

going off topic, closed.