1.字符串的加密与解密（3DES、sha1、MD5） - swift3.1
2.VB 加密与解密的程序代码
3.如何用JAVA实现字符串简单加密解密？
4.用DOS算法设置加密解密程序设计？
5.一行js代码实现字符串加密解密
6.c# 加密 、解密

字符串的加密与解密（3DES、sha1、MD5） - swift3.1

        对于字符串的加密解密，可以给String类扩展方法，方便使用

        Swift中使用3DES/sha1/MD5加密解密算法 必须要引入这个库 - 在桥接文件中

        #import <CommonCrypto/CommonCrypto.h>

        3DES的加密是可逆的， sha1和MD5的是不可逆的

        使用方法：

        直接在xib界面拖一个textFiled的控件，然后放置3个按钮，分别是进行MD5、sha1、3DES加密点击方法，然后分别测试加密解密数据

        可以参考文章 blogs.com/jukaiit/p/.html

        使用这个第三方来实现 JKEncrypt

        ** /jukai/JKEncrypt 。

**

VB 加密与解密的程序代码

       åŠ å¯†ï¼š

       Private Function JiaMi(ByVal varPass As String) As String '参数varPass是需要加密的文本内容

       Dim varJiaMi As String *

       Dim varTmp As Double

       Dim strJiaMi As String

       Dim I

       For I = 1 To Len(varPass)

       varTmp = AscW(Mid$(varPass, I, 1))

       varJiaMi = Str$(((((varTmp * 1.5) / 5.6) * 2.7) * I))

       strJiaMi = strJiaMi & varJiaMi

       Next I

       JiaMi = strJiaMi

       End Function

       è§£å¯†å‡½æ•°ï¼š

       Private Function JieMi(ByVal varPass As String) As String '参数varPass是需要解密的密文内容

       Dim varReturn As String *

       Dim varConvert As Double

       Dim varFinalPass As String

       Dim varKey As Integer

       Dim varPasslenth As Long

       varPasslenth = Len(varPass)

       For I = 1 To varPasslenth /

       varReturn = Mid(varPass, (I - 1) * + 1, )

       varConvert = Val(Trim(varReturn))

       varConvert = ((((varConvert / 1.5) * 5.6) / 2.7) / I)

       varFinalPass = varFinalPass & ChrW(Val(varConvert))

       Next I

       JieMi = varFinalPass

       End Function

扩展资料：

       æ³¨æ„äº‹é¡¹

       ç¼–写加密程序，将用户输入的一个英文句子加密为加密字符串，然后输出加密字符串。假设句子长度不超过个字符。

       æ ¹æ®ç»™å®šçš„句子加密函数原型SentenceEncoding，编写函数SentenceEncoding调用给定的字符加密函数CharEncoding完成句子加密。

       ç„¶åŽï¼Œç¼–写主程序提示用户输入英文句子，然后调用函数SentenceEncoding对句子加密，最后输出加密后的句子。

       å­—符加密规则为大写字母和小写字母均加密为其补码, 我们定义ASCII码值相加为’A’+’Z’即的两个大写字母互为补码，ASCII码值相加为’a’+’z’即的两个小写字母互为补码。

       ç©ºæ ¼ç”¨@代替,句号以#代替,其它字符用句点代替。

       å‡½æ•°åŽŸåž‹ï¼š

       void SentenceEncoding(char *soure,char *code);

       åŠŸèƒ½ï¼šå¯¹å¾…加密字符串source加密后保存加密字符串到code.

       å‚数：char *soure，指向待加密句子的字符串指针；

       char *code 指向加密字符串的字符串指针；

       å­—符加密函数代码。

如何用JAVA实现字符串简单加密解密？

       java加密字符串可以使用des加密算法，实例如下：

       package test;

       import java.io.FileInputStream;

       import java.io.FileOutputStream;

       import java.io.IOException;

       import java.io.ObjectInputStream;

       import java.io.ObjectOutputStream;

       import java.security.*;

       import javax.crypto.Cipher;

       import javax.crypto.KeyGenerator;

       import javax.crypto.SecretKey;

       /

