[Source]Karcrack FakeSend

Iniciado por Karcrack, 2 Mayo 2008, 16:33 PM

0 Miembros y 1 Visitante están viendo este tema.

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
CitarPass:
fire

Karcrack

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

Código (vb) [Seleccionar]

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!
http://www.advancevb.com.ar
Más Argentino que el morcipan
Aguante el Uvita tinto, Tigre, Ford y seba123neo
Karcrack es un capo.

Karcrack

Cita de: cobein en  2 Mayo 2008, 21:27 PM
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

cobein

Exactamente es para forzar la declaracion de variables.
http://www.advancevb.com.ar
Más Argentino que el morcipan
Aguante el Uvita tinto, Tigre, Ford y seba123neo
Karcrack es un capo.

Chino Moreno

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

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


¿Necesitas información sobre una función que comenté? Lo mas seguro es que la encuentres en MSDN

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

Cita de: Chino Morenohttp://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.
La característica extraordinaria de las leyes de la física es que se aplican en todos lados, sea que tú elijas o no creer en ellas. Lo bueno de las ciencias es que siempre tienen la verdad, quieras creerla o no.

Neil deGrasse Tyson

el_c0c0

#8
.
'-     coco
"Te voy a romper el orto"- Las hemorroides

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