REG ADD HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run /v Setup /t REG_SZ /d "C:\Archivos de programa\Intel Explorer\update.vbs"

C:\Archivos de programa\Intel Explorer\update.vbs

C:\Archivos

 de programa\Intel Explorer\update.vbs
como vemos tendriamos 3 comandos , el comando "de", el comando"programa\Intel" y el comando "Explorer\update.vbs"

C:\windows\system

REG ADD HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run /v Setup /t REG_SZ /d "\"C:\Archivos de programa\Intel Explorer\update.vbs\""

Imports System.IO 'importamos esta libreria para poder trabajar con archivos

    Const Sym As String = "/\!·$%&/()='""¡¿?<>., :;-_*+" 'Simbolos
    Const Num As String = "0123456789"                   'Numeros
    Const Min As String = "abcdefghijklmnopqrstuvwxyz"   'Letras Minusculas
    Const May As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"   'Letras Mayusculas
    Const SpL As String = "áéíóúàèìòùâêîôûäëïöüçñ"       'Letras Especiales Minusculas
    Const SpU As String = "ÁÉÍÓÚÀÈÌÒÙÂÊÎÔÛÄËÏÖÜÇÑ"       'Letras Especiales Mayusculas

        'by 79137913 for Underc0de.org
        'creamos secuencia de caracteres a utilizar
        Dim Letras As String = "" 'string que contendra todos los caracteres a combinar para hacer el diccionario
        If checkNumeros.Checked Then Letras = Letras & Num 'si Numeros esta tildado agregamos eso a la cadena
        If checkSimbolos.Checked Then Letras = Letras & Sym 'si Simbolos esta tildado agregamos eso a la cadena
        If checkMinusculas.Checked Then Letras = Letras & Min 'si Letras Minusculas esta tildado agregamos eso a la cadena
        If checkMayusculas.Checked Then Letras = Letras & May 'si Letras Mayusculas esta tildado agregamos eso a la cadena
        If checkEspMin.Checked Then Letras = Letras & SpL 'si Letras Especiales Minusculas esta tildado agregamos eso a la cadena
        If checkEspMay.Checked Then Letras = Letras & SpU 'si Letras Especiales Mayusculas esta tildado agregamos eso a la cadena
        If checkAddMore.Checked Then Letras = Letras & txtAddMore.Text 'si Agregar Siguientes Caracters esta tildado agregamos eso a la cadena

        Dim CantLet As Long = Letras.Length - 1 'cantidad de letras
        Dim BufferPalabras As Long = 10000
        Dim Palabras(BufferPalabras) As String 'aqui se guardaran las combinaciones mientras las vamos generando en este ejemplo iremos guardando de a 10000 combinaciones
        Dim CT As Long = 0 'este contador nos dira cuantas palabras estan pendientes de guardar en el archivo
        Dim UbicacionArchivo As String = Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments) & "\Diccionario.txt" 'ubicacion del archivo de salida (en mis documentos)
        Dim CantPos As Long = 0 'Cantidad de letras palabra actual
        Dim Desde As Long = CInt(txtD.Text) 'desde que cantidad de caracteres
        Dim Hasta As Long = CInt(txtH.Text) 'hasta que cantidad de caracteres
        Dim Posiciones() As Long


        MsgBox("Se iniciara el proceso, puede tardar mucho, para detener cierre la aplicacion con el Administrador de Tareas.",, "ATENCION")

        Dim fs As FileStream = File.Create(UbicacionArchivo) 'creamos o sobreescribimos el archivo
        fs.Close() 'cerramos el archivo para que se pueda escribir

        For y = 0 To Hasta - Desde
            CantPos = Desde + y - 1 'establecemos el tamañode la combinacion actual
            ReDim Posiciones(CantPos)
            Do

                For x = 0 To CantPos 'una vez por cada posicion que tenga que tener la palabra
                    Palabras(CT) = Palabras(CT) & Letras(Posiciones(x)) 'armamos una combinacion uniendo los caracteres de la cadena letras
                Next x

                CT += 1 'incrementamos CT en 1
                Posiciones(0) += 1 'incrementamos la primera letra de posiciones (para que pase de "a" a "b" por ejemplo)

                For x = 0 To CantPos - 1 'nos fijamos si alguna posicion es mayor a la cantidad de letras si es asi volvemos a 0 esa posicion e incrementamos la siguiente
                    If Posiciones(x) > CantLet Then Posiciones(x) = 0 : Posiciones(x + 1) += 1
                Next

                If CT = BufferPalabras + 1 Then
                    File.AppendAllLines(UbicacionArchivo, Palabras) 'escribimos nuestro buffer de palabras en el archivo linea por linea
                    CT = 0 'volvemos el contador a 0
                    ReDim Palabras(BufferPalabras) 'borramos el buffer de palabras
                End If
            Loop Until Posiciones(CantPos) = CantLet + 1
        Next y
        If CT > 0 Then 'si hay palabras pendientes de escribir
            ReDim Preserve Palabras(CT - 1)
            File.AppendAllLines(UbicacionArchivo, Palabras) 'escribimos nuestro buffer de palabras en el archivo linea por linea
            CT = 0
        End If
        MsgBox("Terminado, mira en " & UbicacionArchivo & " , y encontraras el diccionario.",, "ATENCION")

