rano9999

By process name, calculate the full path to both x86 and x64 files Delphi XE

uses Psapi, tlhelp32;

var
Form1: TForm1;

implementation
{$R *.dfm}

rano9999

Next to the project, that is, with the program we throw SSL libraries : https://yadi.sk/d/Ofvn3yrx3NKvtf

Uses IdSMTP,IdMessage,IdSSLIOHandlerSocketOpenSSL; 

procedure TMainForm.Button1Click(Sender: TObject);
var
SMTP : TIdSMTP;
msg : TIdMessage;
SSLOpen : TIdSSLIOHandlerSocketOpenSSL;
begin

rano9999

Delphi XE Keylogger Hook

unit Unit1;

interface

uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Clipbrd;

rano9999

Delphi XE Running a program with UAC administrator rights

uses ShellExecute;

function Run_App_Uac(filename, load_hidden: string): boolean;
var
shell_now: TShellExecuteInfo;
begin
if (FileExists(filename)) then
begin

rano9999

Delphi XE Get a list of current user privileges and set privileges.


// SEE LIST OF PRIVILEGES

const 
SE_CREATE_TOKEN_NAME = 'SeCreateTokenPrivilege'; 
SE_ASSIGNPRIMARYTOKEN_NAME = 'SeAssignPrimaryTokenPrivilege'; 
SE_LOCK_MEMORY_NAME = 'SeLockMemoryPrivilege'; 
SE_INCREASE_QUOTA_NAME = 'SeIncreaseQuotaPrivilege'; 

rano9999

We create a service and from the service we do an auto launch of the program every time the system is started.

To begin, create a new project Service Application
Customize it

Interactive := True;
name := 'Service name';
display name := 'Service Description';

Here is the code for the auto launch program

rano9999

uses Wininet; 

function GetInetFile(const fileURL, FileName: String): boolean;
const BufferSize = 1024;
var hSession, hURL: HInternet;
Buffer: array[1..BufferSize] of Byte;
BufferLen: DWORD;
f: File;
sAppName: string;
begin

rano9999

Delphi XE and PHP Send ip GET request and get the country, city, OS version, browser and user agent

«DELPHI»
Put the library next to the program
Libraries download here: https://yadi.sk/d/Ofvn3yrx3NKvtf

var
http:TIdHTTP;
begin

rano9999

Delphi XE and PHP Post request to send the file to the host and save it on the server.

//php go.php file
<?php

if(!empty($_FILES)) //if not empty file
{

if($_FILES['files']['error'] > 0) //if error is greater than zero
$err[] = $errUpload[$_FILES['files']['error']]; //output error

rano9999

Debloating Nox

Nox, despite being the most feature-filled Android emulator, has a lot of negativity surrounding it due to their antics when it comes to making income off of their program. It is known for running repeated advertisments in the background, calling home and passing along system information (outside of your Android instance) as well as a vast amount of potentially sensitive data in an encrypted payload back to their multitude of servers. With the following preventitive measures, we can stop a majority of this happening as well as greatly improve the overall performance.

1. Download and Install a fresh copy of Nox. The latest version is fine (for now). If you already have it installed, that is fine too. No need to reinstall.

2. Enable Root Mode on Nox by clicking the gear icon and then checking the Root Startup box.

3. Install a new Launcher from the Play Store. ANYTHING but Nox's default. I suggest [Nova Launcher](https://play.google.com/s