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

 

 


Tema destacado: Arreglado, de nuevo, el registro del warzone (wargame) de EHN


  Mostrar Temas
Páginas: 1 2 [3] 4 5
21  Seguridad Informática / Nivel Web / [Aplicacion] ASCIIC - by xassiz en: 28 Septiembre 2009, 20:33 pm
Bueno, os dejo esta tool q acabo de programar en VBScript :xD

Pasa una string a ASCII y tiene la opcion de copiarla al portapapeles =)



Descarga Aqui

Pass: xassiz09


Espero que os guste =D

Saludos!!
22  Programación / Scripting / [vbs] Mi primer HTA =D en: 28 Septiembre 2009, 18:59 pm
 ;D ;D ;D ;D ;D ;D ;D ;D ;D ;D ;D ;D ;D

Bueno, os dejo mi primer HTA que interactua con el vbs, con variables y funciones y tal :xD

Código:
<html>
<HEAD>
<TITLE>xassiz HTA</TITLE>
<HTA:APPLICATION
ID="miHTA"
APPLICATIONNAME="xassiz HTA"
BORDER="thin"
BORDER STYLE="raised"
CAPTION="yes"
SCROLL="yes"
SELECTION="no">
<body bgcolor="black">
</HEAD>
<body>
<center>
<font color="red"><h1>xassiz HTA</h1></font>
<script language="VBScript">
Window.ResizeTo 390, 410
</script>
<br><br>
<input type="button" value="Saludar" name="run_button" onClick="saludar">
<br><br>
<input type="button" value="Despedir" name="run_button" onClick="despedir">
<br><br>
<input type="button" value="Cambiar Nombre" name="run_button" onClick="changename">
<br><br>
<script language="VBScript">
nombre = InputBox("Tu nombre","xassiz HTA","xassiz")
Function saludar()
msgbox"Hola "&nombre&"!!",99,"xassiz HTA"
End Function
Function despedir()
msgbox"Adios "&nombre&"!!",99,"xassiz HTA"
End Function
Function changename()
nombre = InputBox("Tu nombre","xassiz HTA","xassiz")
End Function
</script>

</center>
</body>
</html>


HTA Rulez ;-)
23  Programación / Scripting / VBScript: Funciones de Texto en: 27 Septiembre 2009, 22:56 pm
Visual Basic Script
Funciones de texto



Asc(string)

Devuelve el código numérico (ANSI) del primer carácter de la cadena string, que por lo menos debe tener uno. En caso contrario se produce un error. Por ejemplo para obtener el código de la letra A:

Código:
<%
     Response.Write( Asc("A") )
%>

Y este sería el resultado:

Código:
65



Chr(código)

Funciona justo al contrario que Asc(): su argumento es el código numérico (ANSI) de un carácter. Por ejemplo para obtener la letra A:

Código:
<%
     Response.Write( Chr(65) )
%>


Y este sería el resultado:

Código:
A


Respecto a estas dos funciones, conviene recordar que los códigos comprendidos entre 0 y 32 no son visibles en pantalla ni pueden imprimirse, ya que son caracteres de control. Por ejemplo Chr(10) es un avance de línea.

Código:
String(cuantos, cod_caracter)


Devuelve una cadena compuesta por el/los caracteres cuyo código indica cod_caracter y de la longitud indicada por cuantos. Por ejemplo:

Código:
<%
     Response.Write( String(5, 65) )
%>


Y este sería el resultado:

Código:
AAAAA



Space(cuantos)

Es parecida a la anterior, pero solamente es capaz de generar cadenas compuestas por espacios en blanco, de la longitud indicada por cuantos. Esto mismo se puede hacer también con la función String().

Código:
Cstr(valor)


Devuelve un string conteniendo valor. Es decir, que convierte cualquier tipo de dato contenido en valor al tipo string. Hay algunas particularidades que conviene conocer en función del tipo de dato recibido por valor. Si recibe

