Запустить на выполнение файл от имени любого пользователя - Взлом - Безопастность! - Каталог статей - Сайт абсолютно для всех!!!

Воскресенье, 04.12.2016, 13:13
Приветствую Вас Гость | RSS

Сайт для всех!

Каталог статей

Главная » Статьи » Безопастность! » Взлом

Запустить на выполнение файл от имени любого пользователя
unit HSAdvApi;

interface

uses
 Windows;
procedure MyCreateProcess(ConstCommandLine: string);
function CreateProcessWithLogonW(const lpUsername: PWideChar;
 const lpDomain: PWideChar; const lpPassword: PWideChar;
 dwLogonFlags: DWORD; const lpApplicationName: PWideChar;
 lpCommandLine: PWideChar; dwCreationFlags: DWORD;
 lpEnvironment: Pointer; const lpCurrentDirectory: PWideChar;
 lpStartupInfo: PStartupInfo;
 lpProcessInfo: PProcessInformation): Boolean; stdcall;

const
 LOGON_WITH_PROFILE = $00000001;
 LOGON_NETCREDENTIALS_ONLY = $00000002;
 LOGON_ZERO_PASSWORD_BUFFER = $80000000;

implementation
uses
 SysUtils;
{$WARN SYMBOL_DEPRECATED OFF}
{ ADVAPI32.DLL functions }
type
 TCreateProcessWithLogonW =
 function(const lpUsername: PWideChar;
 const lpDomain: PWideChar; const lpPassword: PWideChar;
 dwLogonFlags: DWORD; const lpApplicationName: PWideChar;
 lpCommandLine: PWideChar; dwCreationFlags: DWORD;
 lpEnvironment: Pointer; const lpCurrentDirectory: PWideChar;
 lpStartupInfo: PStartupInfo;
 lpProcessInfo: PProcessInformation): Boolean; stdcall;

const
 DllName = 'advapi32.dll';

var
 DllHandle: THandle;
 _CreateProcessWithLogonW: TCreateProcessWithLogonW;

function InitLib: Boolean;
begin
 if DllHandle = 0 then
 if Win32Platform = VER_PLATFORM_WIN32_NT then
 begin
 DllHandle := LoadLibrary(DllName);
 if DllHandle <> 0 then
 begin
 @_CreateProcessWithLogonW := GetProcAddress(DllHandle,
 'CreateProcessWithLogonW');
 end;
 end;
 Result := (DllHandle <> 0);
end;

function NotImplementedBool: Boolean;
begin
 SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
 Result := false;
end;

function CreateProcessWithLogonW(const lpUsername: PWideChar;
 const lpDomain: PWideChar; const lpPassword: PWideChar;
 dwLogonFlags: DWORD; const lpApplicationName: PWideChar;
 lpCommandLine: PWideChar; dwCreationFlags: DWORD;
 lpEnvironment: Pointer; const lpCurrentDirectory: PWideChar;
 lpStartupInfo: PStartupInfo;
 lpProcessInfo: PProcessInformation): Boolean; stdcall;
begin
 if InitLib and Assigned(_CreateProcessWithLogonW) then
 Result := _CreateProcessWithLogonW(lpUsername, lpDomain, lpPassword,
 dwLogonFlags, lpApplicationName, lpCommandLine, dwCreationFlags,
 lpEnvironment, lpCurrentDirectory, lpStartupInfo, lpProcessInfo)
 else
 Result := NotImplementedBool;
end;

procedure MyCreateProcess(ConstCommandLine: string);
const
 UserName: WideString = 'ADMIN';
 Password: WideString = 'creyc';
 //ConstCommandLine : String = 'MONIC_S.EXE ';
 Title: WideString = 'SERVISE';
 Domain: WideString = 'SOKAL';
var
 MyStartupInfo: STARTUPINFO;
 ProcessInfo: PROCESS_INFORMATION;
 CommandLine: array[0..512] of WideChar;
begin
 FillChar(MyStartupInfo, SizeOf(MyStartupInfo), 0);
 MyStartupInfo.cb := SizeOf(MyStartupInfo);
 StringToWideChar(ConstCommandLine, CommandLine,
 Sizeof(CommandLine) div SizeOf(WideChar));
 MyStartupInfo.lpTitle := PWideChar(Title);
 if not CreateProcessWithLogonW(PWideChar(UserName), PWideChar(Domain),
 PWideChar(Password), LOGON_WITH_PROFILE, nil,
 CommandLine, 0, nil, nil, @MyStartupInfo, @ProcessInfo) then
 RaiseLastWin32Error()
 else
 begin
 CloseHandle(ProcessInfo.hProcess);
 CloseHandle(ProcessInfo.hThread);
 end;
end;

initialization
finalization
 if DllHandle <> 0 then
 FreeLibrary(DllHandle);
end.
Категория: Взлом | Добавил: FuDjI (01.03.2008) | Автор: Firdavs E W
Просмотров: 242 | Комментарии: 2 | Рейтинг: 0.0/0
Всего комментариев: 2
2  
Ненужных вещей я не буду добавить!! biggrin

1  
Очень нужная вешь !!!

Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
Форма входа
Категории раздела
Зашита [3]
Создание вирусов [4]
Взлом [10]
Прочее [37]
Поиск
Наш опрос
Какая категория файлов вас больше всего интересует?
Всего ответов: 15
Друзья сайта
  • Официальный блог
  • Сообщество uCoz
  • FAQ по системе
  • Инструкции для uCoz
  • Статистика

    Онлайн всего: 1
    Гостей: 1
    Пользователей: 0
    Copyright MyCorp © 2016