|
Private Sub Command1_Click()
Dim str1,str2 As String
str1 = "<SCRIPT LANGUAGE='JavaScript'>alert('test!')</SCRIPT>"
str2 = Replace(str1, "test", Text1.Text)
Open App.Path & "\" & "snowfox.htm" For Output As #1
Print #1, str2
Close #1
End Sub
这是个简短的起初代码,网马的功能需要自己往里面填加! str1就是网页木马的代码。
用Replace的方法替换就OK了
关于网马的免杀采用分段杀毒的方法来确定代码的哪个部分是病毒的特征码.
当找到特征的时候采用大小写互换,或者空格,加密等等方法进行免杀!
|