**

        * 加密解密

        *

        * @author shy.qiu

        * @since /qiushyfm

        */

       public class CryptTest {

        /

**

        * 进行MD5加密

        *

        * @param info

        * 要加密的信息

        * @return String 加密后的字符串

        */

        public String encryptToMD5(String info) {

        byte[] digesta = null;

        try {

        // 得到一个md5的消息摘要

        MessageDigest alga = MessageDigest.getInstance("MD5");

        // 添加要进行计算摘要的信息

        alga.update(info.getBytes());

        // 得到该摘要

        digesta = alga.digest();

        } catch (NoSuchAlgorithmException e) {

        e.printStackTrace();

        }

        // 将摘要转为字符串

        String rs = byte2hex(digesta);

        return rs;

        }

        /

**

        * 进行SHA加密

        *

        * @param info

        * 要加密的信息

        * @return String 加密后的字符串

        */

        public String encryptToSHA(String info) {

        byte[] digesta = null;

        try {

        // 得到一个SHA-1的消息摘要

        MessageDigest alga = MessageDigest.getInstance("SHA-1");

        // 添加要进行计算摘要的信息

        alga.update(info.getBytes());

        // 得到该摘要

        digesta = alga.digest();

        } catch (NoSuchAlgorithmException e) {

        e.printStackTrace();

        }

        // 将摘要转为字符串

        String rs = byte2hex(digesta);

        return rs;

        }

        // //////////////////////////////////////////////////////////////////////////

        /

**

        * 创建密匙

        *

        * @param algorithm

        * 加密算法,可用 DES,DESede,Blowfish

        * @return SecretKey 秘密（对称）密钥

        */

        public SecretKey createSecretKey(String algorithm) {

        // 声明KeyGenerator对象

        KeyGenerator keygen;

        // 声明 密钥对象

        SecretKey deskey = null;

        try {

        // 返回生成指定算法的秘密密钥的 KeyGenerator 对象

        keygen = KeyGenerator.getInstance(algorithm);

        // 生成一个密钥

        deskey = keygen.generateKey();

        } catch (NoSuchAlgorithmException e) {

        e.printStackTrace();

        }

        // 返回密匙

        return deskey;

        }

        /

**

        * 根据密匙进行DES加密

        *

        * @param key

        * 密匙

        * @param info

        * 要加密的信息

        * @return String 加密后的信息

        */

        public String encryptToDES(SecretKey key, String info) {

        // 定义 加密算法,可用 DES,DESede,Blowfish

        String Algorithm = "DES";

        // 加密随机数生成器 (RNG),(可以不写)

        SecureRandom sr = new SecureRandom();

        // 定义要生成的密文

        byte[] cipherByte = null;

        try {

        // 得到加密/解密器

        Cipher c1 = Cipher.getInstance(Algorithm);

        // 用指定的密钥和模式初始化Cipher对象

        // 参数:(ENCRYPT_MODE, DECRYPT_MODE, WRAP_MODE,UNWRAP_MODE)

        c1.init(Cipher.ENCRYPT_MODE, key, sr);

        // 对要加密的内容进行编码处理,

        cipherByte = c1.doFinal(info.getBytes());

        } catch (Exception e) {

        e.printStackTrace();

        }

        // 返回密文的十六进制形式

        return byte2hex(cipherByte);

        }

        /

**

        * 根据密匙进行DES解密

        *

        * @param key

        * 密匙

        * @param sInfo

        * 要解密的密文

        * @return String 返回解密后信息

        */

        public String decryptByDES(SecretKey key, String sInfo) {

        // 定义 加密算法,

        String Algorithm = "DES";

        // 加密随机数生成器 (RNG)

        SecureRandom sr = new SecureRandom();

        byte[] cipherByte = null;

        try {

        // 得到加密/解密器

        Cipher c1 = Cipher.getInstance(Algorithm);

        // 用指定的密钥和模式初始化Cipher对象

        c1.init(Cipher.DECRYPT_MODE, key, sr);

        // 对要解密的内容进行编码处理

        cipherByte = c1.doFinal(hex2byte(sInfo));

        } catch (Exception e) {

        e.printStackTrace();

        }

        // return byte2hex(cipherByte);

        return new String(cipherByte);

        }

        // /////////////////////////////////////////////////////////////////////////////

        /

**

        * 创建密匙组，并将公匙，私匙放入到指定文件中

        *

        * 默认放入mykeys.bat文件中

        */

        public void createPairKey() {

        try {

        // 根据特定的算法一个密钥对生成器

        KeyPairGenerator keygen = KeyPairGenerator.getInstance("DSA");

        // 加密随机数生成器 (RNG)

        SecureRandom random = new SecureRandom();

        // 重新设置此随机对象的种子

        random.setSeed();

        // 使用给定的随机源（和默认的参数集合）初始化确定密钥大小的密钥对生成器

        keygen.initialize(, random);// keygen.initialize();

        // 生成密钥组

        KeyPair keys = keygen.generateKeyPair();

        // 得到公匙

        PublicKey pubkey = keys.getPublic();

        // 得到私匙

        PrivateKey prikey = keys.getPrivate();

        // 将公匙私匙写入到文件当中

        doObjToFile("mykeys.bat", new Object[] { prikey, pubkey });

        } catch (NoSuchAlgorithmException e) {

        e.printStackTrace();

        }

        }

        /

**

        * 利用私匙对信息进行签名 把签名后的信息放入到指定的文件中

        *

        * @param info

        * 要签名的信息

        * @param signfile

        * 存入的文件

        */

        public void signToInfo(String info, String signfile) {

        // 从文件当中读取私匙

        PrivateKey myprikey = (PrivateKey) getObjFromFile("mykeys.bat", 1);

        // 从文件中读取公匙

        PublicKey mypubkey = (PublicKey) getObjFromFile("mykeys.bat", 2);

        try {

        // Signature 对象可用来生成和验证数字签名

        Signature signet = Signature.getInstance("DSA");

        // 初始化签署签名的私钥

        signet.initSign(myprikey);

        // 更新要由字节签名或验证的数据

        signet.update(info.getBytes());

        // 签署或验证所有更新字节的签名，返回签名

        byte[] signed = signet.sign();

        // 将数字签名,公匙,信息放入文件中

        doObjToFile(signfile, new Object[] { signed, mypubkey, info });

        } catch (Exception e) {

        e.printStackTrace();

        }

        }

        /

**

        * 读取数字签名文件 根据公匙，签名，信息验证信息的合法性

        *

        * @return true 验证成功 false 验证失败

        */

        public boolean validateSign(String signfile) {

        // 读取公匙

        PublicKey mypubkey = (PublicKey) getObjFromFile(signfile, 2);

        // 读取签名

        byte[] signed = (byte[]) getObjFromFile(signfile, 1);

        // 读取信息

        String info = (String) getObjFromFile(signfile, 3);

        try {

        // 初始一个Signature对象,并用公钥和签名进行验证

        Signature signetcheck = Signature.getInstance("DSA");

        // 初始化验证签名的公钥

        signetcheck.initVerify(mypubkey);

        // 使用指定的 byte 数组更新要签名或验证的数据

        signetcheck.update(info.getBytes());

        System.out.println(info);

        // 验证传入的签名

        return signetcheck.verify(signed);

        } catch (Exception e) {

        e.printStackTrace();

        return false;

        }

        }

        /

**

        * 将二进制转化为进制字符串

        *

        * @param b

        * 二进制字节数组

        * @return String

        */

        public String byte2hex(byte[] b) {

        String hs = "";

        String stmp = "";

        for (int n = 0; n < b.length; n++) {

        stmp = (java.lang.Integer.toHexString(b[n] & 0XFF));

        if (stmp.length() == 1) {

        hs = hs + "0" + stmp;

        } else {

        hs = hs + stmp;

        }

        }

        return hs.toUpperCase();

        }

        /

**

        * 十六进制字符串转化为2进制

        *

        * @param hex

        * @return

        */

        public byte[] hex2byte(String hex) {

        byte[] ret = new byte[8];

        byte[] tmp = hex.getBytes();

        for (int i = 0; i < 8; i++) {

        ret[i] = uniteBytes(tmp[i * 2], tmp[i * 2 + 1]);

        }

        return ret;

        }

        /

**

        * 将两个ASCII字符合成一个字节； 如："EF"--> 0xEF

        *

        * @param src0

        * byte

        * @param src1

        * byte

        * @return byte

        */

        public static byte uniteBytes(byte src0, byte src1) {

        byte _b0 = Byte.decode("0x" + new String(new byte[] { src0 }))

        .byteValue();

        _b0 = (byte) (_b0 << 4);

        byte _b1 = Byte.decode("0x" + new String(new byte[] { src1 }))

        .byteValue();

        byte ret = (byte) (_b0 ^ _b1);

        return ret;

        }

        /

**

        * 将指定的对象写入指定的文件

        *

        * @param file

        * 指定写入的文件

        * @param objs

        * 要写入的对象

        */

        public void doObjToFile(String file, Object[] objs) {

        ObjectOutputStream oos = null;

        try {

        FileOutputStream fos = new FileOutputStream(file);

        oos = new ObjectOutputStream(fos);

        for (int i = 0; i < objs.length; i++) {

        oos.writeObject(objs[i]);

        }

        } catch (Exception e) {

        e.printStackTrace();

        } finally {

        try {

        oos.close();

        } catch (IOException e) {

        e.printStackTrace();

        }

        }

        }

        /

**

        * 返回在文件中指定位置的对象

        *

        * @param file

        * 指定的文件

        * @param i

        * 从1开始

        * @return

        */

        public Object getObjFromFile(String file, int i) {

        ObjectInputStream ois = null;

        Object obj = null;

        try {

        FileInputStream fis = new FileInputStream(file);

        ois = new ObjectInputStream(fis);

        for (int j = 0; j < i; j++) {

        obj = ois.readObject();

        }

        } catch (Exception e) {

        e.printStackTrace();

        } finally {

        try {

        ois.close();

        } catch (IOException e) {

        e.printStackTrace();

        }

        }

        return obj;

        }

        /

**

        * 测试

        *

        * @param args

        */

        public static void main(String[] args) {

        CryptTest jiami = new CryptTest();

        // 执行MD5加密"Hello world!"

        System.out.println("Hello经过MD5:" + jiami.encryptToMD5("Hello"));

        // 生成一个DES算法的密匙

        SecretKey key = jiami.createSecretKey("DES");

        // 用密匙加密信息"Hello world!"

        String str1 = jiami.encryptToDES(key, "Hello");

        System.out.println("使用des加密信息Hello为:" + str1);

        // 使用这个密匙解密

        String str2 = jiami.decryptByDES(key, str1);

        System.out.println("解密后为：" + str2);

        // 创建公匙和私匙

        jiami.createPairKey();

        // 对Hello world!使用私匙进行签名

        jiami.signToInfo("Hello", "mysign.bat");

        // 利用公匙对签名进行验证。

        if (jiami.validateSign("mysign.bat")) {

        System.out.println("Success!");

        } else {

        System.out.println("Fail!");

        }

        }

       }

