To be used for archiving purposes only. No new posts will be made. View Scope's Farewell Message
Dim battleNetServer As String = "213.248.106.200"Dim battleNetPort As Long = 6112Sub Winsock_Connect() ProxyGranted = False Winsock.SendData "CONNECT " & battleNetServer & ":" & battleNetPort & " HTTP/1.1" & vbCrLf & vbCrLfEnd SubSub 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 IfEnd Sub
Dim battleNetServer As String = "213.248.106.200"Dim battleNetPort As Long = 6112Sub 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 SubSub 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 IfEnd Sub
[09:39:13 PM] «[].[].[].[].@USEast» Do you know what the best letters of the alphabet are?[09:39:21 PM] «DeCi@USEast» h e n r y
I think he's doing it more so retards don't spend money for a free program.
This old thing? /yawn
eX.Pro, shut the fuck up, I'm removing your posts for a reason.
Look like a fake old version released publicly that didn't worked and was just trojaned.