Прога следит за good.txt

[kukkk]

Всем привет!! Вот замутил прогу, которая наблюдает за good.txt и играет mp3! Угробил на ее создание 9 часов :blushing: (и не надо говорить,что она простая!) Вобщем кидаю сюда-пользуйтесь и слушайте mp3,а не waw как в каком-то другом аналоге(не помню где его видел). Пожалуйста, ВСЕ, кто юзает-отпишитесь плз в этой теме .

Вирья там нет ,я бескорысно делал прогу(кто хочет-заганяйте на вирус тотал,только поделитесь потом скринами тут). Исходничьем заделюсь в асю

Название: Brute Agent v2.0 lite.rar
Размер: 190.13 кб
http://stream.ifolder.ru/1868994019

Название: Brute Agent v2.0.rar
Размер: 8.15 Мб
http://stream.ifolder.ru/1868994051

[EatsMe]

Втопку. А то не хочу похоронный марш своему номерку слушать. В наше время могут так закриптовать, что вирус тотал не поможет.

[kukkk]

Ну как хошь,я новичек и даже компонента с протоколом нета у мене нет(кстати никто не подкинет линк на дельф 2006)?

Проглю писал из учебных целей.

P.S. А почему такая настороженность к моей проге?

[SHYLLER]

Новичек?а криптовать умеешь?=)
AhnLab-V3 2007.6.29.0 06.29.2007 no virus found
AntiVir 7.4.0.37 06.29.2007 no virus found
Authentium 4.93.8 06.27.2007 could be a corrupted executable file
Avast 4.7.997.0 06.27.2007 no virus found
AVG 7.5.0.476 06.29.2007 no virus found
BitDefender 7.2 06.29.2007 no virus found
CAT-QuickHeal 9.00 06.29.2007 no virus found
ClamAV devel-20070416 06.29.2007 no virus found
DrWeb 4.33 06.29.2007 no virus found
eSafe 7.0.15.0 06.27.2007 no virus found
eTrust-Vet 30.8.3747 06.28.2007 no virus found
Ewido 4.0 06.27.2007 no virus found
FileAdvisor 1 06.29.2007 no virus found
Fortinet 2.91.0.0 06.29.2007 no virus found
F-Prot 4.3.2.48 06.27.2007 no virus found
F-Secure 6.70.13030.0 06.29.2007 no virus found
Ikarus T3.1.1.8 06.29.2007 no virus found
Kaspersky 4.0.2.24 06.29.2007 no virus found
McAfee 5064 06.29.2007 no virus found
Microsoft 1.2701 06.29.2007 no virus found
NOD32v2 2364 06.29.2007 no virus found
Norman 5.80.02 06.29.2007 no virus found
Panda 9.0.0.4 06.29.2007 Suspicious file
Sophos 4.19.0 06.24.2007 no virus found
Sunbelt 2.2.907.0 06.27.2007 no virus found
Symantec 10 06.29.2007 no virus found
TheHacker 6.1.6.140 06.28.2007 no virus found
VBA32 3.12.0.2 06.27.2007 no virus found
VirusBuster 4.3.23:9 06.29.2007 no virus found
Webwasher-Gateway 6.0.1 06.29.2007 Virus.Win32.FileInfector.gen!9 0 (suspicious)

Aditional Information
File size: 457728 bytes
MD5: ce66df3908a25471f673129370e3d1 d7
SHA1: 27adc5203b29d6ccb2740b3f921c1b e940dd91cb
http://www.virustotal.com/vt/en/resu...c7ae7b5a7cedc6

[kukkk]

Если никто не скачает ..будет нетемно даже писать версию для полного слежения за брутом и трейную...

[FeraS]

error делал тоже прогу давно

[EatsMe]

Сообщение от SHYLLER(New)

Webwasher-Gateway 6.0.1 06.29.2007 Virus.Win32.FileInfector.gen!9 0 (suspicious)

Вот и спалилсо новичек ":)

[kukkk]

SHYLLER(New),
Не понимаю вообще вас=(. Целый день провел за написанием проги, а вы мене посылаете =( Обидна однако!

Добавлено через 50 секунд
suspicious
1) подозрительный, недоверчивый

to be suspicious of — относиться с недоверием к чему-л., кому-л.

I am suspicious of any religion. — Я с подозрением отношусь ко всякой религии.

[EatsMe]

I am suspicious of any cryptonoobs. - Я подозрительно отношусь ко всяким людям раздающим бесплатный софт.

[kukkk]

Если все, кто делает халявные проги для тебя cryptonoobs убейся об стену или не смей заходить на сайты,которые стоят под линовыми серверами, тем-более никакой нормальный антивир не запалил программу, а этот антивир пробейте по янде и наткнетесь на форумы, где написано что он реагирует так на упаковщики

[SHYLLER]

kukkk,
Я не говарил ,то что там вирус!эт 1,а во 2 я уважаю людей пишуших софт и дающие его бесплатно!

[kukkk]

Врядли асечка стоит на windows 2003 =))))

