Ok gente este codigo fuente se vende en €500 pero como hoy estoy de fiesta (motivos personales) he decidido darselos.
Se trata del codigo fuente del troyano MFucker codeado por Ibarra. El troyano tambien era privado, luego creo dejo de venderse pero que yo sepa no se libero.
En fin... aqui esta el codigo fuente hecho en Visual Basic 6.



Enlace inválido.

[Enlace externo eliminado para invitados]

Enlace inválido.

Contraseña del RAR: professional-hacker.org

Gracias por el aporte, le echare un vistazo

muxisimas gracias x compartir esa belleza!!!

Viva por fin Libe vere que aprendo gracias Xa0s

Graciassssss!!!!!!!

EDIT: fuuaaaaaaaaaaaaaaaaaaaaaaaaaaaa TE SARPASTEE!!!!!
pusiste
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Liberado por: Xa0s
' En: professional-hacker.org
' Y en: indetectables.net
' Email/MSN: [email protected]
' Disfrutenlo. Hasta el dia de hoy era privado
' NO SEAN MALDITOS Y SI DISTRIBUYEN EL CODIGO NO BORREN ESTO. AL MENOS RESPETEN
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

por todos lados xDDDDDDDDDDD
me volvi loca,en todos los modulos,en todos los lugares dice eso xDDDDD


no me anda el compilado dice:

como lo soluciono?

ose es del skin del LV osea lo que esta detras de la lista de donde se ven los "user" ve y fijate si no lo habras movido y si no falta

solucionado

edit: como creo el server?
yo apreto crear server y me sale 1 mensajito y no me deja seleccionar la ruta donde guardad ni nada

Muchas gracias me servirá para aprender mucho y claro a mas de uno solo una pequeña duda o pregunta al momento de crear el server me marca un error:

Error '9' en tiempo de ejecucion :

El subíndice esta fuera del intervalo

Y cuando me voy a depurar llego a esta parte

Private Function GetEOF(sPath As String) As Long
Dim vbData() As Byte
Dim PE As Long, NumberOfSections As Integer
Dim BeginLastSection As Long
Dim RawSize As Long, RawOffset As Long

Open sPath For Binary As #1
ReDim vbData(LOF(1) - 1)
Get #1, , vbData
Close #1

Call CopyMemory(PE, vbData(&H3C), 4)
Call CopyMemory(NumberOfSections, vbData(PE + &H6), 2)
BeginLastSection = PE + &HF8 + ((NumberOfSections - 1) * &H28)
Call CopyMemory(RawSize, vbData(BeginLastSection + 16), 4)
Call CopyMemory(RawOffset, vbData(BeginLastSection + 20), 4)
GetEOF = RawSize + RawOffset
End Function

Espero y me puedan ayudar estoy seguro que a mas de uno nos pasa esto desde ya gracias por la ayuda y tambien por el aporte ...

NOTA. El texto naranja es donde me marca el error.

Predator1234 escribió:Muchas gracias me servirá para aprender mucho y claro a mas de uno solo una pequeña duda o pregunta al momento de crear el server me marca un error:

Error '9' en tiempo de ejecucion :

El subíndice esta fuera del intervalo

Y cuando me voy a depurar llego a esta parte

Private Function GetEOF(sPath As String) As Long
Dim vbData() As Byte
Dim PE As Long, NumberOfSections As Integer
Dim BeginLastSection As Long
Dim RawSize As Long, RawOffset As Long

Open sPath For Binary As #1
ReDim vbData(LOF(1) - 1)
Get #1, , vbData
Close #1

Call CopyMemory(PE, vbData(&H3C), 4)
Call CopyMemory(NumberOfSections, vbData(PE + &H6), 2)
BeginLastSection = PE + &HF8 + ((NumberOfSections - 1) * &H28)
Call CopyMemory(RawSize, vbData(BeginLastSection + 16), 4)
Call CopyMemory(RawOffset, vbData(BeginLastSection + 20), 4)
GetEOF = RawSize + RawOffset
End Function

Espero y me puedan ayudar estoy seguro que a mas de uno nos pasa esto desde ya gracias por la ayuda y tambien por el aporte ...

NOTA. El texto naranja es donde me marca el error.

una pena, link off.

hacker man escribió:una pena, link off.

Has probado a darle a otro boton que no sea de megaupload?

Gracias por El Aporte Man!, Viejo pero Util :P