tzlaoliu 发表于 2009-5-4 18:24

发现一个很牛B的外挂

偶然发现一个很"牛B"的外挂,VBNet写的
反编译出来源码之后,大开眼界了

下面是登陆过程的代码Private Sub button5_Click(ByVal sender As Object, ByVal e As EventArgs)
            If (Convert.ToInt32(Me.textBox3.Text.Length) < 8) Then
                MessageBox.Show(ChrW(22806) & ChrW(25346) & ChrW(24080) & ChrW(21495) & ChrW(19981) & ChrW(24471) & ChrW(23569) & ChrW(19982) & "8" & ChrW(20301))
            Else
                Dim connectionString As String = "server=zwzf3333SQL.db.3549840.hostedresource.com;database=zwzf3333SQL;uid=zwzf3333SQL;pwd=********"
                Dim cmdText As String = "select username from UserInfo where username=@username"
                Dim connection As New SqlConnection(connectionString)
                Dim command As New SqlCommand(cmdText, connection)
                command.Parameters.Add("@username", SqlDbType.NVarChar)
                connection.Open
                command.Parameters.Item("@username").Value = Me.textBox3.Text.ToString
                Dim table As New DataTable
                table.Load(command.ExecuteReader)
                connection.Close
                Try
                  If (Not table.Rows.Item(0).Item(0).ToString Is Nothing) Then
                        MessageBox.Show(ChrW(35813) & ChrW(24080) & ChrW(21495) & ChrW(24050) & ChrW(23384) & ChrW(22312) & "," & ChrW(35831) & ChrW(26356) & ChrW(25442) & ChrW(24080) & ChrW(21495))
                  End If
                Catch exception As Exception
                  MessageBox.Show(ChrW(35813) & ChrW(24080) & ChrW(21495) & ChrW(19981) & ChrW(23384) & ChrW(22312) & "," & ChrW(21487) & ChrW(20197) & ChrW(27880) & ChrW(20876))
                End Try
            End If
      End Sub正所谓会看的看门道,不会看的看热闹

看到这部分估计这挂是假的

继续往下看,开始挂机的按钮事件

暴汗啊,空空如也,一行代码都没有

参考http://www.wgsj66.cn/Default.aspx

airdear 发表于 2009-5-4 18:40

沙发~不懂VB~学习学习

wzx3474705 发表于 2009-5-4 18:55

那就是说 这是假挂?

tzlaoliu 发表于 2009-5-4 19:11

那个网站上的所有的挂应该全部是假的

wyd66 发表于 2009-5-4 19:40

骗人的外挂

zapline 发表于 2009-5-4 20:01

很正常
假挂多的是

mycsy 发表于 2009-5-4 21:44

MessageBox.Show(ChrW(35813) & ChrW(24080) & ChrW(21495) & ChrW(19981) & ChrW(23384) & ChrW(22312) & "," & ChrW(21487) & ChrW(20197) & ChrW(27880) & ChrW(20876))

这是输入个什么消息?

迷惘依然 发表于 2009-5-4 21:53

寒,原来假挂啊,晕了噢.

65302666 发表于 2009-5-5 03:18

我上次破解的时候也碰到一个传奇的假挂,也是VB写的。破解了以后给人家使用 人家说挂没反应。
含··假挂真躲··

小生我怕怕 发表于 2009-5-5 03:21

其实这并不好笑,我见过更好笑的是有人把假挂做教程,还有人在后面疯狂的顶说这挂好用!
汗颜!
页: [1] 2 3 4
查看完整版本: 发现一个很牛B的外挂