载入中。。。
交你学编简单木马
[ 2005-8-14 10:48:00 | By: 笨熊哥哥 ]
注:以下是一个简单的特洛伊木马程序大家请不要用他作坏事他只是简单程序很容易就会被防火墙杀毒软件发现(再这里我没有把木马怎样自动复制和隐藏的代码告诉大家)所以他不会对别人的计算机起太大的伤害!!!!!!!!!!!!!!!!!!
我的QQ是236503554(如果大家有什么不理解的请MMMMMMM我)
一种典型的特洛伊木马程序是,当服务器端(即被攻击的电脑)的程序在运行之后,黑客可以使用相应的客户端程序直接控制他.
下面介绍一个程序:
网络上,有一个基本的漏洞,就是在本机直接启动运行的程序拥有与使用者相同的权限,这个很容易理解,假设你是以管理员的身份使用机器,那么你从本地硬盘启动一个应用程序,这个程序旧有权享用机子的全部资料但是从外部来得程序就无权享用为了能享用他黑客会用一种称为特洛伊木马的程序来享用他控制他.
下面就用C语言写了一个简单的木马来供大家实验了解一下木马简单程序代码如下:
调用Connect方法,初始化连接。
tcpClient.RemoteHost=IPInput.Text
tcpClient.RemotePort=Val(PortInput.Text)
tcpClient.Connect
cmdConnect.Enabled=False
连接建立之后就是如何处理所收到得数据问题了,使用DataArrival事件,可以方便对数据进行操作,
代码:
Private Sub tcpClient_DataArrival
(ByvalbytesTotal As Long)
Dim strData As String
tcpClient.GetData strData
“得到发来得数据”
“以后是处理过程,可以灵活编写代码”
If strData="Test Connect"Then
TCPState.text="Computer OK "+vbNewLine+"Local IP is:"+-
tcpClient.LocalIP+"Computer Name is:"+tcpClent.LocalHostName
TCPState.Text=TCPState.Text+vbNewLine+"Remote IP is:"+-
tcpClient.RemoteHostIP+"Computer Name is:"+tcpClient.remoteHost
If InStr (Trim(stData),"CloseOK?")>0Then
tcpClient.Close
End If
End If
txt0utput.Text=txt0utput.Text+vbNewLine+tcpClient.RemotehostIP+":"+strData
End Sub
我的QQ是236503554(如果大家有什么不理解的请MMMMMMM我)
一种典型的特洛伊木马程序是,当服务器端(即被攻击的电脑)的程序在运行之后,黑客可以使用相应的客户端程序直接控制他.
下面介绍一个程序:
网络上,有一个基本的漏洞,就是在本机直接启动运行的程序拥有与使用者相同的权限,这个很容易理解,假设你是以管理员的身份使用机器,那么你从本地硬盘启动一个应用程序,这个程序旧有权享用机子的全部资料但是从外部来得程序就无权享用为了能享用他黑客会用一种称为特洛伊木马的程序来享用他控制他.
下面就用C语言写了一个简单的木马来供大家实验了解一下木马简单程序代码如下:
调用Connect方法,初始化连接。
tcpClient.RemoteHost=IPInput.Text
tcpClient.RemotePort=Val(PortInput.Text)
tcpClient.Connect
cmdConnect.Enabled=False
连接建立之后就是如何处理所收到得数据问题了,使用DataArrival事件,可以方便对数据进行操作,
代码:
Private Sub tcpClient_DataArrival
(ByvalbytesTotal As Long)
Dim strData As String
tcpClient.GetData strData
“得到发来得数据”
“以后是处理过程,可以灵活编写代码”
If strData="Test Connect"Then
TCPState.text="Computer OK "+vbNewLine+"Local IP is:"+-
tcpClient.LocalIP+"Computer Name is:"+tcpClent.LocalHostName
TCPState.Text=TCPState.Text+vbNewLine+"Remote IP is:"+-
tcpClient.RemoteHostIP+"Computer Name is:"+tcpClient.remoteHost
If InStr (Trim(stData),"CloseOK?")>0Then
tcpClient.Close
End If
End If
txt0utput.Text=txt0utput.Text+vbNewLine+tcpClient.RemotehostIP+":"+strData
End Sub
- 上一篇:[比赛]看谁能把她的内衣剪开!
- 下一篇:linux超详细安装方法+系统下载




