木马程序编程_木马程序脚本

怎么编辑木马程序

你想干什么？如果你只想玩玩，建议你学一下vbs脚本或bat脚本，如果你想把脚本做成exe程序，最简单的方法就是把脚本压缩到自解压文件里，再用16进制编辑器修改一下某个数值，就成功了。

如果你想干坏事，嘻嘻，木马也不是那么好写的，首先你要成为一个出色的程序员，不仅要打好C语言基础，更要精通汇编语言和计算机硬件以及操作系统原理，逻辑思维要强，当然要学的还很多，如mfc，C#等等，所以，如果你不是非常痴迷于编程，我劝你玩玩就行了，当然，更不要走上违法犯罪的道路吆！

good luck。

呀，还有，请采纳我吧，宝贝儿，嘻！

我U盘中了个脚本木马，每次自动生成.exe文件，格式化也不能清除，各位电脑高手有没有办法解决？

您好：

建议您使用腾讯电脑管家对您的u盘进行一下全面的杀毒吧，打开腾讯电脑管家中的杀毒功能选择指定位置查杀，然后选择u盘后一键查杀就可以的哦，腾讯电脑管家是完全可以帮助您查杀掉这种脚本木马病毒的，您可以点击这里下载最新版的腾讯电脑管家：最新版腾讯电脑管家下载

腾讯电脑管家企业平台：

清除asp木马脚本

%

function htmlencode(str)'滤出一些非法和无效的代码，安全性和UBB就在这里完成

dim result

dim l

if isNULL(str) then

htmlencode=""

exit function

end if

l=len(str)

result=""

dim i

for i = 1 to l

select case mid(str,i,1)'依次取出1个字符来进行检查。

case ""

result=result+""

case ""

result=result+""

case chr(13)

result=result+"br"

case chr(34)

result=result+"""

case ""

result=result+""

case chr(32)

'result=result+" "

if i+1=l and i-10 then

if mid(str,i+1,1)=chr(32) or mid(str,i+1,1)=chr(9) or mid(str,i-1,1)=chr(32) or mid(str,i-1,1)=chr(9) then

result=result+" "

else

result=result+" "

end if

else

result=result+" "

end if

case chr(9)

result=result+" "

case else

result=result+mid(str,i,1)

end select

next

htmlencode=result

end function

function sustainhtml(str)

dim result

dim l

if isNULL(str) then

sustainhtml=""

exit function

end if

l=len(str)

result=""

dim i

for i = 1 to l

select case mid(str,i,1)

case chr(13)

result=result+"br"

case chr(34)

result=result+"""

case chr(32)

'result=result+" "

if i+1=l and i-10 then

if mid(str,i+1,1)=chr(32) or mid(str,i+1,1)=chr(9) or mid(str,i-1,1)=chr(32) or mid(str,i-1,1)=chr(9) then

result=result+" "

else

result=result+" "

end if

else

result=result+" "

end if

case ""

result=result+""

case chr(9)

result=result+" "

case else

result=result+mid(str,i,1)

end select

next

sustainhtml=result

end function

' 检查sql字符串中是否有单引号，有则进行转化

function CheckStr(str)

dim tstr,l,i,ch

l=len(str)

for i=1 to l

ch=mid(str,i,1)

if ch="'" then

tstr=tstr+"'"

end if

tstr=tstr+ch

next

CheckStr=tstr

end function

function IsValidEmail(email)

dim names, name, i, c

'Check for valid syntax in an email address.

'检查邮箱的字符串是否合法

IsValidEmail = true

names = Split(email, "@")

if UBound(names) 1 then

IsValidEmail = false

exit function

end if

for each name in names

if Len(name) = 0 then

IsValidEmail = false

exit function

end if

for i = 1 to Len(name)

c = Lcase(Mid(name, i, 1))

if InStr("abcdefghijklmnopqrstuvwxyz_-.", c) = 0 and not IsNumeric(c) then

IsValidEmail = false

exit function

end if

next

if Left(name, 1) = "." or Right(name, 1) = "." then

IsValidEmail = false

exit function

end if

next

if InStr(names(1), ".") = 0 then

IsValidEmail = false

exit function

end if

i = Len(names(1)) - InStrRev(names(1), ".")

if i 2 and i 3 then

IsValidEmail = false

exit function

end if

if InStr(email, "..") 0 then

IsValidEmail = false

end if

end function

%

'你也不用上网找解决漏洞的代码了，以上面的保存成char.inc 再include调用就行了 ，把楼上的也写进来就更完美了`