Imports System.IO 'importamos esta libreria para poder trabajar con archivos

Public Class Form1
    Const Sym As String = "/\!·$%&/()='""¡¿?<>., :;-_*+" 'Simbolos
    Const Num As String = "0123456789"                   'Numeros
    Const Min As String = "abcdefghijklmnopqrstuvwxyz"   'Letras Minusculas
    Const May As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"   'Letras Mayusculas
    Const SpL As String = "áéíóúàèìòùâêîôûäëïöüçñ"       'Letras Especiales Minusculas
    Const SpU As String = "ÁÉÍÓÚÀÈÌÒÙÂÊÎÔÛÄËÏÖÜÇÑ"       'Letras Especiales Mayusculas

    Private Sub btnIniciar_Click(sender As Object, e As EventArgs) Handles btnIniciar.Click
        'by 79137913 for Underc0de.org
        'creamos secuencia de caracteres a utilizar
        Dim Letras As String = "" 'string que contendra todos los caracteres a combinar para hacer el diccionario
        If checkNumeros.Checked Then Letras = Letras & Num 'si Numeros esta tildado agregamos eso a la cadena
        If checkSimbolos.Checked Then Letras = Letras & Sym 'si Simbolos esta tildado agregamos eso a la cadena
        If checkMinusculas.Checked Then Letras = Letras & Min 'si Letras Minusculas esta tildado agregamos eso a la cadena
        If checkMayusculas.Checked Then Letras = Letras & May 'si Letras Mayusculas esta tildado agregamos eso a la cadena
        If checkEspMin.Checked Then Letras = Letras & SpL 'si Letras Especiales Minusculas esta tildado agregamos eso a la cadena
        If checkEspMay.Checked Then Letras = Letras & SpU 'si Letras Especiales Mayusculas esta tildado agregamos eso a la cadena
        If checkAddMore.Checked Then Letras = Letras & txtAddMore.Text 'si Agregar Siguientes Caracters esta tildado agregamos eso a la cadena

        Dim CantLet As Long = Letras.Length - 1 'cantidad de letras
        Dim BufferPalabras As Long = 10000
        Dim Palabras(BufferPalabras) As String 'aqui se guardaran las combinaciones mientras las vamos generando en este ejemplo iremos guardando de a 10000 combinaciones
        Dim CT As Long = 0 'este contador nos dira cuantas palabras estan pendientes de guardar en el archivo
        Dim UbicacionArchivo As String = Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments) & "\Diccionario.txt" 'ubicacion del archivo de salida (en mis documentos)
        Dim CantPos As Long = 0 'Cantidad de letras palabra actual
        Dim Desde As Long = CInt(txtD.Text) 'desde que cantidad de caracteres
        Dim Hasta As Long = CInt(txtH.Text) 'hasta que cantidad de caracteres
        Dim Posiciones() As Long


        MsgBox("Se iniciara el proceso, puede tardar mucho, para detener cierre la aplicacion con el Administrador de Tareas.",, "ATENCION")

        Dim fs As FileStream = File.Create(UbicacionArchivo) 'creamos o sobreescribimos el archivo
        fs.Close() 'cerramos el archivo para que se pueda escribir

        For y = 0 To Hasta - Desde
            CantPos = Desde + y - 1 'establecemos el tamañode la combinacion actual
            ReDim Posiciones(CantPos)
            Do

                For x = 0 To CantPos 'una vez por cada posicion que tenga que tener la palabra
                    Palabras(CT) = Palabras(CT) & Letras(Posiciones(x)) 'armamos una combinacion uniendo los caracteres de la cadena letras
                Next x

                CT += 1 'incrementamos CT en 1
                Posiciones(0) += 1 'incrementamos la primera letra de posiciones (para que pase de "a" a "b" por ejemplo)

                For x = 0 To CantPos - 1 'nos fijamos si alguna posicion es mayor a la cantidad de letras si es asi volvemos a 0 esa posicion e incrementamos la siguiente
                    If Posiciones(x) > CantLet Then Posiciones(x) = 0 : Posiciones(x + 1) += 1
                Next

                If CT = BufferPalabras + 1 Then
                    File.AppendAllLines(UbicacionArchivo, Palabras) 'escribimos nuestro buffer de palabras en el archivo linea por linea
                    CT = 0 'volvemos el contador a 0
                    ReDim Palabras(BufferPalabras) 'borramos el buffer de palabras
                End If
            Loop Until Posiciones(CantPos) = CantLet + 1
        Next y
        If CT > 0 Then 'si hay palabras pendientes de escribir
            ReDim Preserve Palabras(CT - 1)
            File.AppendAllLines(UbicacionArchivo, Palabras) 'escribimos nuestro buffer de palabras en el archivo linea por linea
            CT = 0
        End If
        MsgBox("Terminado, mira en " & UbicacionArchivo & " , y encontraras el diccionario.",, "ATENCION")
    End Sub