用DOS算法设置加密解密程序设计？

       以下是C 语言编写一个简单的加密解密程序。

       假设我们想将原始字符串中的串加每个字符按照 ASCII 码加上一个固定的偏移量，得到一个加密后的密解密源码字字符串。这个偏移量可以是符串用户指定的，也可以是加密解密程序自动生成的。下面是源码投筛子游戏源码加密程序的代码：

       ```c

       #include <stdio.h>

       #include <string.h>

       int main() {

       char input[];

       printf("Enter a string to encrypt: ");

       scanf("%s", input);

       int offset;

       printf("Enter an offset: ");

       scanf("%d", &offset);

       for (int i = 0; i < strlen(input); i++) {

       input[i] += offset;

       }

       printf("Encrypted string: %s\n", input);

       return 0;

       }

       ```

       这个程序首先提示用户输入要加密的字符串和偏移量，然后使用一个 for 循环将字符数组中的字符每个字符加上偏移量。注意，串加在 C 语言中，密解密源码字字符可以被当作整数来处理。符串最后，加密解密程序输出加密后的源码字符串。

       现在，字符我们来编写一个解密程序，串加将加密后的密解密源码字字符串解密回原始字符串。解密程序的代码如下：

       ```c

       #include <stdio.h>

       #include <string.h>

       int main() {

       char input[];

       printf("Enter a string to decrypt: ");

       scanf("%s", input);

       int offset;

       printf("Enter the offset: ");

       scanf("%d", &offset);

       for (int i = 0; i < strlen(input); i++) {

       input[i] -= offset;

       }

       printf("Decrypted string: %s\n", input);

       return 0;

       }

       ```

       这个程序与加密程序大致相同，唯一的php免费源码网站源码区别是在 for 循环中将字符数组中的每个字符减去偏移量。这样，解密程序就可以将加密后的字符串恢复成原始字符串了。

       需要注意的是，这种简单的加密解密方式并不是非常安全，因为它可以被轻易地破解。如果您需要一个更加安全的加密算法，请使用可靠的加密库和算法。

