Скачать или смотреть How to Make Your Own Encryption Program

The purpose of this video is to show you how to know the codes under the words which helps you in writing secret messages.
--------------------------------------------------------------------
The codes for the encryption program are:
'SIMPLE VB ENCRYPTION PROGRAM'
'Create a dialogue box that asks for the text to encode'
set x = WScript.CreateObject("WScript.Shell")
mySecret = inputbox("enter text to be encoded")
'Reverse the submitted text'
mySecret = StrReverse(mySecret)
'Open up an instance of Notepad to print the results after waiting for 1 second'
x.Run "%windir%\notepad"
wscript.sleep 1000
x.sendkeys encode(mySecret)'this function encodes the text by advancing each character 3 letters'
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
-----------------------------------------------
The codes for the decryption program are:
'sIMPLE VB DECRYPTION PROGRAM'
'create a dialogue box that asks for the text to encode
set x = WScript.CreateObject("WScript.Shell")
mySecret = inputbox("Enter text to be decoded")
'Reverse the submitted text'
mySecret = StrReverse(mySecret)
'Open up an instance of Notepad to print the results after waiting for 1 second
x.Run "%windir%\notepad"
wscript.sleep 1000
x.sendkeys encode(mySecret)
'this function encodes the text by advancing each character 3 letters
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
-----------------------------------------
Thanks you for watching, I hope you enjoyed, and please subscribe, comment, and rate!!!!
-----------------------------------------
Don't forget the like on Facebook:
  / hmpall  
Don't forget the follow on Twitter:
  / hmpall  
Don't forget to visit:
http://www.hmpall.com