Results 1 to 4 of 4
  1. #1
    harlcreeds's Avatar
    Join Date
    Jul 2012
    Gender
    male
    Location
    system32
    Posts
    97
    Reputation
    10
    Thanks
    510
    My Mood
    Angry

    Anti leecher code using winsock

    I have anti-leecher code which able to login the form with using winsock coded in vb6. I manage to get the code but I couldn't get what exactly the HTTP headers
    can anyone help me on my problem then I can attach my hacks smoothly as plan

    THANKS IN ADVANCE

    Code:
    Private Sub cmdLogin_Click()
    
    With W
        .Close
        .RemoteHost = "www.mpgh.net"
        .RemotePort = "80"
        .Connect
    
    End With
    End Sub
    
    Private Sub W_Connect()
    
    Dim Packet As String
    Dim Post As String
    
    
    Post = "vb_login_username" & txtUser.Text & "&vb_login_password" & txtPass.Text & "&cookieuser=1&s=securitytoken=guest&do=login"
    'Post = "vb_login_username" & txtUser.Text & "&vb_login_password" & txtPass.Text & "&cookieuser=8b6004c1a08517f3d57b438051b52e91=securitytoken=d54fcd42608c0f7eb4ad43b51b9ba7fcc1349720445=login"
    
    Packet = Packet & "POST / HTTP/1.1" & vbNewLine
    Packet = Packet & "Host: www.mpgh.net" & vbNewLine
    Packet = Packet & "Connection: close" & vbNewLine
    Packet = Packet & "User-Agent: Mozilla/5.0 (Macintosh; U; Intel Mac OS X; de-de) AppleWebKit/523.10.3 (KHTML, like Gecko) Version/3.0.4 Safari/523.10" & vbNewLine
    Packet = Packet & "Accept -Encoding: gzip" & vbNewLine
    Packet = Packet & "Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8" & vbNewLine
    Packet = Packet & "Accept-Language: en-US,en;q=0.8" & vbNewLine
    Packet = Packet & "Accept-Charset: ISO-8859-1,UTF-8;q=0.7,*;q=0.7" & vbNewLine
    Packet = Packet & "Cache-Control: no-cache" & vbNewLine
    Packet = Packet & "Content-type: application/x-www-form-urlencoded" & vbNewLine
    Packet = Packet & "Content-length: " & Len(Post) & vbNewLine & vbNewLine & Post
    
    If W.State = 7 Then W.SendData Packet
    
    End Sub
    
    Private Sub W_DataArrival(ByVal bytesTotal As Long)
    
    Dim data As String
    
    If W.State = 7 Then W.PeekData data
        txtData.Text = data
        
        If InStr(data, "You have entered invalid username and password.") Then
            MsgBox "invalid login"
                ElseIf InStr(data, "Thank you for loggin in, ") Then
                      MsgBox "You are login as " & txtUser.Text
    End If
    End Sub
    
    Private Sub W_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
    
    W.Close
    MsgBox "ERROR !!!", vbExclamation, "ERROR"
    End Sub
    screen shoot here


    vscan
    winsock mpgh2.rar - Jotti's malware scan
    https://www.virustotal.com/file/27ad...is/1349899515/
    <b>Downloadable Files</b> Downloadable Files
    [IMG]https://i1339.photobucke*****m/albums/o710/harlcreeds/sigsmall.gif[/IMG]

    MY PROJECT
    Currently working on old VB6.0

  2. The Following 2 Users Say Thank You to harlcreeds For This Useful Post:

    <LoL. (10-12-2012),dirtjumpermike (10-10-2012)

  3. #2
    dirtjumpermike's Avatar
    Join Date
    Apr 2012
    Gender
    male
    Posts
    208
    Reputation
    10
    Thanks
    37
    My Mood
    Cool
    very nice use of packet data aswell never thought of that thank you this should help with future hacks
    things im working on

    colour aimbot (possibly wireframe aimbot)
    finding a bypass for GameGuard (with constant updates)
    wallhack
    OPK

  4. #3
    Jabberwock's Avatar
    Join Date
    Jun 2012
    Gender
    male
    Posts
    1,735
    Reputation
    191
    Thanks
    15,692
    My Mood
    Relaxed
    I think you didn't specify the URL you are sending the POST data.
    Even familiar landscapes will
    reveal a different kind of beauty
    if you change your viewpoint.
    Where these new encounters
    and new bonds will lead you...
    Such dazzling golden days.
    I, too, look forward to
    what I might behold.

  5. #4
    Justin's Avatar
    Join Date
    Jul 2009
    Gender
    male
    Location
    Melbourne, Australia
    Posts
    7,085
    Reputation
    1339
    Thanks
    2,868
    My Mood
    Inspired
    File is clean and therefore has been approved.

    Minion Statistics

    Ex-Console Minion: 13/01/2011 ~ 19/04/2011
    Console Re-Minion: 14/06/2012 ~ 27/02/2013
    AVA Minion: 22/06/2012 ~ 12/11/2012
    Battlefield Minion: 04/02/2013 ~ 27/02/2013

Similar Threads

  1. Anti Hardscoping code
    By tyrannen in forum Call of Duty Modern Warfare 2 GSC Modding Help/Discussion
    Replies: 1
    Last Post: 07-28-2010, 02:50 AM
  2. what are source codes used for
    By lagathon121 in forum CrossFire Help
    Replies: 0
    Last Post: 07-19-2010, 06:19 PM
  3. help with source code use.
    By dddrrr in forum CrossFire Hack Coding / Programming / Source Code
    Replies: 1
    Last Post: 05-01-2010, 12:42 PM
  4. Generator Retail code used
    By maxtor2 in forum WarRock - International Hacks
    Replies: 2
    Last Post: 03-25-2009, 09:09 AM