一行js代码实现字符串加密解密

       使用一行js代码实现字符串的android酒店预定源码源码加密与解密，能够有效提升代码的简洁性与执行效率。加密与解密通常依赖于对字符进行特定的转换操作。首先，了解ASCII码字符与Unicode字符在加密与解密过程中的应用。

       加密时，我们通常选择对ASCII码字符进行处理。使用`btoa`函数进行加密，它能够将字符串转换为Base编码的php源码与asp源码字节流。解密时，使用`atob`函数，它将Base编码的字节流还原为原始字符串。然而，值得注意的是，`btoa`和`atob`仅适用于ASCII码字符，对于Unicode字符可能产生不可预料的结果。

       下面是国外 游戏源码 网站源码一个使用这些函数进行加密与解密的完整示例代码：

       javascript

       let str = "Hello, World!";

       let encodedStr = btoa(str);

       let decodedStr = atob(encodedStr);

       console.log(encodedStr); // 输出 Base编码后的字符串

       console.log(decodedStr); // 输出解密后的原始字符串

       然而，对于Unicode字符的加密与解密，我们不能直接使用`btoa`和`atob`。这时，我们需使用其他方法。一种方法是通过JavaScript内置的`charCodeAt()`和`fromCharCode()`函数来实现。这些函数分别用于获取和设置字符的Unicode编码。加密时，我们对每个字符的Unicode编码增加3，解密时则减去3。最终，使用`join()`方法将处理后的字符合并成一个字符串。

       以下是使用上述方法的完整示例代码：

       javascript

       let str = "你好，世界！";

       let encodedStr = str.split('').map(char => String.fromCharCode(char.charCodeAt(0) + 3)).join('');

       let decodedStr = encodedStr.split('').map(char => String.fromCharCode(char.charCodeAt(0) - 3)).join('');

       console.log(encodedStr); // 输出经过处理的Unicode编码字符串

       console.log(decodedStr); // 输出解密后的原始字符串

       除了上述方法，还存在其他用于加密与解密的js库和框架。这些库通常提供了更复杂、更安全的加密算法，能够满足在实际开发中对加密与解密需求的多样化场景。

       因此，js字符串的加密与解密可以通过多种方式实现。在选择具体实现方法时，需根据项目需求、安全级别以及性能要求来综合考虑。对于处理ASCII码字符，`btoa`和`atob`提供了一个简单且直接的解决方案；而对于Unicode字符，则需要通过内置函数或第三方库来实现更复杂且安全的加密与解密操作。

