PROGRAM Schocker;
uses crt;
var n,i,f,grenze:integer;

begin
	Randomize;
	repeat
	f:=random(200)+1;
	write('Start the show?');
	textbackground(10);Delay(f*7);clrscr;
	textbackground(0);Delay(50);clrscr;
	until keypressed;
	textbackground(0);
	clrscr;
	Delay(1004);writeln('[*] Connecting to remote host...');
	Delay(1600);writeln('[*] Socket initialized...');
	Delay(1600);writeln('[*] packets sending.');
	Delay(3000);
	clrscr;
	writeln('[*] Connecting to remote host...');
	writeln('[*] Socket initialized...');
	writeln('[*] packets sending..');
	Delay(4500);
	clrscr;
	writeln('[*] Connecting to remote host...');
	writeln('[*] Socket initialized...');
	writeln('[*] packets sending...');
	Delay(3500);
	clrscr;
	writeln('[*] Connecting to remote host...');
	writeln('[*] Socket initialized...');
	writeln('[*] packets sending....');
	Delay(2500);
	clrscr;
	writeln('[*] Connecting to remote host...');
	writeln('[*] Socket initialized...');
	writeln('[*] packets sending....!');
	Delay(800);writeln('[*] Packets injected!');
	Delay(1600);writeln('[*] Sleeping...');
	Delay(5000);writeln('[*] Connected to host: master.alphasector.zeon on port 31337');
	Delay(2000);writeln('[*] shell arrived at localhost!');
	writeln;
	write('C:\');
	Delay(3000);
	writeln('other side: sumone there?...');
	Delay(500);
	write('C:\');readln();
	grenze:=1;
	repeat
		n:=random(5);
		if n=0 then
			n:=1
		else if n=1 then
			n:=2
		else if n=2 then
			n:=3
		else if n=3 then
			n:=10
		else if n=4 then
			n:=11
		else;
		Delay(100);
		clrscr;
		textbackground(n);
		for i:=1 to grenze do
		begin
			write('§!"$**tRinItY%!$§%§$!"&$%&/-**MATRIX**-$"/%/(§%NEO&"§$%"§!$%!"§**MATRIX**$"§%$/%&/%(/&(/&)/(=&/§$&$§-**MATTRIX**-"%!"§$!"§$§*NeO*"!%$/%&(&/)/&(%&"%"!$%§%-MATRIX-!"§$%§$&$%/');
		end;
		grenze:=grenze+1;
	until keypressed;
	textbackground(0);
	clrscr;
	writeln('...jusT experiencE..be pr0.');
end.