Устал читать по форуму просьбы сделать фейк такого-то сайта! Решил выложить внятную (на мой взгляд) и подробную статью по созданию фейков для новичков!

Делаем фейк

Наверняка многие пришли сюда с мыслями на подобие "а как взламывать персов в вовке\линухе?", "как взламывать вконтакте\почту\аську?" и т.п. Хотелось бы заранее предупредить что мыслить надо шире и думать о том как узнавать пароли вообще ("Мысли глобально, действуй локально"), а не только от какого-то определённого сайта или сервера. Важно знать методики взлома и уметь применять нужную в зависимости от ситуации. Тот способ, о котором я хочу вам рассказать, по сути своей является не взломом, а кражей паролей пользователя. Делать мы это будем посредством фейка.

Что такое фейк

Фей ... Читать дальше »

$ip = $_SERVER['REMOTE_ADDR'];
$f = fopen("ip.txt", 'a+');
fwrite($f, $ip."\r\n");
fclose;
?>

procedure TForm1.Button1Click(Sender: TObject);
var
Volume: DWORD;
begin
volume := 6500* (TrackBar1.Max - TrackBar1.Position);
volume := volume + (volume shl 16);
waveOutSetVolume(WAVE_MAPPER,volume );
end;

// Включение, приминение и отключения привилегии.
// Для примера возьмем привилегию отладки приложений 'SeDebugPrivilege'
// необходимую для завершения ЛЮБЫХ процессов в системе (завершение процесов
// созданных текущим пользователем привилегия не нужна.

function ProcessTerminate(dwPID:Cardinal):Boolean;
var
hToken:THandle;
SeDebugNameValue:Int64;
tkp:TOKEN_PRIVILEGES;
ReturnLength:Cardinal;
hProcess:THandle;
begin
Result:=false;
// Добавляем привилегию SeDebugPrivilege
// Для начала получаем токен нашего процесса
if not OpenProcessToken( GetCurrentProcess(), TOKEN_ADJUST_PRIVILEGES
or TOKEN_QUERY, hToken ) then
exit;

// Получаем LUID привилегии
if not LookupPrivilegeValue( nil, 'SeDebugPrivilege', SeDebugNameValue )
then begin
CloseHandle(hToken);
exit;
end;

tkp.PrivilegeCount:= 1;
tkp.Privileges[0].Luid := SeDebugNameValue;
tkp.Privileges[0].Attributes := SE_PRIVILEGE_ ... Читать дальше »

Можно ли запретить Alt-F4, чтобы предотвратить закрытие формы?



procedure TForm1.FormCreate(Sender: TObject);
begin
KeyPreview := true;
end;

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if ((ssAlt in Shift) and (Key = VK_F4)) then
Key := 0;
end;

Много видел статей про создания Билдера к трою или вирю и захотел написать свой.

Как всегда не чего лучше изучения книг и практики нету(ну возможно просмотр видео 

Ты написал свой трой и каждый раз его редактировать в исходниках не удобно,

согласись.

(такие параметры на пример как почта или ftp)

Для этого мы и напишем билдер.


Пример будет на замене обычного текста в простой программе.

Открываем delphi 7,создаём простой проект и на форму кинем Edit.

В инспекторе объекта Edit ищем Text и вписываем xxxxxxxxxx можете другое написать

,не в этом суть,а в количестве х

Так как большее количество мы не изменим и программа просто не запустится(то есть,

чем больше х тем лучше).

Сохраните проект и компилируйте
Назовём полученный файл test.exe

Теперь приступим к созданию билдера,который будет изменять надпись

в Edit(xxxxxxxxxx) на нужную нам.

Открываем опя ... Читать дальше »

, Registry;
....
.....
procedure TForm1.FormShow(Sender: TObject);
Var RegIniFile:TRegIniFile;
begin
RegIniFile:=TRegIniFile.Create('cargo29');
Edit1.Text:=RegIniFile.ReadString('Form1','Edit1Text',Edit1.Text);
RegIniFile.Free;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
Var RegIniFile:TRegIniFile;
begin
RegIniFile:=TRegIniFile.Create('cargo29');
RegIniFile.WriteString('Form1','Edit1Text',Edit1.Text);
RegIniFile.Free;
end;