Исход PayPal checker by lexi v 1.1

  • На форуме работает ручное одобрение пользователей. Это значит, что, если Ваша причина регистрации не соответствует тематике форума, а также Вы используете временную почту, Ваша учётная запись будет отклонена без возможности повторной регистрации. В дальнейшем - пожизненная блокировка обоих аккаунтов за создание мультиаккаунта.
  • Мы обновили Tor зеркало до v3!
    Для входа используйте следующий url: darkv3nw2...bzad.onion/
  • Мы вновь вернули telegram чат форуму, вступайте, общайтесь, задавайте любые вопросы как администрации, так и пользователям!
    Ссылка: https://t.me/chat_dark_time

fenum

VIP

fenum

VIP
1 Фев 2016
534
239
Видимо окно авторизации
Код:
function GetUseFromWindows: string;
var
  UserName: string;
  UserNameLen: Dword;
Begin
  UserNameLen:= 255;
  SetLength(UserName, UserNameLen);
  if GetUserName(Pchar(UserName), UserNameLen) then
    Result:= Copy(UserName, 1, UserNameLen - 1)
  else
  Result:= 'Unknown';
End;

function GetSerialNum: string;
var
  SerialNum: Dword;
  a, b: Dword;
  Buffer: array[0..255] of char;
begin
  Result:='';
  try
    GetVolumeInformation(Pchar('C:\'), Buffer,
    Sizeof(Buffer), @SerialNum, a, b, nil, 0);
  finally
    Result:= IntToStr(SerialNum);
  end;
end;

function GetComputerNetName: string;
var
  Buffer: array[0..255] of char;
  Size: Dword;
begin
  Size:= 256;
  if GetComputerName(Buffer, Size) then
    Result := buffer
  else
  Result:= ''
end;

function StringToHex(str1,Separator:String):String;
var
  buf: String;
  i: Integer;
Begin
  buf:= '';
  for i:= 1 to Length(str1) do
  begin
    buf:= buf+IntToHex(Byte(str1[i]),2)+Separator;
  end;
  Result:= buf;
end;

function getSerial: string;
begin
  Result:= StringToHex((GetUseFromWindows + GetSerialNum + GetComputerNetName), '');
end;

procedure TForm9.Button1Click(Sender: TObject);

var
  Reg: TRegistry;
  HTTP: THTTPSend;
  HTML: TStringList;
begin
  if form9.Edit1.Text = '' then
  begin
    ExitProcess(0);
  end
  else
  begin
    HTML:= TStringList.Create;
    HTTP:= THTTPSend.Create;
    HTTP.Protocol:= '1.1';
    HTTP.Headers.Add('Accept: text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,*/*;q=0.8');
    HTTP.MimeType:= 'text/html';
    HTTP.UserAgent:= 'Mozilla/5.0 (Windows NT 6.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/43.0.2357.130 Safari/537.36 OPR/30.0.1835.125';
    if HTTP.HTTPMethod ('GET' , 'http://paypalauthapiga.usite.pro/License2/'+form9.Edit1.Text+'.csv') then
    begin
      HTML.LoadFromStream(HTTP.Document);
      if Pos ((form9.Edit2.text), HTML.text) <> 0 then
      begin
       Reg:= TRegistry.Create;
       Reg.RootKey:= HKEY_CURRENT_USER;
       if not Reg.KeyExists('SoftWare\Lexi') then
       begin
        Reg.CreateKey('SoftWare\Lexi');
       end;
       Reg.OpenKey('SoftWare\Lexi', True);
       Reg.WriteString('Skype', form9.Edit1.Text);
       Reg.CloseKey;
       FreeAndNil(Reg);
        Form1.Show;
        Form9.Hide;
      end
      else
      begin
        ExitProcess(0);
      end;
      FreeAndNil(HTML);
      FreeAndNil(HTTP);
    end;
  end;
end;

procedure TForm9.FormCreate(Sender: TObject);
var
  H: THandle;
  HTTP: THTTPSend;
  HTML: TStringList;
  Reg: TRegistry;
begin
  HTTP:= THTTPSend.Create;
  HTML:= TStringList.Create;

  FreeAndNil(HTML);
  FreeAndNil(HTTP);
  Reg:= TRegistry.Create;
  Reg.RootKey:= HKEY_CURRENT_USER;
  if Reg.KeyExists('SoftWare\ShopCoder') then
  begin
    Reg.OpenKeyReadOnly('SoftWare\ShopCoder');
    form9.Edit1.Text:= Reg.ReadString('Skype');
    Reg.CloseKey;
  end;
  FreeAndNil(Reg);

  H:= CreateMutex(nil, True, 'nguYzrfp');
  if GetLastError = ERROR_ALREADY_EXISTS then
  begin
    ShowMessage('LOH');
    ExitProcess(0);
  end;

 form9.Edit2.Text:= getSerial;
end;
Для работы нужен Firemonkey+Synapse
Код не смотрел даже, не интересно.
Код потока -
Пожалуйста, Вход или Регистрация для просмотра содержимого URL-адресов!

Кому не хочется качать исходник.*


GitHub - (спизжено мб)
Пожалуйста, Вход или Регистрация для просмотра содержимого URL-адресов!


Скрытое содержимое для пользователей: колебас
 
Последнее редактирование модератором:

flashbangm

Участник

flashbangm

Участник
9 Окт 2017
1
0
q
--- Пост обновлен ---
q
--- Пост обновлен ---
q
--- Пост обновлен ---
e
--- Пост обновлен ---
r
 

О нас

  • Наше сообщество существует уже много лет и гордится тем, что предлагает непредвзятое, критическое обсуждение различных тем среди людей разных слоев общества. Мы работаем каждый день, чтобы убедиться, что наше сообщество является одним из лучших.

    Dark-Time 2015 - 2024

    При поддержке: XenForo.Info

Быстрая навигация

Меню пользователя