Hola gente!

Pues andaba un poco aburrido ayer y me desidi a crear una shell local, con unas modificaiones podran meterla en un subproseso, una socket, o lo que se les ocurra

Les dejo el codigo y un ejemplo de uso

' ****************************************************************************************************************************** '
'
' --- Autor: Jhonjhon_123 (Jhon Jairo Pro Developer)
' --- Versión: 1.0
' --- Descripción: Shell a nivel local en windows
' --- Fallos y Mejoras: MSN; j.j.g.p@hotmail.com
' --- Licencia: GNU General Public License
'
' ****************************************************************************************************************************** '
Option Explicit

Private Declare Function PeekNamedPipe Lib "kernel32" (ByVal hNamedPipe As Long, lpBuffer As Any, ByVal nBufferSize As Long, lpBytesRead As Long, lpTotalBytesAvail As Long, lpBytesLeftThisMessage As Long) As Long
Private Declare Function ReadFile Lib "kernel32" (ByVal hFile As Long, lpBuffer As Any, ByVal nNumberOfBytesToRead As Long, lpNumberOfBytesRead As Long, lpOverlapped As Any) As Long
Private Declare Function WriteFile Lib "kernel32" (ByVal hFile As Long, lpBuffer As Any, ByVal nNumberOfBytesToWrite As Long, lpNumberOfBytesWritten As Long, ByVal lpOverlapped As Long) As Long

Private Declare Function CreatePipe Lib "kernel32" (phReadPipe As Long, phWritePipe As Long, lpPipeAttributes As Any, ByVal nSize As Long) As Long
Private Declare Function CreateProcess Lib "kernel32" Alias "CreateProcessA" (ByVal lpApplicationName As String, ByVal lpCommandLine As String, lpProcessAttributes As Any, lpThreadAttributes As Any, ByVal bInheritHandles As Long, ByVal dwCreationFlags As Long, lpEnvironment As Any, ByVal lpCurrentDriectory As String, lpStartupInfo As STARTUPINFO, lpProcessInformation As PROCESS_INFORMATION) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long

Private Declare Function TerminateProcess Lib "kernel32" (ByVal hProcess As Long, ByVal uExitCode As Long) As Long

Private Declare Function DuplicateHandle Lib "kernel32" (ByVal hSourceProcessHandle As Long, ByVal hSourceHandle As Long, ByVal hTargetProcessHandle As Long, lpTargetHandle As Long, ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwOptions As Long) As Long
Private Declare Function GetCurrentProcess Lib "kernel32" () As Long

Private Const STARTF_USESTDHANDLES          As Long = &H100
Private Const STARTF_USESHOWWINDOW          As Long = &H1
Private Const DUPLICATE_SAME_ACCESS         As Long = &H2
Private Const NORMAL_PRIORITY_CLASS         As Long = &H20

Private Type SECURITY_ATTRIBUTES
    nLength                                As Long
    lpSecurityDescriptor                   As Long
    bInheritHandle                         As Long
End Type

Private Type STARTUPINFO
    cb                                     As Long
    lpReserved                             As String
    lpDesktop                              As String
    lpTitle                                As String
    dwX                                    As Long
    dwY                                    As Long
    dwXSize                                As Long
    dwYSize                                As Long
    dwXCountChars                          As Long
    dwYCountChars                          As Long
    dwFillAttribute                        As Long
    dwFlags                                As Long
    wShowWindow                            As Integer
    cbReserved2                            As Integer
    lpReserved2                            As Long
    hStdInput                              As Long
    hStdOutput                             As Long
    hStdError                              As Long
End Type

Private Type PROCESS_INFORMATION
    hProcess                               As Long
    hThread                                As Long
    dwProcessID                            As Long
    dwThreadId                             As Long
End Type

Dim lHInput As Long
Dim lHOutput As Long
Dim lCmdID As Long

Public Sub StopShell()

If lHInput > 0 Then Call CloseHandle(lHInput)

If lHOutput > 0 Then Call CloseHandle(lHOutput)

If lCmdID > 0 Then Call TerminateProcess(lCmdID, ByVal 0&): Call CloseHandle(lCmdID)

End Sub

Public Function GetOutTextShell(sOut As String) As Boolean
Dim bBuffer() As Byte
Dim lLen As Long
Dim bRes As Boolean
Dim lLenBuff As Long

bRes = CBool(PeekNamedPipe(lHOutput, 0&, 0&, 0&, lLen, 0&))

If Not bRes Then Exit Function

If lLen <= 0 Then Exit Function

ReDim bBuffer(lLen)

If ReadFile(lHOutput, bBuffer(0), lLen, lLenBuff, ByVal 0&) = 0 Then Exit Function

sOut = Left(StrConv(bBuffer, vbUnicode), lLenBuff)

GetOutTextShell = True

End Function

Public Sub SendToShell(sCMD As String)
Dim sBytes() As Byte
Dim BytesWritten As Long

If lHInput = 0 Then Exit Sub
sCMD = sCMD & vbNewLine
sBytes = StrConv(sCMD, vbFromUnicode)