Código:
          Booleano: devuelve un string con la palabra "False" o "True"
          Date: devuelve un string con una fecha en el formato corto: "30/12/2002"
          Null: Error
          Error: devuelve un string con la palabra "Error" seguida del número del error
          Numérico: devuelve un string con el número aplicando la configuración regional (coma decimal, etc.)



InStr([Inicio, ]Cadena, Subcadena[, Comparación])

Devuelve un número que indica la posición del primer carácter de una subcadena dentro de otra, obviamente de mayor longitud. cadena. Sus argumentos son:

Inicio Opcional. Es un número que indica en qué posición, dentro de Cadena, se comienza a buscar Subcadena. Si se omite, por defecto se comienza por la posición 1.
Cadena Obligatorio. Es la cadena principal dentro de la cual hay que buscar Subcadena. Debe tener el tipo de dato string.
Subcadena Obligatorio. Es la cadena con la muestra de lo que se va a buscar dentro de Cadena. Debe tener el tipo de dato string.
Comparación Opcional. Es es un número que indica de qué forma se van a evaluar la subcadena buscada. Puede escribirse el número o la constante intrínseca equivalente. Puede tener dos valores:

Código:
    * 0 Comparación binaria. Por defecto (vbBinaryCompare)
    * 1 Comparación textual (vbTextCompare)


Utilizar la Comparación binaria o textual permite diferenciar, por ejemplo, mayúsculas de minúsculas, que por defecto VBScript considera iguales. Al ser 0 el valor por defecto de Comparar, Instr() distingue entre mayúsculas y minúsculas

He aquí un ejemplo:

