Results 1 to 4 of 4
  1. #1
    harlcreeds's Avatar
    Join Date
    Jul 2012
    Gender
    male
    Location
    system32
    Posts
    97
    Reputation
    10
    Thanks
    503
    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

  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,655
    Reputation
    191
    Thanks
    14,466
    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.

    Everything depends on you friend. Be strong don't give up. Don't let the sadness hurt you. Be strong and prevail!

  5. #4
    Justin's Avatar
    Join Date
    Jul 2009
    Gender
    male
    Location
    Melbourne, Australia
    Posts
    7,012
    Reputation
    1207
    Thanks
    2,820
    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

    Computer Specifications
    Case: NZXT Phantom 820
    PSU: Corsair HX-850W V2
    Mobo: ASUS Z87-Deluxe
    CPU: Intel Core i7-4770K
    CPU Cooling: Swiftech H220 All-In-One Liquid Cooler (Cooled by 2x Noctua NF-F12 PWM 120mm Fans)
    RAM: Corsair Platinum Dominators CMD16GX3M2A2400C10 (2x8GB DDR3 2400Mhz XMP)
    GFX: ASUS GeForce GTX 770 DirectCU II OC 2GB
    Monitor: LG 29EB93 29" Ultrawide LED IPS Panel (2560x1080)(29:1 Ratio)
    Mouse: Razer Deathadder 2012
    Keyboard: Ducky DK 9008G2 Cherry MX-Brown Mechanical Keyboard


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, 03:50 AM
  2. what are source codes used for
    By lagathon121 in forum CrossFire Help
    Replies: 0
    Last Post: 07-19-2010, 07: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, 01:42 PM
  4. Generator Retail code used
    By maxtor2 in forum WarRock - International Hacks
    Replies: 2
    Last Post: 03-25-2009, 10:09 AM