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:
Screenshot: Ja.
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.
/*
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...
Sist endret av xaff; 18. april 2002 kl. 22:30.