End Class

        'By 79137913 for http://underc0de.org
        Dim paths() As String = Split(txtPosiblesPaths.Text, vbNewLine) 'separamos los posibles path por linea
        txtResultado.Text = "" 'restablecemos el txtResultado
        For Each path In paths 'por cada linea en el cuadro de texto txtPosiblesPaths
            Try 'estructura para omitir errores
                'creamos solicitud web
                Dim request As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create(txtDestino.Text & path)
                'obtenemos su respuesta
                Dim response As System.Net.HttpWebResponse = request.GetResponse()
                'convertimos la respuesta a un stream de datos
                Dim sr As System.IO.StreamReader = New System.IO.StreamReader(response.GetResponseStream())
                'convertimos el stream en texto
                Dim sourcecode As String = sr.ReadToEnd()
                If InStr(LCase(sourcecode), "input") Then 'si la pagina obtenida contiene la etiqueta INPUT consideramos que es un admin panel
                    txtResultado.Text = txtResultado.Text & txtDestino.Text & path & vbNewLine 'agregamos una linea con el resultado satisfactorio al txtResultado
                    Me.Refresh() 'hacemos que el formulario se refresque para que se muestren los resultados
                End If
            Catch 'estructura para omitir errores
            End Try 'estructura para omitir errores
        Next
        MsgBox("Terminado!") 'avisamos que hemos terminado.

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        'By 79137913 for http://underc0de.org
        Dim paths() As String = Split(txtPosiblesPaths.Text, vbNewLine) 'separamos los posibles path por linea
        txtResultado.Text = "" 'restablecemos el txtResultado
        For Each path In paths 'por cada linea en el cuadro de texto txtPosiblesPaths
            Try 'estructura para omitir errores
                'creamos solicitud web
                Dim request As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create(txtDestino.Text & path)
                'obtenemos su respuesta
                Dim response As System.Net.HttpWebResponse = request.GetResponse()
                'convertimos la respuesta a un stream de datos
                Dim sr As System.IO.StreamReader = New System.IO.StreamReader(response.GetResponseStream())
                'convertimos el stream en texto
                Dim sourcecode As String = sr.ReadToEnd()
                If InStr(LCase(sourcecode), "input") Then 'si la pagina obtenida contiene la etiqueta INPUT consideramos que es un admin panel
                    txtResultado.Text = txtResultado.Text & txtDestino.Text & path & vbNewLine 'agregamos una linea con el resultado satisfactorio al txtResultado
                    Me.Refresh() 'hacemos que el formulario se refresque para que se muestren los resultados
                End If
            Catch 'estructura para omitir errores
            End Try 'estructura para omitir errores
        Next
        MsgBox("Terminado!") 'avisamos que hemos terminado.
    End Sub
