Red de conocimiento informático - Conocimiento del nombre de dominio - ¿Cómo cifrar un archivo VBS para que requiera una contraseña para ejecutarse?

¿Cómo cifrar un archivo VBS para que requiera una contraseña para ejecutarse?

mima?=?"123"

i?=?0

hacer

if?i?gt;=?3?then?wscript.quit

a?=?inputbox("Ingrese una contraseña"?&?vbcrlf?amp;?"También tiene"?amp;?3?-?i?amp;? "por segunda vez oportunidad ")

if?a?=?false?then?wscript.quit

i?=?i? ?1

bucle?hasta?a ? =?mima

msgbox?"La contraseña es correcta"

El código anterior hace lo que desea, pero la contraseña es visible inmediatamente. Se puede ver de un vistazo que se puede cifrar utilizando el siguiente código de secuencia de comandos. Opción?Explícito

Dim?se,?fso

Dim?argv,?file,?str

Set?se?=?CreateObject("Scripting. Encoder")

Set?fso?=?CreateObject("Scripting.FilesystemObject")

For?Each?argv?In?WScript.Arguments

Set ?file?=?fso.OpenTextFile(argv)

str?=?file.ReadAll

file.Close

str?=?se.EncodeScriptFile( ".vbs", str, 0, "")

argv?=?Left(argv, Len(argv)-3)?&?" .vbe"

Establecer ? file?=?fso.OpenTextFile(argv, 2, True)

file.Write?str

file.Close

Siguiente

MsgBox?"vbInformation

El archivo final generado se puede descargar como archivo adjunto. Es difícil de descifrar

上篇: Se necesita urgentemente un plan de diseño general 下篇: Sala de parejas del cine Xuzhou Ginza

Artículos populares