encryptador de textos|

Tenemos un mensaje, y una clave (que elige cada uno)
 
Pongamos por caso:
 + Mensaje: HolaIdenti!
 + Clave: @bloggerbuzz

Aclaracion: se pueden usar espacios y cualquier otro carácter. No puse porque no se ve bien con las imágenes que van ahora.

Aclaracion: Por un detalle que se me paso de largo, el texto es procesado al revés y cuando se copia del clippboard al script hay un salto de línea o algo así de mas. No afecta al resultado, se puede codificar y decodificar el mismo texto.
 
Para probar y que dé los números con los que expliqué, tienen que cambiar ésta línea
 
 + mensaje = Encrypt(clip2str,key)
 
por ésta otra
 
 + mensaje = Encrypt("!odnuMaloH",key)
 
en el archivo ?encriptar.vbs?
 
Despues de verificar (si es que querias) que los cálculos que hicimos hasta ahora son correctos, dejá la línea como estaba.  
Bien. Primero, lo que vamos a hacer es escribir la clave abajo del mensaje, y repetirlo en caso de que sea necesario.
=================================================
El codigo

Copiar todo esto, pegar en un txt, y cambiarle la extensión a ?.vbs?
En el archivo para encriptar, cambiar donde dice Key=?@USUARIO? por el de ustedes (tambien puede ser cualquier cadena de texto)
Ahora, como algunos sabrán y otros no, todos los caracteres se pueden representar mediante códigos ASCII, que en definitiva son números que se le asignan a cada símbolo (y un par de cosas mas)

para Encryptar

Option Explicit

Dim key, mensaje



key = "@USUARIO"



mensaje = Encrypt(clip2str,key)

str2clip(mensaje)

MsgBox mensaje





' Funcion que encripta el mensaje

Function encrypt(Str, key)

  Dim lenKey, KeyPos, LenStr, x, Newstr

  Dim EncCharNum, EncCharNum1, EncCharNum2



  Newstr = ""

  lenKey = Len(key)

  KeyPos = 1

  LenStr = Len(Str)

  str = StrReverse(str)

  For x = 1 To LenStr

    EncCharNum = Asc (Mid (str, x, 1)) + Asc (Mid (key, KeyPos, 1))

    EncCharNum1 = EncCharNum And 240

    EncCharNum1 = (EncCharNum1  16) Or 48

    EncCharNum2 = (EncCharNum And 15) Or 48

    Newstr = Newstr & chr(EncCharNum1)

    Newstr = Newstr & chr(EncCharNum2)

    KeyPos = keypos+1

    If KeyPos > lenKey Then KeyPos = 1

  Next

  encrypt = Newstr

End Function

 
Para Desencryptar

Option Explicit



Dim key, mensaje



key = InputBox("Clave: ")



mensaje = Decrypt(clip2str,key)

str2clip(mensaje)

MsgBox mensaje





' Funcion que desencripta el mensaje

Function Decrypt(str,key)

  Dim lenKey, KeyPos, LenStr, x, Newstr

  Dim DecCharNum, DecCharNum1, DecCharNum2



  Newstr = ""

  lenKey = Len(key)

  KeyPos = 1

  LenStr = Len(Str)



  str=StrReverse(str)

  For x = LenStr To 2 Step -2

    DecCharNum1 = Asc (Mid (str, x, 1)) And 15

    DecCharNum2 = Asc (Mid (str, x-1, 1)) And 15

    DecCharNum = (DecCharNum1*16 Or DecCharNum2) - Asc (Mid (key,KeyPos, 1))

    Newstr = Newstr & chr(DecCharNum)

    KeyPos = KeyPos+1

    If KeyPos > lenKey Then KeyPos = 1

  Next

  Newstr=StrReverse(Newstr)

  Decrypt = Newstr

End Function

Y esto lo colocan en la parte final o al ultimo de lo que ya pegaron en ambas partes



' Copia del clipboard a variable

Function clip2str()

  Dim objWord, str_x



  Set objWord = CreateObject("Word.Application")

  With objWord

    .Visible = False

    .Documents.Add

    .Selection.Paste

    .Selection.WholeStory

    str_x = .Selection.Text

    .Quit False

  End With

  clip2str = str_x

End Function





' De variable a clipboard

Function str2clip(str_x)

  Dim objWord



  Set objWord = CreateObject("Word.Application")

  With objWord

    .Visible = False

    .Documents.Add

    .Selection.TypeText str_x

    .Selection.WholeStory

    .Selection.Copy

    .Quit False

  End With

End Function



 
Instrucciones:
 
Una vez que tenés los archivos en tu PC, con la extension cambiada a .vbs al encriptador le cambiaste la Key, y demas...
 
Copiar el texto que se quiere encriptar (ctrl+C) y correr el script (doble click o enter, la clasica).
El resultado te va a aparecer en una ventana, le dan aceptar y chau. Queda copiado en el clippboard!! - Con ctrl+V lo pegan donde sea.
 
Para desencriptar, lo mismo. Copias el código encriptado, le dan al script, y pones la clave del que generó el código. Aparece la ventana con el texto, dan aceptar y pueden pegarlo donde sea. Queda copiado en el clippboard!!
 
 
Importante!: El código generado nunca tiene otro carácter que no sea 0 1 2 3 4 5 6 7 8 9 : ; < = > ?
No espacios, ?enter?, NADA mas.

=================================================


Importante!: Si prueban encriptar algo y desencriptarlo en el mismo momento, puede que no les ande. Se debe a que al final del texto encriptado hay un fin de línea o algo de eso dando vueltas.
 
Para que funcione siempre:
 
 
1 - Copian el texto original
 
2 - Encriptan
 
3 - PEGAN el texto encriptado, y lo copian otra vez. Ahí se elimina cualquier fin de línea / retorno de carro que pueda haber quedado.
 
4 - Desencriptan normalmente

Y eso es todo si alguien tiene algun otro  programa o codigo de encryptacion puedo añadirlo.

 
No tengo mucha práctica con esto de los vbs, la verdad  lo encontré por ahí. Cuando pueda agrego mas scripts.
 Ha sido probado y funsiona encryptando textos y hasta links.
si el antivirus se lo detecta como virus le dan a agregar excepcion
"No es Virus" asi que favor de no comentar con "es un Virus"


encryptador de textos|
20 Puntos Score: 5/10
Visitas: 1337 Favoritos: 6
Ver los usuarios que votaron...
4 Comentarios encryptador de textos|
+ Mensaje: HolaIdenti!
+ Clave: @bloggerbuzz

OJDPGwXKRJI5sh3AOdsihQ== Con MD5
Para dejar un comentario Registrate! o.. eres ya usuario? Accede!