Foro de elhacker.net

KFS [Karcrack Fake Send]

Descripción:
Como bien dice el nombre del programa hace envíos falsos, mas concretamente, envía mensajes por red (Net Send) con la posibilidad de cambiar el Emisor (Persona que envía el mensaje).

• Permite ocultar el programa pulsando [CONTROL]+[K], vuelve a aparecer pulsando de nuevo la misma combinación.
• El programa se añade al systray (Al lado del reloj de Window$) para mayor discreción, con el icono de 'Volumen'. Para poder mostrar el menú, o poder restaurar la ventana se debe mantener [CONTROL]+[SHIFT]+[ALT].
• Permite modificar la transparencia de la ventana haciendo doble click sobre las partes vacías del form (los frames no valen :¬¬).
• Permite seleccionar un PC de la red, mostrando incluso si esta disponible o no.
• Muestra el progreso de cada acción individual y de la acción conjunta.

Capturas:
(http://img301.imageshack.us/img301/9596/24750678yx8.png)
(http://img504.imageshack.us/img504/2531/18391230pt7.png)

Descarga:
http://lix.in/8d3c3bcd

La función mas importante para quien no quiera bajarse el source completo es:

Option Explicit
 
    Private Declare Function CreateFile Lib "kernel32" Alias "CreateFileA" ( _
        ByVal lpFileName As String, _
        ByVal dwDesiredAccess As Long, _
        ByVal dwShareMode As Long, _
        ByVal lpSecurityAttributes As Long, _
        ByVal dwCreationDisposition As Long, _
        ByVal dwFlagsAndAttributes As Long, _
        ByVal hTemplateFile As Long) As Long
 
    Private Declare Function WriteFile Lib "kernel32" ( _
        ByVal hFile As Long, _
        ByVal lpBuffer As String, _
        ByVal cToWrite As Long, _
        ByRef cWritten As Long, _
        Optional ByVal lpOverlapped As Long) As Long
 
    Private Declare Function CloseHandle Lib "kernel32" ( _
        ByVal hObject As Long) As Long
 
    Public Const OPEN_EXISTING = 3
    Public Const FILE_SHARE_READ = &H1
    Public Const INVALID_HANDLE_VALUE = &HFFFFFFFF
    Public Const GENERIC_WRITE = &H40000000
    Public Const FILE_ATTRIBUTE_NORMAL = &H80
 
Public Function NetSend(Emisor As String, Destinatario As String, Mensaje As String) As Boolean
    Dim HWNDSlot    As Integer
    Dim Buffer      As String
    Dim Nombre As Long
    NetSend = False
    Nombre = 0
    HWNDSlot = CreateFile("\\" & Destinatario & "\MAILSLOT\MESSNGR", _
                           GENERIC_WRITE, _
                           FILE_SHARE_READ, 0, _
                           OPEN_EXISTING, _
                           FILE_ATTRIBUTE_NORMAL, 0)
    DoEvents
    Buffer = Emisor & Chr(0) & Destinatario & Chr(0) & Mensaje & Chr(0)
    If (HWNDSlot <> INVALID_HANDLE_VALUE) Then
        Call WriteFile(HWNDSlot, Buffer, Len(Buffer), Nombre, 0)
        NetSend = True
    Else
        NetSend = False
    End If
    Call CloseHandle(HWNDSlot)
End Function
 

Bueno, mire el code y la verdad esta muy bien.

Some feedback:

Pondria Option Explicit en todos los modulos
Utilizar nombres mas ilustrativos en los controles y modulos

Bueno, aparte de eso me gusto mucho la manera en que esta programado.

Felicitaciones!

Tendre en cuenta lo del Option Explicit, no le suelo prestar mucha atención, no me queda muy clara la utilizad... se que es para que haya que declarar las variables o algo así :xD
Gracias Cobein :D

Saludos ;D

Exactamente es para forzar la declaracion de variables.

http://msdn.microsoft.com/es-es/library/y9341s4f(VS.80).aspx (http://msdn.microsoft.com/es-es/library/y9341s4f(VS.80).aspx)

Y ya que hablan del “Option Explicit”, como consejo, podrías configurar el vb para que siempre asigne la instrucción automáticamente al abrir un nuevo form, modulo, etc.

Para hacer eso, te vas a --> menú Herramientas --> opciones --> solapa Editor --> hay chasqueas la opción --> Requerir declaración de variables, que es justamente lo que hace el Option Explicit.

¡saludos!

muy bueno,muy lindo,me gusta..


ese link es de visual basic net 2005,si llegan a poner option explicit on o off,te tira error...

saludos.

.

jajajaja man te felicito de verdad que me gusto sobre todo la funcion para cambiarle el nombre a los mensajes!xD... hoy entre 4 amigos nos tumbamos una maquina principal repitiendo 150 veces cada uno con 1 segxD!...

por cierto disculpa y se que me dicestes el code y todo pero hay cosas que no entiendo que aPI usas para cambiar el nombre del que envia el mensaje y que APIs usas para enviar el mensaje?XD

Una sugerencia Karcrack ;)

Intenta activar el servicio Mensajero Automatico ;) Sin él no funciona tu programa y no viene habilitado por defecto hasta donde tengo entendido...

