【现代密码学】用MATLAB实现RC4算法

【现代密码学】用MATLAB实现RC4算法

这篇博客是我的第一篇博客，写得不太好，请多多原谅。

我写这篇博客的目的主要是因为在网上很少有关于RC4算法的MATLAB实现，用java、c语言等实现的很多。因此我就想用MATLAB来实现一下，以弥补这空白。

RC4算法我在这里就不介绍，有兴趣的点RC4算法，这个链接去了解它的原理吧，链接的那篇博客说的挺好的。

这里RC4算法，我写了5个m文件函数，分别如下：

• rc4.m
  —这个文件是主函数文件，通过调用一下四个函数m文件来实验RC4算法
• rc4_decode.m
  —这个文件是解密函数
• rc4_encode.m
  —这个文件是加密函数
• ksa.m
  —这个文件是密钥调度算法（KSA,Key-Scheduling Algorithm）函数，用来置乱S盒的初始排列
• prga.m
  —这个文件是伪随机生成算法（PRGA,Pseudo Random-Generation Algorithm）函数，用来输出随机序列并修改S的当前排列顺序。

---

MATLAB代码实现

rc4.m函数文件

function ciphertext=RC4Code(plaintext,key,flag)
%RC4加密解密算法，输出密文
%plaintext 明文字符串
%key 密钥字符串
%flag 决定加密还是解密，0为解密，其他为加密
%made by Canlong Zhang
%初始化密文
ciphertext=[];
%s盒
s=[];
%获取明文长度
plaintextLength=length(plaintext);
%生成的密钥流
keySchedual=[];
%密钥调度算法
s=ksa(s,key);
%RPGA-伪随机生成算法
keySchedual=prga(s,keySchedual,plaintextLength);
%将密钥流每个字节转化为ASCII数值
keySchedualtASCII=double(keySchedual);
%如果flag不等于0，则加密，等于0，则解密
if flag~=0
    %加密
    ciphertext=rc4_encode(plaintext,keySchedualtASCII);
else if flag==0
        ciphertext=plaintext;
        %解密
        rc4_decode(ciphertext,keySchedualtASCII);
    end
end

rc4_decode.m函数文件

function plaintext2=rc4_decode(ciphertext,keySchedualtASCII)
%解密
%ciphertext 密文
%keySchedualtASCII 密钥流的ASCII码
%made by Canlong Zhang
%获取密文长度
ciphertextLength=length(ciphertext);
%将明文每个字节转化为ASCII数值
ciphertextASCII=double(ciphertext);
plaintext2=[];
%为密文的每个字节用密钥流加密
for i=1:ciphertextLength
    %将密钥流与明文字节进行异或处理，因为matlab无法直接对字节进行异或，因此在这里对数值进行异或处理
    %bitxor只能对十进制数字进行异或处理
    plaintextXORASCII=bitxor(ciphertextASCII(i),keySchedualtASCII(i));
    plaintext2=[plaintext2 char(plaintextXORASCII)];
end
%输出明文
disp(['The ciphertext is:',ciphertext])
disp(['The decode plaintext is:',plaintext2])

rc4_encode.m函数文件

function ciphertext=rc4_encode(plaintext,keySchedualtASCII)
%加密
%plaintext 明文
%keySchedualASCII 密钥流的ASCII码
%made by Canlong Zhang 
%初始获密文
ciphertext=[];
%获取明文长度
plaintextLength=length(plaintext);
%将明文每个字节转化为ASCII数值
plaintextASCII=double(plaintext);
ciphertextASCII=1;
%为明文的每个字节用密钥流加密
for i=1:plaintextLength
    %将密钥流与明文字节进行异或处理，因为matlab无法直接对字节进行异或，因此在这里对数值进行异或处理
    %bitxor只能对十进制数字进行异或处理
    ciphertextXORASCII=bitxor(plaintextASCII(i),keySchedualtASCII(i));
    ciphertext=[ciphertext char(ciphertextXORASCII)];
end
%输出密文
disp(['The plaintext is:',plaintext])
disp(['The encode ciphertext is:',ciphertext])

ksa.m函数文件

function s=ksa(s,key)
%ksa-密钥调度算法-利用key来对s盒做一下置换，也就是对s和重新排序
%s 输入的s盒
%key 密钥字符串
%made by Canlong Zhang
%初始化s盒
for i=1:256
    s(i)=i-1;
end
j=1;
%将密钥字符串转化为ascii码数组
keyASCII=double(key);
%获取密钥的长度+1
keyLength=length(key)+1;
for i=1:256
    %i对密钥长度+1取余数
    modIToKeyLength=mod(i,keyLength);
    if modIToKeyLength==0
        modIToKeyLength=length(key);
    end
    j=(j+s(i)+key(modIToKeyLength));
    j=mod(j,256);
    if j==0
        j=256;
    end
    %将s盒中的角标为i和j交换
    temp=s(j);
    s(j)=s(i);
    s(i)=temp;
end
s;

prga.m函数文件

function keySchedual=prga(s,keySchedual,plaintextLength)
%PRGA(Pseudo Random-Generation Algorithm)伪随机生成算法，用来输入随机序列并修改s的党旗排列顺序
%s s盒
%keySchedual 密钥流
%plaintextLength 明文长度
%made by Canlong Zhang
i=1;
j=1;
for k=1:plaintextLength
    i=mod(i+1,256);
    j=mod(j+s(i),256);
    %置换s（i）和s（j）
    temp=s(j);
    s(j)=s(i);
    s(i)=temp;
    %生成密钥流数组
    keySchedualIndex=mod(s(i)+s(j),256);
    %因为matlab的数组的索引是从1开始，因此，在index=0时，把它赋值为256
    if keySchedualIndex==0
        keySchedualIndex=256;
    end
    keySchedual=[keySchedual char(s(keySchedualIndex))];
end
keySchedual;

加密解密结果

rc4第三个参数为决定是加密还是解密，如果为0，则是解密，否则是加密。

加密

解密

一些问题

编码问题

• 在运行程序之前要在MATLAB软件中输入：

  slCharacterEncoding('UTF-8');
  

来设置编码为UTF-8，因为MATLAB默认的编码为ANSI，不然会出现加密或解密乱码，从而得不到正确的明文或密文，也不能用来加密或解密中文字符了。

注意： 设定编码为UTF-8，这个很重要我曾经由于没有写设置这个编码格式，所以总是加密出来的密文显示问号，而且加密不了中文，这个问题困惑了几乎一个学期，后来偶然看到有些人的程序是有这个设置，因此我也设置了这个，最终我的程序才能运行，而且才能加密中文。

• 运行程序的时候要放在英文目录下运行。

• 不知道为什么什么在程序运行加密解密后，再设置编码输出的中文才不会乱。但是如果在运行加密解密之前设置了编码再运行程序，这是后输出中文就会乱，因此为了不乱码，我把输出的全部换成英文。

原来输出的代码

没有解决的问题

不知道为什么在输出有中文的时候，第一次运行matlab，先运行后，编码，输出中文就没有问题：

但是，先关闭MATLAB后，第二次运行MATLAB，先编码后运行，输出中文就有问题：

---