[Source]Karcrack FakeSend

[Karcrack]

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:



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

Pass:
fire

[Karcrack]

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

Código (vb) [Seleccionar] Expandir


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


[cobein]

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!

[Karcrack]

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í
Gracias Cobein

Saludos

[cobein]

Exactamente es para forzar la declaracion de variables.

[Chino Moreno]

Exige la declaración explícita de todas las variables en un archivo.

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

[cassiani]

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!

[seba123neo]

muy bueno,muy lindo,me gusta..

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

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

saludos.

[el_c0c0]

.

[Sai-To]

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!...