How to make a text encryption program - Part 1 ------------------------------ ------------------------------ --------- Here is how to convert a piece of text string into a secret code using a given a password! All you need is notepad. 1. Open notepad and paste the code given below: code = text = Inputbox(Enter the text to encrypt:, Expert Hackers) pswd = Inputbox(Enter the password:, Expert Hackers) Validate() Function Validate() If Not (IsNumeric(pswd)) Then X = Msgbox(Not a numeric password!, 48, Expert Hackers) Else If Not (text = ) Then Encrypt() Else End If End If End Function Function Encrypt() pswd = pswd Mod 255 Do Until text = num = Asc(Left(text, 1)) num = num+pswd Mod 255 lttr = Chr(num) code = code & lttr text = Replace(text, Left(text, 1), , 1, 1) Loop junk = Inputbox(Encrypted text:, Expert Hackers, code) End Function 2. Save the code as a .vbs file. You can name it anything but remeber to put .vbs at the end while saving. md.sabir alam donot try in ur phone or system...
Posted on: Mon, 11 Nov 2013 16:04:01 +0000
Trending Topics
Recently Viewed Topics
© 2015