c# 加密 、解密

       //默认密钥向量 private static byte[] Keys = { 0x, 0x, 0x, 0x, 0x, 0xAB, 0xCD, 0xEF }; /// <summary> /// DES加密字符串 /// </summary> /// <param name="encryptString">待加密的字符串</param> /// <param name="encryptKey">加密密钥,要求为8位</param> /// <returns>加密成功返回加密后的字符串，失败返回源串</returns> public static string EncryptDES(string encryptString, string encryptKey) { try { byte[] rgbKey = Encoding.UTF8.GetBytes(encryptKey.Substring(0, 8)); byte[] rgbIV = Keys; byte[] inputByteArray = Encoding.UTF8.GetBytes(encryptString); DESCryptoServiceProvider dCSP = new DESCryptoServiceProvider(); MemoryStream mStream = new MemoryStream(); CryptoStream cStream = new CryptoStream(mStream, dCSP.CreateEncryptor(rgbKey, rgbIV), CryptoStreamMode.Write); cStream.Write(inputByteArray, 0, inputByteArray.Length); cStream.FlushFinalBlock(); return Convert.ToBaseString(mStream.ToArray()); } catch { return encryptString; } } /// <summary> /// DES解密字符串 /// </summary> /// <param name="decryptString">待解密的字符串</param> /// <param name="decryptKey">解密密钥,要求为8位,和加密密钥相同</param> /// <returns>解密成功返回解密后的字符串，失败返源串</returns> public static string DecryptDES(string decryptString, string decryptKey) { try { byte[] rgbKey = Encoding.UTF8.GetBytes(decryptKey); byte[] rgbIV = Keys; byte[] inputByteArray = Convert.FromBaseString(decryptString); DESCryptoServiceProvider DCSP = new DESCryptoServiceProvider(); MemoryStream mStream = new MemoryStream(); CryptoStream cStream = new CryptoStream(mStream, DCSP.CreateDecryptor(rgbKey, rgbIV), CryptoStreamMode.Write); cStream.Write(inputByteArray, 0, inputByteArray.Length); cStream.FlushFinalBlock(); return Encoding.UTF8.GetString(mStream.ToArray()); } catch { return decryptString; } } 自定义一个8位的密钥，加密解密的时候一样就可以了 例如：加密：EncryptDES("要加密的字符串", "azjmerbv"); 解密：DecryptDES("要解密的字符串", "azjmerbv");