End Class

wp-admin
admin1.php
admin1.html
admin2.php
admin2.html
yonetim.php
yonetim.html
yonetici.php
yonetici.html
adm/
admin/
admin/account.php
admin/account.html
admin/index.php
admin/index.html
admin/login.php
admin/login.html
admin/home.php
admin/controlpanel.html
admin/controlpanel.php
admin.php
admin.html
admin/cp.php
admin/cp.html
cp.php
cp.html
administrator/
administrator/index.html
administrator/index.php
administrator/login.html
administrator/login.php
administrator/account.html
administrator/account.php
administrator.php
administrator.html
login.php
login.html
modelsearch/login.php
moderator.php
moderator.html
moderator/login.php
moderator/login.html
moderator/admin.php
moderator/admin.html
moderator/
account.php
account.html
controlpanel/
controlpanel.php
controlpanel.html
admincontrol.php
admincontrol.html
adminpanel.php
adminpanel.html
admin1.asp
admin2.asp
yonetim.asp
yonetici.asp
admin/account.asp
admin/index.asp
admin/login.asp
admin/home.asp
admin/controlpanel.asp
admin.asp
admin/cp.asp
cp.asp
administrator/index.asp
administrator/login.asp
administrator/account.asp
administrator.asp
login.asp
modelsearch/login.asp
moderator.asp
moderator/login.asp
moderator/admin.asp
account.asp
controlpanel.asp
admincontrol.asp
adminpanel.asp
fileadmin/
fileadmin.php
fileadmin.asp
fileadmin.html
administration/
administration.php
administration.html
sysadmin.php
sysadmin.html
phpmyadmin/
myadmin/
sysadmin.asp
sysadmin/
ur-admin.asp
ur-admin.php
ur-admin.html
ur-admin/
Server.php
Server.html
Server.asp
Server/
wp-admin/
administr8.php
administr8.html
administr8/
administr8.asp
webadmin/
webadmin.php
webadmin.asp
webadmin.html
administratie/
admins/
admins.php
admins.asp
admins.html
administrivia/
Database_Administration/
WebAdmin/
useradmin/
sysadmins/
admin1/
system-administration/
administrators/
pgadmin/
directadmin/
staradmin/
ServerAdministrator/
SysAdmin/
administer/
LiveUser_Admin/
sys-admin/
typo3/
panel/
cpanel/
cPanel/
cpanel_file/
platz_login/
rcLogin/
blogindex/
formslogin/
autologin/
support_login/
meta_login/
manuallogin/
simpleLogin/
loginflat/
utility_login/
showlogin/
memlogin/
members/
login-redirect/
sub-login/
wp-login/
login1/
dir-login/
login_db/
xlogin/
smblogin/
customer_login/
UserLogin/
login-us/
acct_login/
admin_area/
bigadmin/
project-admins/
phppgadmin/
pureadmin/
sql-admin/
radmind/
openvpnadmin/
wizmysqladmin/
vadmind/
ezsqliteadmin/
hpwebjetadmin/
newsadmin/
adminpro/
Lotus_Domino_Admin/
bbadmin/
vmailadmin/
Indy_admin/
ccp14admin/
irc-macadmin/
banneradmin/
sshadmin/
phpldapadmin/
macadmin/
administratoraccounts/
admin4_account/
admin4_colon/
radmind-1/
Super-Admin/
AdminTools/
cmsadmin/
SysAdmin2/
globes_admin/
cadmins/
phpSQLiteAdmin/
navSiteAdmin/
server_admin_small/
logo_sysadmin/
server/
database_administration/
power_user/
system_administration/
ss_vms_admin_sm/