[EatsMe]

Сообщение от kukkk

написано что он реагирует так на упаковщики

Отмазывайся, отмазывайся.

Переименуйте топик в "Прога следит за good.txt и отправляет хацкеру на мыло"

[kukkk]

SHYLLER(New),
Не к тебе было сообщение, к EatsMe :cheezy:

[Santehnik]

Сурсы в студию!

[EatsMe]

kukkk, не парься ты так, я шучу :) Даже если это вирус, респект тебе за написание, я сам не шарю ничего в кодинге, поэтому эту сторону критиковать не буду. Разве что в шутку :)

П.С. А качать все равно не буду :)

[kukkk]

К чему такая агрессия к моей проге?EatsMe,если те хочется вые** перед остальными и занизить меня то ты ужо проиграл, я презираю таких ламов,как ты. Лучшебы сам написал программу,провел за ней весь день, а потом тебяб такой чел занижал на форуме.

Добавлено через 48 секунд
Гребаный браузер...пока писал сообщение,ты отписался

[EatsMe]

Читай пост выше своего :) Донт ворри би хаппи :)

[kukkk]

Усе-я запсиховал...ну как обычно,не обращайте внимания.
во сорс всей таблички

PHP код:

unit Unit10;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, MPlayer;

type
  TForm10 = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Button1: TButton;
    Button2: TButton;
    Memo1: TMemo;
    Timer1: TTimer;
    MediaPlayer1: TMediaPlayer;
    Label3: TLabel;
    Edit2: TEdit;
    Button3: TButton;
    procedure Button3Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form10: TForm10;
  e, A: single;

implementation

uses Unit11;

{$R *.dfm}

procedure TForm10.Button1Click(Sender: TObject);
begin
Timer1.Enabled:=true;
e:=0;
end;

procedure TForm10.Button2Click(Sender: TObject);
begin
     Timer1.Enabled:=false;
     e:=1;
end;

procedure TForm10.Button3Click(Sender: TObject);
begin
Form11.Show;
end;

procedure TForm10.Timer1Timer(Sender: TObject);

var
   f: TextFile;       // файл
   fName, mName: String[80]; // имя файла
   buf: String[80];   // буфер для чтения строк
   B: single;
begin
    if e=0 then
    begin
    A:=0;
    end;
   fName := Edit1.Text;
   mName := Edit2.Text;
   AssignFile(f, fName);    // чтение из файла

   try
       Reset(f);  // открыть для чтения
   except
        on EInOutError do
        begin
            ShowMessage('Ошибка доступа к файлу '+
                            fName);
            exit;
        end;
   end;


          B:=A;
          if B>0 then repeat
              begin
              readln(f);
              B:=(B-1)
              end;
          until (B<1) ;
       if not EOF(f)  then
       begin

      repeat

      begin
MediaPlayer1.FileName := mName;
try
MediaPlayer1.Open;
except
on EMCIDeviceError do
begin
ShowMessage('Ошибка открытия файла mp3.');
Exit;
end;
end;
MediaPlayer1.Play;
end;

          readln(f, buf);       // прочитать строку из файла
          A:=(A+1); //счетчик строк
          Memo1.Lines.Add(buf); // добавить строку в поле Memo1
          B:=A;
      until EOF(f) ;
       end;




        e:=1;
        CloseFile(f); // закрыть файл


end;


end. 


Добавлено через 3 минуты
Я покашо навицок, но желание есть огромное, если хотите помочь общему делу-стукайте в асю, у мене есть вопросы.. Ща парюсь над версией полного слежения над брутам, которая еще следит за проксями(если осталось мало-играет музон) и еще 2-я версия могит седеть в трее... и есче...и есче- шоб туда есче напихать?

Добавлено через 6 минут
Как вам возможность конекта к нету, выкида на сервер закриптованных паролей, чтоб с удаленного компа мона было смореть ..ну например сразу и продавать? Это если брут на какомнить сервере работает.

Добавлено через 19 минут
Ктонть сморел? Как программа?

[c4mb3ll]

такой бот делается из миранды за 5 минут и никаких суспишас файлов ;)

[kukkk]

Ну что,никто не юзал?

[SPYDER]

зачем изобретать велосипед?

readln(f);

извини меня но ты жесткач) в таком способе делать так это жесть просто)

[kukkk]

Уж как хачу так и делаю, моя первая прога=).

[Master]

зделай брут который брутил бы без proxy)

[Fata1ex]

kukkk = ww