я б не отказался от маечки с рекурсией... с чем-то вроде:
function power(a:longint;x:word):longint;
begin
if x=0 then power:=1
else if x mod 2 = 0 then power:=power(sqr(a),x div 2)
else power:=a*power(sqr(a),x div 2);
end;
Знаю, что Randon (червь, заточенный под win32) тянет свой инсталляционный пакет через 445-й порт. Ну, а в Винтукее 445-й порт (используемый службой Lanman) уязвим для DoS-атак (т.е. речь идёт о посылке 10k нулевых символов)...