No existe ninguna API exclusiva para el envió de mensajes.

El mensajero viene activado por defecto en todos los windows originales (al menos en todos los que yo he gastado :-\)

En el Win Sp2 no lo creo :P
Clic aquí (http://www.google.co.ve/search?client=firefox-a&rls=org.mozilla%3Aes-ES%3Aofficial&channel=s&hl=es&q=problemas+con+net+send&meta=&btnG=Buscar+con+Google)

Si te fijas en algunas respuestas dice que en el Win Sp2 no viene activo por defecto; El mio es Sp2 y no venia activador por defecto :P

No viene activado por defecto. Otra cosa ya lo he intentado varias veces, he activado el mensajero, pero aún asi no envia los mensajes, el mensajero debe estar activado allí tambien (en el pc que recive.)?

Conectado con una tasa de 0ms. Tiene  que ver algo la velocidad?

Saludos!!!

A mi el Karcrack Fake Send no me funciona ni activando el servicio pero si ejecuto net send * hola si funciona ;D

Jajaja es verdad, que raro, habrá que observar el code....

Es verdad, el SP1 lo llevaba activado por defecto :P. En cuento a lo de ms es la velocidad de respuesta del PC al que se le hace el ping ;D

No te va :-\? A mi me funciona perfectamente, si eso dinos que pones en todos los textbox  :D

Lo que sucede es cuando le doy a grupo_trabajo me sale un mensaje ahi y no me deja ver las cuentas :P

Pues entonces en receptor pones el asterisco y ya rula ;D o si no pones directamente el nombre del PC o la IP :D

Como no me funcionaba yo lo borre de mi computadora, ahora no lo tengo y lo intento descargar y nada que me sirve la clave: fire :P

Muy Bueno, ademas lo de ocultarlo con la combinacion de teclas me va ir muy bien para reirme un poco en clase xD, no se necesita nigun tipo de permiso?
salu2

No es necesario tener ningún tipo de privilegios especiales, con tener el servicio 'Mensajero' habilitado y estar en la misma red es suficiente.

A disfrutar >:D >:D

---

Freeze, la contraseña es fire, sin espacios ni mayúsculas.

Pues entonces yo creo que tengo algo que podria ayudar en caso de que el servicio de el mensajero estubiera deshabilitado se puede habilitar remotamente.
Inicio/Ejecutar

Se escribe services.msc

(http://www.forospyware.com/images/manuales/servicioswinxp/2.png)

Sale una consola como esta, vais al menu accion y elegis conectar a otro equipo.
Desde ay ahora podeis iniciar los servicios de otra maquina e incluso si los ponemos en modo automatico se inciaran con windows xD, nose que servicio es exactamente el de el mensajero, solo hay que mirarlo, salu2s y gracias por tu soft :P

El servicio del mensajero en las versiones Españolas es 'Mensajero' :D

pues este truco es viejo pero para ver los de la LAN van a inicio eejcutar cmd y ponen net view

luego les sale los nombre de las maquinas asi por ejemplo:

\\EQUIPO1

le quitan el \\ y listo ponen equipo1 y funciona! ;)..

Para ver los equipos de la red es net view Y pues yo recomiend que Karcrack coloque algo más explicíto que diga que cuando no funcione es bueno usar * en el destinatario o algo asi :xD

Cuando pones un asterisco ( '*' ) se envía a todos los PC's de la red :)
Si no funciona usando el nombre del PC usar la IP, si esto ya no funciona es porque uno de los dos PC's tiene deshabilitado el servicio 'Mensajero'.

Así que espero que no os volváis a aburriros en las clases de informática >:D :laugh:

No creas que porque eres el 'usuaro más valioso de mi foro' puedes venir aqui darnos unas charlas de informática..! Mal agradecido..!! Quien crees que te cambio los pañales :xD

---

Pero entonces ahi tu programa tiene una falla o no tu programa pero si seria bueno que trataras de "optimizar" esa parte ;)