"THIS PROGRAM IS JUST A JOKE YOU CAN PLAY ON YOUR FRIENDS, IT DOES NOT DO ANYTHING IS SAYS ON THE PROGRAM.

This is a program I have recently made, it suppost to find your location by entering your IP address and than getting all the information it need from your computer to our 2Gamers Server. If you want to know more than download dev-pascal and than put in this source code:


{Made By: Axel
The Copywrite is of 2GamersNet
The source code is made By: Me (Axel)
This file belongs to www.2GamersNet.heavenforum.com}




program PassPara;
uses crt;
VAR

num,guess : integer;



begin
clrscr;
Num := 3224534;
WHILE guess <> 3224534 DO

begin



textcolor(yellow);
writeln('XX XX DDDDDDD SSSSSSSS OOOOOOOO ');
writeln(' XX XX DD DD SS OO OO ');
writeln(' XXXX DD DD SS OO OO ');
writeln(' XX DD DD SSSSSS OO OO ');
writeln(' XXXX DD DD SS OO OO ') ;
writeln(' XX XX DD DD SS OO OO ');
writeln('XX XX DDDDDDD SSSSSSS OOOOOOO Made by: 2Gamers ');
textcolor(white);
writeln('www.2GamersNet.heavenforum.com');
writeln;
writeln;
writeln;






textcolor(red);
write('Entre The Password To Start The XDSO: ');
read(guess);

writeln;
writeln;
writeln;
writeln;
writeln;
writeln;
writeln;
writeln;
writeln;
writeln;
writeln;
writeln;



IF guess <> num THEN
textcolor(red);
writeln('');

end;
textcolor(green);
write('XDSO Starting');
delay(500);
write('.');
delay(500);
write('.');
delay(500);
write('.');
writeln;
writeln;
writeln;
writeln;

begin
clrscr;
Num := 88203;
WHILE guess <> 88203 DO

begin
textcolor(red);
write('Entre IP of a Location: ');
readln(guess);

writeln;
writeln;

IF guess <> num THEN
textcolor(red);
writeln('');

end;
textcolor(green);
write('Searching Location');
delay(500);
write('.');
delay(500);
write('.');
delay(500);
write('.');
writeln;
writeln;
writeln;
writeln;


textcolor(red);
write('Location: Malta');
writeln;
writeln;
writeln;


textcolor(red);
write('Gathering Information');
delay(500);
write('.');
delay(500);
write('.');
delay(500);
write('.');
delay(500);
write('.');
delay(500);
write('.');

delay(600);
textcolor(green);
write(' Success');
writeln;
writeln;
writeln;


textcolor(red);
write('Backing Up All Systems Data To 2Gamers Server');
delay(500);
write('.');
delay(500);
write('.');
delay(500);
write('.');
delay(500);
write('.');
delay(500);
write('.');

delay(600);
textcolor(green);
write(' Success');
writeln;
writeln;
writeln;

textcolor(red);
write('Deleting "System32" data');
delay(500);
write('.');
delay(500);
write('.');
delay(500);
write('.');
delay(500);
write('.');
delay(500);
write('.');

delay(600);
textcolor(green);
write(' Deleted');
writeln;
writeln;
writeln;

textcolor(red);
write('Gathering Information for CPU meltdown');
delay(500);
write('.');
delay(500);
write('.');
delay(500);
write('.');
delay(500);
write('.');
delay(500);
write('.');

delay(600);
textcolor(green);
write(' Done');
writeln;
writeln;
writeln;

textcolor(red);
write('Building Up data for CPU meltdown');
delay(500);
write('.');
delay(500);
write('.');
delay(500);
write('.');
delay(500);
write('.');
delay(500);
write('.');

delay(600);
textcolor(green);
write(' Done');
writeln;
writeln;
writeln;


write('Press Entre to Continue... ');
readln;



begin
clrscr;
Num := 125678;
WHILE guess <> 125678 DO

begin

write('Entre The Password To Start The Meltdown: ');
readln(guess);

writeln;
writeln;

IF guess <> num THEN
textcolor(red);
writeln('');

end;



textcolor(red);
write('CPU Non-permanent meltdown');
delay(800);
write(' 10');
delay(800);
write(' 9');
delay(800);
write(' 8');
delay(800);
write(' 7');
delay(800);
write(' 6');
delay(800);
write(' 5');
delay(800);
write(' 4');
delay(800);
write(' 3');
delay(800);
write(' 2');
delay(800);
write(' 1');

delay(1000);
textcolor(green);
write(' Meltdown Completed');
writeln;
writeln;
writeln;

Write('Press Entre To Exit...');

while not keypressed DO;

end;

end;

end.


Just copy and paste it into your dev-pascal or simply downlaod this ready file to open:

http://files.filefront.com/XDSO+Betapp/;12450889;/fileinfo.html

All Thanks to Paranoid* for giving me this idea.
Please do not post this file on other websites or do NOT say that this file was made by you, if you see this file anywhere on other websites or forums. Please contact me: Axel13pl@gmail.com

Last edited by Axel on Tue Nov 25, 2008 1:30 pm; edited 1 time in total (Reason for editing : Small change)