If WriteFile(lHInput, ByVal sCMD, Len(sCMD), BytesWritten, 0&) = 0 Then
    Exit Sub
End If

End Sub

Public Function StartShell() As Boolean
On Error GoTo Error

Dim tSecurityAttributes As SECURITY_ATTRIBUTES
Dim tStartInfo          As STARTUPINFO
Dim tProcessInfo        As PROCESS_INFORMATION
Dim lCurrentID          As Long

lCurrentID = GetCurrentProcess()

With tStartInfo
    .cb = Len(tStartInfo)
    .dwFlags = STARTF_USESTDHANDLES Or STARTF_USESHOWWINDOW
End With

With tSecurityAttributes
    .nLength = Len(tSecurityAttributes)
    .bInheritHandle = 1
End With

If CreatePipe(lHOutput, tStartInfo.hStdOutput, tSecurityAttributes, 0) = 0 Then
    GoTo Error
End If

If CreatePipe(tStartInfo.hStdInput, lHInput, tSecurityAttributes, 0) = 0 Then
    GoTo Error
End If

If DuplicateHandle(lCurrentID, tStartInfo.hStdOutput, lCurrentID, tStartInfo.hStdError, 0&, True, DUPLICATE_SAME_ACCESS) = 0 Then
    GoTo Error
End If

If CreateProcess(vbNullString, "cmd", tSecurityAttributes, tSecurityAttributes, 1, NORMAL_PRIORITY_CLASS, ByVal 0&, vbNullString, tStartInfo, tProcessInfo) = 0 Then
    GoTo Error
End If

With tProcessInfo
    Call CloseHandle(.hThread)

    lCmdID = .hProcess

    If .dwProcessID > 0 And .hProcess > 0 Then
        StartShell = True
    Else
        GoTo Error
    End If
End With

Exit Function
Error:
Call StopShell
StartShell = False

End Function

Descarga Ejemplo: http://www.multiupload.com/1NVDU8LZSP

Saludos

Valla mierda! …

Age of Empires Online es el próximo capítulo de la exitosa franquicia para PC Age of Empires. El juego incluye dos de las mayores civilizaciones de la Antigüedad, la griega y la egipcia, y ofrece más de 40 horas de juego gratuito.

¡Pero eso es solo el principio! A medida que los jugadores expandan su imperio y busquen nuevas aventuras, Age of Empires Online les ofrecerá la oportunidad de comprar nuevos paquetes de contenido superior, que incluyen desde civilizaciones totalmente nuevas hasta expansiones con nuevos modos de juego. Se trata del mayor Age of Empires hasta la fecha.

Y por si eso fuera poco, Age of Empires Online añade nuevas opciones de interacción social, personalización y funciones de rol masivo dentro de un mundo persistente en constante evolución. Juega de forma cooperativa o competitiva, fabrica y comercia objetos y sube de nivel completando misiones… ¡todo de manera gratuita! Además, Age of Empires Online sigue ofreciendo el estilo de juego de estrategia en tiempo real, en el que los jugadores podrán construir poderosos imperios, gestionar recursos, conseguir recompensas y conquistar nuevos mundos llenos de laboriosos aldeanos, guerreros épicos y edificios históricos.

En Age of Empires Online, TÚ MANDAS.
Descargar

El dominio .co.cc completamente censurado en la página de resultados del mayor buscador de Internet.

Google ha decidido bloquear los 11 millones de websites con dominio .co.cc. por motivos de seguridad.

Responsables del equipo de calidad de búsqueda de Google, han confirmado el bloqueo del referido dominio al observar que la mayoría de los sitios que lo incluían estaban dedicados al envío de spam o alojar contenido de baja calidad.

Esta decisión sin precedentes en la Web se ha tomado tras observar que durante los últimos 6 meses del 2010 se llevaron a cabo cerca de 5000 ataques phishing de entre los más de 11.3 millones de dominios .co.cc. registrados.

La razón del aprovechamiento del dominio para estos fines fraudulentos se debe a que la compañía titular ofrece alojamiento gratuito o a muy bajo precio.

Este bloqueo indiscriminado llevado a cabo por Google supone la perdida total del tráfico proveniente del mayor motor de búsqueda de Internet (83.6%) no solo para todas aquellas webs malintencionada sino también para algunas legitimas. Los sitios .cc no están afectados por la medida de Google.

Fuente: El Pais

No hay nada como burlarse y de probar a los atacantes. En lo que algunos atacantes podrían considerar un desafío, John Howie, director senior de Microsoft en la línea de Servicios de Seguridad y Cumplimiento (OSSC), básicamente, afirmó que los sitios de Microsoft no pueden ser DDoSed. Howie de Microsoft Howie ha dicho que “Microsoft es más fuerte que Sony y RSA, que habían cometido ‘errores de principiantes’”.Según Microsoft, los “errores de novato” de Sony y la firma de seguridad RSA causaron que las empresas fueran atacadas con éxito. Howie le dijo a Computing News que Sony falló en la actualización de sus servidores. “Estos son errores de novato”, dijo Howie. En lo que respecta a la violación de RSA, Howie dijo, “RSA fue hackeado porque alguien hizo ingeniería social y abrieron archivos adjuntos en los correos. Otro error de principiante”.

