Olá, hoje vou contar como você pode criptografar um documento de texto.
Por que precisamos de criptografia e por que a usamos? : Geralmente usamos criptografia para nossas informações privadas, documentos, etc. nós o usamos para enviar alterando números ou letras, não mostrando-os diretamente.
Agora vamos ver como você pode criptografar de maneira simples.
Para criptografia, primeiro precisamos criar uma ferramenta de criptografia e, em seguida, precisamos criar outra ferramenta que a descriptografe. Escreva o texto a ser criptografado na ferramenta de criptografia lógica aqui e descriptografe
o texto criptografado da ferramenta de descriptografia. Quando digitamos o senha na ferramenta de criptografia, ela nos dará a versão criptografada dessa palavra no documento de texto e, em seguida, Descriptografar Quando escrevermos a versão criptografada da palavra na ferramenta, ela nos dará a palavra.(Certifique-se de que os caracteres não estão em turco)
Agora vamos ver como fazer a ferramenta de criptografia:
--------------------------- ---------- ----------------------------------------
definir x = WScript.CreateObject("WScript.Shell ")
mySecret = inputbox("Digite o texto para decodificar")
mySecret = StrReverse(mySecret)

x.Run "%windir%\notepad"
wscript.sleep 1000
x.sendkeys encode(mySecret)
function encode(s)
For i = 1 To Len (s)
newtxt = Mid(s,i,1)
newtxt = Chr(Asc(newtxt)-3)
coded = coded & newtxt
Next
encode = coded
End Function
---- ----------- --------------------------------------------- ------------------------- ----------
Aqui, podemos fazer o -3 em (newtxt)-3) números diferentes, como -8,-9,-4, mas o que quer que façamos aqui, faremos o oposto desse valor na parte de resolução.
O número em si continuará o mesmo, usaremos apenas o +3, que é o valor absoluto de -3, pois isso é para inverter a senha, ou seja, para resolvê-la.
Depois de escrever os códigos, você pode salvá-los como "Encryption.vbs".
(Não se esqueça de salvá-lo como .vbs quando terminar.)

Agora vamos para a construção de nossa ferramenta de descriptografia:
------------------------ --------- ----------------------------------------- -
set x = WScript.CreateObject(" WScript.Shell")
mySecret = inputbox("Digite o texto a ser criptografado")
mySecret = StrReverse(mySecret)

x.Run "%windir%\notepad"
wscript.sleep 1000
x.sendkeys encode(mySecret)
function encode(s)
For i = 1 To Len(s)
newtxt = Mid(s,i,1)
newtxt = Chr(Asc(newtxt)+3)
coded = coded & newtxt
Next
encode =
Função final codificada
----------------------------------------------------------- - ------------------
Depois de digitar os códigos, você pode salvá-los como "Decryption.vbs".
Nesta parte, escreveremos a palavra criptografada e obteremos a palavra normal. Isso é tudo para a criptografia. Espero que tenha funcionado para você.