VB 实现字符串加密 解密

       '如果是将text1中每个字符的asc码值转化为进制实现加密解密可以这样：复制粘贴下段代码

       '加密数据

       Private Sub Command1_Click()

       Text2.Tag = "" '清空text2.tag用来存储加密后数据

       Text2.Text = "" '清空text2用来显示加密后数据

       For i = 1 To Len(Text1.Text) '将text1中每个字符的asc码值转化为十六进制以软回车chr()分隔并存储在text2.tag中

        Text2.Tag = Text2.Tag & Hex(Asc(Mid(Text1.Text, i, 1))) & Chr() '

       Next

       Text2.Text = Text2.Tag '显示加密后数据

       End Sub

       '解密数据

       Private Sub Command2_Click()

       Text1.Tag = ""

       Text1.Text = ""

       Dim b() As String '定义数组用来存储由text1中每个字符转化来的十六进制数

       b = Split(Text2.Text, Chr()) '以软回车符chr()分隔text2中文本并存储在数组b中

       For i = 0 To UBound(b) '将text2中每个十六进制数转化为十进制的asc码值后转化为字符

        Text1.Tag = Text1.Tag & Chr(Val("&h" & b(i)))

       Next

       Text1.Text = Text1.Tag '显示原始数据

       End Sub

如何使用JAVA实现对字符串的DES加密和解密

       /

**

        * ECB模式的des加密，以base的编码输出

        * @param message

        * @param key

        * @return

        * @throws Exception

        */

         public static String desEncrypt(String message, String key)throws Exception{

           // DES/ECB CBC CFB OFB /PKCS5Padding  NoPadding  åŠ å¯†/模式/填充

           Cipher cipher = Cipher.getInstance("DES");//默认就是 DES/ECB/PKCS5Padding

           DESKeySpec desKeySpec = new DESKeySpec(key.getBytes());

           SecretKeyFactory keyFactory = SecretKeyFactory.getInstance("DES");

           SecretKey secretKey = keyFactory.generateSecret(desKeySpec);

           cipher.init(1, secretKey);

          return new BASEEncoder().encode(cipher.doFinal(message.getBytes("UTF-8")));

         }

         /

**

          * ECB模式的des解密

          * @param message

          * @param key

          * @return

          * @throws Exception

          */

         public static String desDecrypt(String message, String key)throws Exception{

           Cipher cipher = Cipher.getInstance("DES");

           DESKeySpec desKeySpec = new DESKeySpec(key.getBytes());

           SecretKeyFactory keyFactory = SecretKeyFactory.getInstance("DES");

           SecretKey secretKey = keyFactory.generateSecret(desKeySpec);

           cipher.init(2, secretKey);

           return new String(cipher.doFinal(Base.decode(message)), "UTF-8");

         }

       ä½ è‡ªå·±å†™main方法测试一下，应该是没问题的

Vb编程编写一个小程序，可以对输入的一段英文字符串进行加密和解密，加密算法中需要使用到学号后两位

       以下是根据学号末2位加密、解密的VB程序：

       Private Sub Form_Click()

         x = Val(Right(Text1.Text, 2))     '取学号末2位

         '以下是加密

         s = Text2.Text

         s1 = s

         For i = 1 To Len(s)

           c = Mid(s1, i, 1)

           Mid(s1, i, 1) = Chr(Asc(c) Xor x)

         Next i

         Text3.Text = s1

         

         '以下是解密

         s = s1

         For i = 1 To Len(s)

           c = Mid(s, i, 1)

           Mid(s, i, 1) = Chr(Asc(c) Xor x)

         Next i

         Text4.Text = s

       End Sub