Howie agregó: “En Microsoft tenemos mecanismos sólidos para asegurar que no hay servidores desactualizados. Contamos con la capacitación del personal suficiente para que conozcan sobre ingeniería social. Hemos sobredimensionado enormemente nuestra capacidad de Internet, esto nos protege contra los ataques de denegación de servicio. No nos daremos cuenta hasta que la columna de datos llegue a 2 GB/seg, y desde entonces no vamos a sudar hasta que lleguemos a 5 GB/seg. Aún así podemos bloquear las direcciones que se sospechan maliciosas”.

Fuente: Segu-Info

El nuevo navegador de Mozilla superó los cinco millones de descargas en menos de un día y recibió una torta de felicitación de Internet Explorer

Los desarrolladores de Firefox recibieron una torta de felicitación de sus pares de Internet Explorer.

La expectativa por el Firefox 4, la nueva versión del navegador de Mozilla, ha sido tal que en menos de un día duplicó las descargas del Internet Explorer 9.
En menos de 24 horas Firefox sobrepasó las 5 millones de descargas, con lo que superó las 2,35 millones que tuvo el programa de Microsoft en el mismo periodo, informó el diario español “ABC”.

TORTA DE FELICITACIÓN

Luego de conocerse las cifras, el ‘product manager’ de Mozilla, Jay Pattel, mostró en su cuenta de Twitter la fotografía de una torta de felicitación enviada por el equipo de Internet Explorer. “Felicidades por el lanzamiento”, dice el dulce.

“La tradición continúa” escribió Patel, refiriéndose a que en el 2008, cuando se lanzó Firefox 3, también recibieron una torta similar.

Producto: Megaupload Account Checker – MEGAC v2.1

Descripción: Valida el estado de las cuentas de usuario del servidor de descarga megaupload.com e informa sobre los datos mas relevantes de la misma

Autor: Jhonjhon_123 – [J.J.G.P]

Lo + Nuevo

• Sistema de notificaciones: recibe actualizaciones, informes, noticias y mas
• Filtro al exportar: elige tipos de cuentas a excluir
• Configuración: guarda tus preferencias
• Cuentas en cola: sistema de cola en las conexiones
• Máximo de conexiones: elige el máximo numero de conexiones al tiempo

Importación Y Exportación

Puede elegir los parámetros de exportación e importación en el apartado de configuración ( configurables en código ASCII )

Importación: un caso de importación seria:

Sep. Interior = :
Sep. Exterior = |
user:password|user2:password|

Exportación: Como podemos ver tenemos al lado izquierdo el orden en el cual exportara los datos y en el lado derecho puede seleccionar los datos que desee exportar

Como en la importación el ejemplo seria:

user:password:0.0.0.0 (PAIS):email@emai.com|user2:password:0.0.0.0 (PAIS):email@emai.com|

Descargar

La presente fue actualizada conforme al nuevo estilo Web de megaupload.com

Esta pequeña aplicación esta hecha por mi (Jhonjhon_123), la cual te cuequea cuentas del servidor de descargas megaupload.com y te da toda la información relacionada a esta, también cuenta con una función importar y otra exportar, además de eso podes elegir los parámetros con los cuales quieres importar o exportar los datos, un caso de importación seria:

Sep. Interior = :

Sep. Exterior = |

user:password|user2:password|

En el caso de exportación es la misma dinámica aplicada con el siguiente formulario:

Como podemos ver tenemos al lado izquierdo el orden en el cual exportaras los datos y en el lado derecho puedes seleccionar los datos que desees exportar

Como en la importación el ejemplo seria:

user:password:0.0.0.0 (PAIS):email@emai.com|user2:password:0.0.0.0 (PAIS):email@emai.com|

Descarga

http://www.multiupload.com/10ZZMCTXMU

ALERTA <————————————————————————

Bueno como ven si entran a megaupload.com, estos tios an actualizado su pagina y tiene nueva imagen, pues parece que lo hubieran hecho para joder mi tool jeje.

Ahora esta versión es TOTALMENTE obsoleta e incompatible con el nuevo megaupload, estaré creando la nueva versión para este nuevo MU

————————————————————————>

Esta pequeña aplicación esta hecha por mi (Jhonjhon_123), la cual te cuequea cuentas del servidor de descargas megaupload.com y te da toda la información relacionada a esta, también cuenta con una función importar y otra exportar, además de eso podes elegir los parámetros con los cuales quieres importar o exportar los datos, un caso de importación seria:

Sep. Interior = :

Sep. Exterior = |

user:password|user2:password|

En el caso de exportación es la misma dinámica aplicada con el siguiente formulario:

Como podemos ver tenemos al lado izquierdo el orden en el cual exportaras los datos y en el lado derecho puedes seleccionar los datos que desees exportar

Como en la importación el ejemplo seria:

user:password:0.0.0.0 (PAIS):email@emai.com|user2:password:0.0.0.0 (PAIS):email@emai.com|

Descarga

http://www.multiupload.com/Z2CHABDX8T