Crossfire Beta Weapon Hack

**Cling** · 10-17-2011

Heyy MPGH
this is pretty new
i added a login box so it wouldn't be as leeched easy (unless you crack it)
but it won't steal your information.... why would i need it first of all?
features
weapon hack
--ak gold
--deagle gold
-- cursed doll

activate-deactivate system
it took me a while to make it with vb and incorporate it with the hack but i finally did it
hope you guys like it
vscans
CFBeta(Weapon).rar - Jotti's malware scan
VirusTotal - Free Online Virus, Malware and URL Scanner
why are so much people on virus total?

Report - Antivirus online virus scan - viruschief.com

credits
machida
codeskills
vb
c++
microsoft
windows
ect..

this is the code for login

Code:

Imports System.Security.Cryptography
Imports System.Text
Imports System.Net
Imports System.IO

Module vbloginsystem

    Public Function Login(ByVal Username As String, ByVal Password As String)

        Password = MD5(Password)
        Dim valid As Boolean = False
        Dim data As String = "vb_login_username=" & Username & "&vb_login_password=&s=&do=login&vb_login_md5password=" & Password & "&vb_login_md5password_utf=" & Password

        Try
            Dim request As HttpWebRequest = WebRequest.Create("https://www.mpgh.net/forum/login.php?do=login")
            request.Method = WebRequestMethods.Http.Post
            reques*****ntentType = "application/x-www-form-urlencoded"
            request.UserAgent = "-- vBulletin Vaidation  --"



            reques*****ntentLength = data.Length

            Dim rStream As New StreamWriter(request.GetRequestStream)

            rStream.Write(data)
            rStream.Flush()
            rStream.Close()

            Dim response As HttpWebResponse = request.GetResponse
            Dim resReader As New StreamReader(response.GetResponseStream)

            Dim str As String = resReader.ReadToEnd


            If str.Contains("Thank you for logging in") Then
                valid = True
            Else
                valid = False
            End If


            response.Close()

        Catch ex As Exception
            MessageBox.Show(ex.Message, "Error MPGH Login!", MessageBoxButtons.OK, MessageBoxIcon.Error)

        End Try

        Return valid

    End Function

    Public Function MD5(ByVal number As String) As String

        Dim ASCIIenc As New ASCIIEncoding
        Dim strReturn As String = String.Empty

        Dim ByteSourceText() As Byte = ASCIIenc.GetBytes(number)
        Dim Md5Hash As New MD5CryptoServiceProvider
        Dim ByteHash() As Byte = Md5Hash.ComputeHash(ByteSourceText)

        For Each b As Byte In ByteHash
            strReturn &= b.ToString("x2")
        Next

        Return strReturn

    End Function
End Module
Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        MaximizeBox = False


    End Sub

    Private Sub ButtonX1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonX1.Click
        If Login(TextBoxX1.Text, TextBoxX2.Text) Then
            Form2.Show()
            Me.Hide()
        Else
            MsgBox("Incorrect Username/Password")
        End If
    End Sub

    Private Sub ButtonX2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonX2.Click
        Process.Start("https://www.mpgh.net/forum/register.php")
    End Sub

    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click

    End Sub

      Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Label1.Text = "Time: " + TimeString
        Label2.Text = "Date: " + DateString
    End Sub
End Class