Código:
<%
  Dim Cadena
 
  Cadena = "Esto es una prueba de buscar subcadenas"

  Response.Write(Instr(1, Cadena, "prueba")
%>


Y este sería el resultado:

Código:
13


Este es el funcionamiento ideal, pero pueden ocurrir cosas inesperadas en el valor de las cadenas. Entonces, la función se comportará de la siguiente manera: Si la longitud de Cadena es 0, Instr() devuelve 0. Si el valor de Inicio es mayor que la longitud de Cadena también devolverá 0. Si la longitud de Subcadena es 0, devolverá el valor de Inicio. Si Subcadena no es encontrada dentro de Cadena, devolverá 0. Y por último, si Cadena o Subcadena contienen Null devolverá Null.




InStrRev(Cadena, Subcadena[, Inicio[, Comparar]])

Como habrás visto, tiene una pequeña diferencia de sintaxis con la anterior, aunque en todo lo demás funciona igual, excepto en que en lugar de comenzar la búsqueda por defecto en la posición 1 de Cadena lo hace comenzando por la última posición de la misma, o lo que es equivalente, por la posición -1.




LCase(Cadena)

Devuelve una cadena cuyas letras mayúsculas han sido convertidas a minúsculas. por ejemplo:

Código:
<%
  Dim Cadena
  Cadena = "Esto es una prueba DE MAYÚSCULAS y Números: 1234"

  Response.Write(LCase(Cadena)
%>


Y este sería el resultado:

Código:
esto es una prueba de mayúsculas y números: 1234




UCase(Cadena)

Devuelve una cadena cuyas letras minúsculas han sido convertidas a mayúsculas. Es decir, justo lo contrario que la anterior función LCase()



Left(Cadena, Cuantos)

Devuelve una cadena conteniendo el número de caracteres especificado por Cuantos del lado izquierdo de Cadena. Por ejemplo:

Código:
<%
  Dim Cadena
  Cadena = "ABCDEFGHIJK"

  Response.Write(Left(Cadena, 3)
%>

Y este sería el resultado:

Código:
ABC



Right(Cadena, Cuantos)

Devuelve una cadena conteniendo el número de caracteres especificado por Cuantos del lado derecho de Cadena. Por ejemplo:

Código:
<%
  Dim Cadena
  Cadena = "ABCDEFGHIJK"

  Response.Write(Right(Cadena, 3)
%>


Y este sería el resultado:

Código:
IJK



Len(Cadena)

Devuelve un número que indica cuantos caracteres contiene Cadena. Por ejemplo:

Código:
<%
  Dim Cadena
  Cadena = "ABCDEFGHIJK"

  Response.Write(Len(Cadena)
%>


Y este sería el resultado:

Código:
11


Si en lugar de una cadena el argumento es un número, Len() devolverá el número de dígitos que forman el número propiamente dicho. Por ejemplo:

Código:
<%
  Dim Valor
  Valor = 2003

  Response.Write(Len(Valor)
%>


Y este sería el resultado:

Código:
4



Mid(Cadena, Inicio[, Cuantos])

Devuelve una cadena conteniendo el número de caracteres indicado por Cuantos extraida de Cadena y comenzando en la posición indicada por Inicio. Por ejemplo:

Código:
<%
  Dim cadena
  Cadena = "ABCDEFGHIJK"

  Response.Write(Mid(Cadena, 2, 3))
%>


Y este sería el resultado:

Código:
BCD



LTrim(Cadena)   RTrim(Cadena)   Trim(Cadena)

Estas tres funciones sirven para eliminar los espacios en blanco que haya en el lado izquierdo, derecho o en ambos de Cadena. Los espacios que contenga Cadena en el interior no se verán afectados. Por ejemplo:

Código:
<%
  Dim cadena
  Cadena = " ABCD EFGH IJK "

  Response.Write(Chr(34) & LTrim(Cadena) & Chr(34) )
  Response.Write(Chr(34) & RTrim(Cadena) & Chr(34))
  Response.Write(Chr(34) & Trim(Cadena) & Chr(34))
%>


Y este sería el resultado:

Código:
"ABCD EFGH IJK "
" ABCD EFGH IJK"
"ABCD EFGH IJK"



Replace(Cadena, Busca, Cambio[, Inicio, [Cuantos, [Comparar]]])

Localiza el contenido de Busca dentro de Cadena y lo sustituye (Replace) por el valor de Cambio. Sus argumentos son:

Cadena Obligatorio. Es la cadena principal dentro de la cual hay que realizar los cambios. Debe tener el tipo de dato string.
Busca Obligatorio. Es la subcadena que indica lo que hay que buscar dentro de Cadena para cambiarlo. También debe tener el tipo de dato string.
Cambio Obligatorio. Es la subcadena que sustituirá a Busca. Al igual que los dos anteriores, debe tener el tipo de dato string.

Inicio Opcional. Es un número que indica en qué posición, dentro de Cadena, se comienza a buscar el valor de Busca. Si se omite, por defecto se comienza por la posición 1.
Cuantos Opcional. Indica cuantas sustituciones, de todas las posibles, se quiere realizar. El valor por defecto es -1, que significa todas.
Comparar Opcional. Es es un número que indica de qué forma se va a evaluar la subcadena buscada. Puede escribirse el número o la constante intrínseca equivalente. Puede tener dos valores:

Código:
    * 0 Comparación binaria. Por defecto (vbBinaryCompare)
    * 1 Comparación textual (vbTextCompare)


Utilizar la Comparación binaria o textual permite diferenciar, por ejemplo, mayúsculas de minúsculas, que por defecto VBScript considera iguales. Al ser 0 el valor por defecto de Comparar, Replace() distingue entre mayúsculas y minúsculas

He aquí un ejemplo:

Código:
<%
  Dim Cadena
 
  Cadena = "Esto es una prueba de buscar subcadenas y cambiarlas"

  Response.Write(Replace(Cadena, "prueba", "muestra")
%>


Y este sería el resultado:

Código:
Esto es una muestra de buscar subcadenas y cambiarlas

Hay que tener en cuenta algunas cosas: Si la longitud de Cadena es 0, Replace() devuelve lo mismo. Se producirá un error si Cadena es Null. Otra cosa importante es que si inicio es mayor que 0, la cadena resultante será la comprendida entre el punto señalado por Inicio y el fin de Cadena, es decir que será menos larga que el original.



StrComp(Cadena1, Cadena2[, Comparar])

Compara Cadena1 con Cadena2 y devuelve un valor numérico para indicar el resultado. El modo de comparar las dos cadenas viene indicado por Comparar, que es opcional. Puede escribirse el número o la constante intrínseca equivalente para definir Comparar. Puede tener dos valores:

Código:
    * 0 Comparación binaria. Por defecto (vbBinaryCompare)
    * 1 Comparación textual (vbTextCompare)


Utilizar la Comparación binaria o textual permite diferenciar, por ejemplo, mayúsculas de minúsculas, que por defecto VBScript considera iguales. Al ser 0 el valor por defecto de Comparar, StrComp() distingue entre mayúsculas y minúsculas

Los valores obtenidos con StrComp() son:

Código:
    * -1 si cadena1 es menor que cadena2
    * 0 si cadena1 es igual que cadena2
    * 1 si cadena1 es mayor que cadena2
    * Null si cadena1 o cadena2 contienen Null
24  Programación / Scripting / {Resuelto} [vbs] Dudas con Mid en: 27 Septiembre 2009, 22:34 pm
Hay alguna forma de eliminar el primer caracter de un string con Mid o cualquiera otra funcion?

Código:
frase = "aHola Mundo"

Y que quede Hola Mundo.

O si no se puede hacer que:
Código:
frase = "Hola MundoA"

Tambien quede en Hola Mundo



Es decir, quitar el primer o ultimo caracter?


Saludos :)

PD: Lo contrario de Left(frase,1) o Right(frase,1)
25  Programación / Scripting / {Resuelto} [vbs] HTA.. ¬¬ en: 27 Septiembre 2009, 14:56 pm
Alguien encontro un manual sobre HTA? no doy encontrado nada!! :-(
26  Programación / Scripting / [vbs] Compilar vbss.. a exe en: 27 Septiembre 2009, 14:01 pm
Bueno.. he leido que con el Visual Basic 6 puedo compilar el vbs a exe, pero lo intente y que paso? me quede con mi .vbs en blanco y tuve que volver a empezar a codear :rolleyes: :¬¬ :-( >:( :huh: :-X :( :-\ :-[


Alguien sabe como hacerlo? xD


Saludos ::)
27  Programación / Scripting / {Resuelto} [vbs] importante! ayuda with bucles! en: 26 Septiembre 2009, 15:39 pm
Quiero hacer un bucle infinito.. bien, do+loop.

Pero quiero un code con esta estructura por ejemplo:
Código:
do
[codigo]

if condicion = correcta
msgbox"correcta",99,"Prueba"
volver al inicio
end if

[codigo]
loop

Pero si donde puse "volver al inicio" pongo un loop, da error!


Saludos
28  Programación / Scripting / {Resuelto} [vbs] no se si existe.. en: 26 Septiembre 2009, 13:00 pm
Como se podría hacer en vbs algo como una extraccion de caracteres en batch?

Ej:

Código:
var = "holaxassiz"

Y que quede asi:
Código:
var2 = "xassiz"

%var:~4,6% en batch..
29  Programación / Scripting / {Resuelto} [vbs] Duda InputBox en: 24 Septiembre 2009, 21:22 pm
Como podría manejar errores con InputBox?

Por ejemplo, tengo un code que si le da al boton Cancelar salta un error, o si le da a la X de cerrar lo mismo :S


Como podría evitarlo?


PD: que alguien conteste esto también!! xD
30  Programación / Scripting / {Resuelto} [vbs] find? xD en: 21 Septiembre 2009, 22:41 pm
Hay en vbs algo como el find en batch? Para buscar strings en archivos ?

Pense en algo artesanal con readall pero como que no  ;D
Páginas: 1 2 [3] 4 5
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines