Pascal? Programmering

original reprint

18. april 2002

Holder på med et spamme program (Spam2k), og skriver det i pascal.

Det jeg lurer på er egentlig ganske essensielt for at programmet skal virke. Jeg vil gjerne vite om en måte å kjøre net.exe med mine to variabler (bruker og melding) som parametere.

Kildekode:

program Spam2k0.2;
/*
Name: Spam 2k
Author: Xaff
Description: Its for spamming. Windows NT/2k/XP only.
Date: March 2002
Copyright: Not really
*/
var
bruker : string(.20.);
melding : string(.20.);
begin
writeLn(' ¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤');
writeLn('/---¤ Initiating Spam2k by Xaff ¤---\');
writeLn('\---¤ Happy Spamming ;} ¤---/');
writeLn(' ¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤');
writeLn('');
writeLn('Who would you like to spam today? Enter IP:');
write('[h4x0r@cr4x0r] '); readLn(bruker);
writeLn('What message will you be spamming with??');
write('[h4x0r@cr4x0r] '); readLn(melding);
writeLn('Spamming ',bruker,' with ',melding);
writeLn('');
writeLn(' ¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤');
writeLn('/---¤ Thank you for using Spam2k ¤---\');
writeLn('\---¤ http://xaff.jaha.dk ¤---/');
writeLn(' ¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤');
end.

Vis hele sitatet...

Screenshot: Ja.

Sist endret av xaff; 18. april 2002 kl. 22:30.