69,371
社区成员
发帖
与我相关
我的任务
分享C语言实现DES加密与解密算法
在网上找到一段用C语言实现的DES加密与解密的源代码，经过改造之后可以加密，也可以解密。但它加密后的密文好象不标准，放到网上（http://des.online-domain-tools.com/）进行验证时不一至。
我的这段C代码是放在一个小型终端上运行的，通过TCP网络与另一端的服务器进行通信，服务器运行JAVA。所以C这边运行的结果不能只是自己加密解密成功就万事大吉了，它必须要由JAVA解开。
另外，DES加密和解密有多种模式，这段代码不知道是哪种模式。
我的这段C代码是放在一个小型终端上运行的，通过TCP网络与另一端的服务器进行通信，服务器运行JAVA。所以C这边运行的结果不能只是自己加密解密成功就万事大吉了，它必须要由JAVA解开。
另外，DES加密和解密有多种模式，这段代码不知道是哪种模式。
...全文
请发表友善的回复…
发表回复
KevinHarld 2018-09-18
- 打赏
- 举报
不明白为啥会有 ByteToBit 这样的函数，默认内存中不就是存放的bit
超自然祈祷 2017-05-05
- 打赏
- 举报
楼主，你的置换码表是不是不对，网上找了好多，都是和你不一样的一个样子
你的
int IP_Table[64] = { 57,49,41,33,25,17,9,1,
59,51,43,35,27,19,11,3,
61,53,45,37,29,21,13,5,
63,55,47,39,31,23,15,7,
56,48,40,32,24,16,8,0,
58,50,42,34,26,18,10,2,
60,52,44,36,28,20,12,4,
62,54,46,38,30,22,14,6};
人家的
int IP_Table[64] = { 58, 50, 42, 34, 26, 18, 10, 2, 60, 52, 44, 36, 28, 20, 12, 4,
62, 54, 46, 38, 30, 22, 14, 6, 64, 56, 48, 40, 32, 24, 16, 8,
57, 49, 41, 33, 25, 17, 9, 1, 59, 51, 43, 35, 27, 19, 11, 3,
61, 53, 45, 37, 29, 21, 13, 5, 63, 55, 47, 39, 31, 23, 15, 7 };
每位都差1[/quote]
可能因为他们的算法里都有-1操作，所以你们的置换码表不一样
超自然祈祷 2017-05-05
- 打赏
- 举报
楼主，你的置换码表是不是不对，网上找了好多，都是和你不一样的一个样子
你的
int IP_Table[64] = { 57,49,41,33,25,17,9,1,
59,51,43,35,27,19,11,3,
61,53,45,37,29,21,13,5,
63,55,47,39,31,23,15,7,
56,48,40,32,24,16,8,0,
58,50,42,34,26,18,10,2,
60,52,44,36,28,20,12,4,
62,54,46,38,30,22,14,6};
人家的
int IP_Table[64] = { 58, 50, 42, 34, 26, 18, 10, 2, 60, 52, 44, 36, 28, 20, 12, 4,
62, 54, 46, 38, 30, 22, 14, 6, 64, 56, 48, 40, 32, 24, 16, 8,
57, 49, 41, 33, 25, 17, 9, 1, 59, 51, 43, 35, 27, 19, 11, 3,
61, 53, 45, 37, 29, 21, 13, 5, 63, 55, 47, 39, 31, 23, 15, 7 };
每位都差1
baidu_37215038 2016-12-30
- 打赏
- 举报
#include <stdio.h>
#include <windows.h>
#define bool BOOL
#define true TRUE
#define false FALSE
//#include "bool.h" // 位处理
//#include "tables.h" // 执行DES解密
//初始置换表IP
char IP_Table[64]={57,49,41,33,25,17,9,1,59,51,43,35,27,19,11,3,61,53,45,37,29,21,13,5,63,55,47,39,31,23,15,7,56,48,40,32,24,16,8,0,58,50,42,34,26,18,10,2,60,52,44,36,28,20,12,4,62,54,46,38,30,22,14,6};
//逆初始置换表IP^-1
char IPR_Table[64]={39,7,47,15,55,23,63,31,38,6,46,14,54,22,62,30,37,5,45,13,53,21,61,29,36,4,44,12,52,20,60,28,35,3,43,11,51,19,59,27,34,2,42,10,50,18,58,26,33,1,41,9,49,17,57,25,32,0,40,8,48,16,56,24};
//扩充置换表E
char E_Table[48]={31,0,1,2,3,4,3,4,5,6,7,8,7,8,9,10,11,12,11,12,13,14,15,16,15,16,17,18,19,20,19,20,21,22,23,24,23,24,25,26,27,28,27,28,29,30,31,0};
//置换函数P??
char P_Table[32]={15,6,19,20,28,11,27,16,0,14,22,25,4,17,30,9,1,7,23,13,31,26,2,8,18,12,29,5,21,10,3,24};
//S盒
char S_Box[8][4][16]=
{{{14,4,13,1,2,15,11,8,3,10,6,12,5,9,0,7},
{0,15,7,4,14,2,13,1,10,6,12,11,9,5,3,8},
{4,1,14,8,13,6,2,11,15,12,9,7,3,10,5,0},
{15,12,8,2,4,9,1,7,5,11,3,14,10,0,6,13}},
//S2
{{15,1,8,14,6,11,3,4,9,7,2,13,12,0,5,10},
{3,13,4,7,15,2,8,14,12,0,1,10,6,9,11,5},
{0,14,7,11,10,4,13,1,5,8,12,6,9,3,2,15},
{13,8,10,1,3,15,4,2,11,6,7,12,0,5,14,9}},
//S3
{{10,0,9,14,6,3,15,5,1,13,12,7,11,4,2,8},
{13,7,0,9,3,4,6,10,2,8,5,14,12,11,15,1},
{13,6,4,9,8,15,3,0,11,1,2,12,5,10,14,7},
{1,10,13,0,6,9,8,7,4,15,14,3,11,5,2,12}},
//S4
{{7,13,14,3,0,6,9,10,1,2,8,5,11,12,4,15},
{13,8,11,5,6,15,0,3,4,7,2,12,1,10,14,9},
{10,6,9,0,12,11,7,13,15,1,3,14,5,2,8,4},
{3,15,0,6,10,1,13,8,9,4,5,11,12,7,2,14}},
//S5
{{2,12,4,1,7,10,11,6,8,5,3,15,13,0,14,9},
{14,11,2,12,4,7,13,1,5,0,15,10,3,9,8,6},
{4,2,1,11,10,13,7,8,15,9,12,5,6,3,0,14},
{11,8,12,7,1,14,2,13,6,15,0,9,10,4,5,3}},
//S6
{{12,1,10,15,9,2,6,8,0,13,3,4,14,7,5,11},
{10,15,4,2,7,12,9,5,6,1,13,14,0,11,3,8},
{9,14,15,5,2,8,12,3,7,0,4,10,1,13,11,6},
{4,3,2,12,9,5,15,10,11,14,1,7,6,0,8,13}},
//S7
{{4,11,2,14,15,0,8,13,3,12,9,7,5,10,6,1},
{13,0,11,7,4,9,1,10,14,3,5,12,2,15,8,6},
{1,4,11,13,12,3,7,14,10,15,6,8,0,5,9,2},
{6,11,13,8,1,4,10,7,9,5,0,15,14,2,3,12}},
//S8
{{13,2,8,4,6,15,11,1,10,9,3,14,5,0,12,7},
{1,15,13,8,10,3,7,4,12,5,6,11,0,14,9,2},
{7,11,4,1,9,12,14,2,0,6,10,13,15,3,5,8},
{2,1,14,7,4,10,8,13,15,12,9,0,3,5,6,11}}};
//置换选择1
char PC1_Table[56]={56,48,40,32,24,16,8,0,57,49,41,33,25,17,9,1,58,50,42,34,26,18,10,2,59,51,43,35,62,54,46,38,30,22,14,6,61,53,45,37,29,21,13,5,60,52,44,36,28,20,12,4,27,19,11,3};
//置换选择2
char PC2_Table[48]={13,16,10,23,0,4,2,27,14,5,20,9,22,18,11,3,25,7,15,6,26,19,12,1,40,51,30,36,46,54,29,39,50,44,32,46,43,48,38,55,33,52,45,41,49,35,28,31};
//对左移次数的规定??
char Move_Table[16]={1,1,2,2,2,2,2,2,1,2,2,2,2,2,2,1};
int main()
{
int flag=1;
printf("************Welcome!************\n");
while(flag==1)
{
void BitsCopy(bool *DatOut,bool *DatIn,int Len); // 数组复制
void ByteToBit(bool *DatOut,char *DatIn,int Num); // 字节到位
void BitToByte(char *DatOut,bool *DatIn,int Num); // 位到字节
void BitToHex(char *DatOut,bool *DatIn,int Num); // 二进制到十六进制 64位 to 4*16字符
void HexToBit(bool *DatOut,char *DatIn,int Num); // 十六进制到二进制
void LoopMove(bool *DatIn,int Len,int Num); // 循环左移 Len长度 Num移动位数
void Xor(bool *DatA,bool *DatB,int Num); // 异或函数
void S_Change(bool DatOut[32],bool DatIn[48]); // S盒变换
void F_Change(bool DatIn[32],bool DatKi[48]); // F函数
void SetKey(char KeyIn[8]); // 设置密钥
void PlayDes(char MesOut[8],char MesIn[64]); // 执行DES加密
void KickDes(char MesOut[64],char MesIn[8]);
int i=0,t=0;
char MesHex[64]={0}; // 16个字符数组用于存放 64位16进制的密文
char MyKey[8]={0}; // 初始密钥 8字节*8
char YourKey[8]={0}; // 输入的解密密钥 8字节*8
char MyMessage[64]={0}; // 初始明文
printf("Please input your Message(64 bit):\n");
scanf("%s",MyMessage); // 明文
printf("Please input your Secret Key(Notice:The password must be eight bit):\n");
scanf("%s",MyKey); // 密钥
while(MyKey[i]!='\0') // 计算密钥长度
{
i++;
}
while(i!=8) // 不是8 提示错误
{
printf("Please input a correct Secret Key!\n");
t=1;break;
}
if(t==1)
scanf("%s",MyKey);
i=0;
while(MyKey[i]!='\0') // 再次检测
{
i++;
}
SetKey(MyKey); // 设置密钥 得到子密钥Ki
PlayDes(MesHex,MyMessage); // 执行DES加密
printf("Your Message is Encrypted!:\n"); // 信息已加密
for(i=0;i<16;i++)
{
printf("%c ",MesHex[i]);
}
printf("\n");
printf("\n");
printf("Please input your Secret Key to Deciphering:\n"); // 请输入密钥以解密
scanf("%s",YourKey); // 得到密钥
SetKey(YourKey); // 设置密钥
KickDes(MyMessage,MesHex); // 解密输出到MyMessage
printf("Deciphering Over !!:\n");// 解密结
for(i=0;i<64;i++)
{
printf("%c ",MyMessage[i]);
}
printf("\n");
printf("if continue:please press 1\n");
printf("if end :please press 0\n");
scanf("%d",&flag);
system("cls");
}
return 0;
}
void BitsCopy(bool *DatOut,bool *DatIn,int Len) // 数组复制 OK
{
int i=0;
for(i=0;i<Len;i++)
{
DatOut[i]=DatIn[i];
}
}
void ByteToBit(bool *DatOut,char *DatIn,int Num) // OK
{
int i=0;
for(i=0;i<Num;i++)
{
DatOut[i]=(DatIn[i/8]>>(i%8))&0x01;
}
}
void BitToByte(char *DatOut,bool *DatIn,int Num) // OK
{
int i=0;
for(i=0;i<(Num/8);i++)
{
DatOut[i]=0;
}
for(i=0;i<Num;i++)
{
DatOut[i/8]|=DatIn[i]<<(i%8);
}
}
void BitToHex(char *DatOut,bool *DatIn,int Num)
{
int i=0;
for(i=0;i<Num/4;i++)
{
DatOut[i]=0;
}
for(i=0;i<Num/4;i++)
{
DatOut[i] = DatIn[i*4]+(DatIn[i*4+1]<<1)
+(DatIn[i*4+2]<<2)+(DatIn[i*4+3]<<3);
if((DatOut[i]%16)>9)
{
DatOut[i]=DatOut[i]%16+'7'; // 余数大于9时处理 10-15 to A-F
} // 输出字符
else
{
DatOut[i]=DatOut[i]%16+'0'; // 输出字符
}
}
}
void HexToBit(bool *DatOut,char *DatIn,int Num)
{
int i=0; // 字符型输入
for(i=0;i<Num;i++)
{
if((DatIn[i/4])>'9') // 大于9
{
DatOut[i]=((DatIn[i/4]-'7')>>(i%4))&0x01;
}
else
{
DatOut[i]=((DatIn[i/4]-'0')>>(i%4))&0x01;
}
}
}
// 表置换函数 OK
void TablePermute(bool *DatOut,bool *DatIn,const char *Table,int Num)
{
int i=0;
static bool Temp[256]={0};
for(i=0;i<Num;i++) // Num为置换的长度
{
Temp[i]=DatIn[Table[i]-1]; // 原来的数据按对应的表上的位置排列
}
BitsCopy(DatOut,Temp,Num); // 把缓存Temp的值输出
}
// 子密钥的移位
void LoopMove(bool *DatIn,int Len,int Num) // 循环左移 Len数据长度 Num移动位数
{
static bool Temp[256]={0}; // 缓存 OK
BitsCopy(Temp,DatIn,Num); // 将数据最左边的Num位(被移出去的)存入Temp
BitsCopy(DatIn,DatIn+Num,Len-Num); // 将数据左边开始的第Num移入原来的空间
BitsCopy(DatIn+Len-Num,Temp,Num); // 将缓存中移出去的数据加到最右边
}
// 按位异或
void Xor(bool *DatA,bool *DatB,int Num) // 异或函数
{
int i=0;
for(i=0;i<Num;i++)
{
DatA[i]=DatA[i]^DatB[i]; // 异或
}
}
// 输入48位 输出32位 与Ri异或
void S_Change(bool DatOut[32],bool DatIn[48]) // S盒变换
{
int i,X,Y; // i为8个S盒
for(i=0,Y=0,X=0;i<8;i++,DatIn+=6,DatOut+=4) // 每执行一次,输入数据偏移6位
{ // 每执行一次,输出数据偏移4位
Y=(DatIn[0]<<1)+DatIn[5]; // af代表第几行
X=(DatIn[1]<<3)+(DatIn[2]<<2)+(DatIn[3]<<1)+DatIn[4]; // bcde代表第几列
ByteToBit(DatOut,&S_Box[i][Y][X],4); // 把找到的点数据换为二进制
}
}
// F函数
void F_Change(bool DatIn[32],bool DatKi[48]) // F函数
{
static bool MiR[48]={0}; // 输入32位通过E选位变为48位
TablePermute(MiR,DatIn,E_Table,48);
Xor(MiR,DatKi,48); // 和子密钥异或
S_Change(DatIn,MiR); // S盒变换
TablePermute(DatIn,DatIn,P_Table,32); // P置换后输出
}
void SetKey(char KeyIn[8]) // 设置密钥 获取子密钥Ki
{
int i=0;
static bool SubKey[16];
static bool KeyBit[64]={0}; // 密钥二进制存储空间
static bool *KiL=&KeyBit[0],*KiR=&KeyBit[28]; // 前28,后28共56
ByteToBit(KeyBit,KeyIn,64); // 把密钥转为二进制存入KeyBit
TablePermute(KeyBit,KeyBit,PC1_Table,56); // PC1表置换 56次
for(i=0;i<16;i++)
{
LoopMove(KiL,28,Move_Table[i]); // 前28位左移
LoopMove(KiR,28,Move_Table[i]); // 后28位左移
TablePermute(SubKey,KeyBit,PC2_Table,48);
// 二维数组 SubKey[i]为每一行起始地址
// 每移一次位进行PC2置换得 Ki 48位
}
}
void PlayDes(char MesOut[8],char MesIn[64]) // 执行DES加密
{ // 字节输入 Bin运算 Hex输出
int i=0;
static bool SubKey[16];
static bool MesBit[64]={0}; // 明文二进制存储空间 64位
static bool Temp[32]={0};
static bool *MiL=&MesBit[0],*MiR=&MesBit[32]; // 前32位 后32位
ByteToBit(MesBit,MesIn,64); // 把明文换成二进制存入MesBit
TablePermute(MesBit,MesBit,IP_Table,64); // IP置换
for(i=0;i<16;i++) // 迭代16次
{
BitsCopy(Temp,MiR,32); // 临时存储
F_Change(MiR,SubKey[i]); // F函数变换
Xor(MiR,MiL,32); // 得到Ri
BitsCopy(MiL,Temp,32); // 得到Li
}
TablePermute(MesBit,MesBit,IPR_Table,64);
BitToHex(MesOut,MesBit,64);
}
void KickDes(char MesOut[64],char MesIn[8]) // 执行DES解密
{ // Hex输入 Bin运算 字节输出
int i=0;
static bool SubKey[16];
static bool MesBit[64]={0}; // 密文二进制存储空间 64位
static bool Temp[32]={0};
static bool *MiL=&MesBit[0],*MiR=&MesBit[32]; // 前32位 后32位
HexToBit(MesBit,MesIn,64); // 把密文换成二进制存入MesBit
TablePermute(MesBit,MesBit,IP_Table,64); // IP置换
for(i=15;i>=0;i--)
{
BitsCopy(Temp,MiL,32);
F_Change(MiL,SubKey[i]);
Xor(MiL,MiR,32);
BitsCopy(MiR,Temp,32);
}
TablePermute(MesBit,MesBit,IPR_Table,64);
BitToByte(MesOut,MesBit,64);
}
TablePermute(KeyBit,KeyBit,PC1_Table,56); // PC1表置换 56
显示错误 warning C4047: 'function' : 'int *' differs in levels of indirection from 'int '
怎么解决
ltdragonfly 2016-12-25
- 打赏
- 举报
如果结果不一致，代码肯定不对啊
xflidengqiang2008 2016-04-27
- 打赏
- 举报
这篇是delphi的，不知道译C++CB能不能用
以下为c,delphi的des加密解密算法，现在除了中文外其余的，都没问题。哪位帮忙看看是何原因，谢谢！
unit DESUnit;
interface
uses
SysUtils;
function DESEncryptStr(Str, Key: String): String;
function DESDecryptStr(Str, Key: String): String;
function DESEncryptStrToHex(Str, Key: String): String;
function DESDecryptStrFromHex(StrHex, Key: String): String;
implementation
const
BitIP: array[0..63] of Byte =
(57, 49, 41, 33, 25, 17, 9, 1,
59, 51, 43, 35, 27, 19, 11, 3,
61, 53, 45, 37, 29, 21, 13, 5,
63, 55, 47, 39, 31, 23, 15, 7,
56, 48, 40, 32, 24, 16, 8, 0,
58, 50, 42, 34, 26, 18, 10, 2,
60, 52, 44, 36, 28, 20, 12, 4,
62, 54, 46, 38, 30, 22, 14, 6);
BitCP: array[0..63] of Byte =
(39, 7, 47, 15, 55, 23, 63, 31,
38, 6, 46, 14, 54, 22, 62, 30,
37, 5, 45, 13, 53, 21, 61, 29,
36, 4, 44, 12, 52, 20, 60, 28,
35, 3, 43, 11, 51, 19, 59, 27,
34, 2, 42, 10, 50, 18, 58, 26,
33, 1, 41, 9, 49, 17, 57, 25,
32, 0, 40, 8, 48, 16, 56, 24);
BitExp: array[0..47] of Byte =
(31, 0, 1, 2, 3, 4, 3, 4, 5, 6, 7, 8, 7, 8, 9, 10,
11, 12, 11, 12, 13, 14, 15, 16, 15, 16, 17, 18, 19, 20, 19, 20,
21, 22, 23, 24, 23, 24, 25, 26, 27, 28, 27, 28, 29, 30, 31, 0);
BitPM: array[0..31] of Byte =
(15, 6, 19, 20, 28, 11, 27, 16, 0, 14, 22, 25, 4, 17, 30, 9,
1, 7, 23, 13, 31, 26, 2, 8, 18, 12, 29, 5, 21, 10, 3, 24);
sBox: array[0..7] of array[0..63] of Byte =
((14, 4, 13, 1, 2, 15, 11, 8, 3, 10, 6, 12, 5, 9, 0, 7,
0, 15, 7, 4, 14, 2, 13, 1, 10, 6, 12, 11, 9, 5, 3, 8,
4, 1, 14, 8, 13, 6, 2, 11, 15, 12, 9, 7, 3, 10, 5, 0,
15, 12, 8, 2, 4, 9, 1, 7, 5, 11, 3, 14, 10, 0, 6, 13),
(15, 1, 8, 14, 6, 11, 3, 4, 9, 7, 2, 13, 12, 0, 5, 10,
3, 13, 4, 7, 15, 2, 8, 14, 12, 0, 1, 10, 6, 9, 11, 5,
0, 14, 7, 11, 10, 4, 13, 1, 5, 8, 12, 6, 9, 3, 2, 15,
13, 8, 10, 1, 3, 15, 4, 2, 11, 6, 7, 12, 0, 5, 14, 9),
(10, 0, 9, 14, 6, 3, 15, 5, 1, 13, 12, 7, 11, 4, 2, 8,
13, 7, 0, 9, 3, 4, 6, 10, 2, 8, 5, 14, 12, 11, 15, 1,
13, 6, 4, 9, 8, 15, 3, 0, 11, 1, 2, 12, 5, 10, 14, 7,
1, 10, 13, 0, 6, 9, 8, 7, 4, 15, 14, 3, 11, 5, 2, 12),
(7, 13, 14, 3, 0, 6, 9, 10, 1, 2, 8, 5, 11, 12, 4, 15,
13, 8, 11, 5, 6, 15, 0, 3, 4, 7, 2, 12, 1, 10, 14, 9,
10, 6, 9, 0, 12, 11, 7, 13, 15, 1, 3, 14, 5, 2, 8, 4,
3, 15, 0, 6, 10, 1, 13, 8, 9, 4, 5, 11, 12, 7, 2, 14),
(2, 12, 4, 1, 7, 10, 11, 6, 8, 5, 3, 15, 13, 0, 14, 9,
14, 11, 2, 12, 4, 7, 13, 1, 5, 0, 15, 10, 3, 9, 8, 6,
4, 2, 1, 11, 10, 13, 7, 8, 15, 9, 12, 5, 6, 3, 0, 14,
11, 8, 12, 7, 1, 14, 2, 13, 6, 15, 0, 9, 10, 4, 5, 3),
(12, 1, 10, 15, 9, 2, 6, 8, 0, 13, 3, 4, 14, 7, 5, 11,
10, 15, 4, 2, 7, 12, 9, 5, 6, 1, 13, 14, 0, 11, 3, 8,
9, 14, 15, 5, 2, 8, 12, 3, 7, 0, 4, 10, 1, 13, 11, 6,
4, 3, 2, 12, 9, 5, 15, 10, 11, 14, 1, 7, 6, 0, 8, 13),
(4, 11, 2, 14, 15, 0, 8, 13, 3, 12, 9, 7, 5, 10, 6, 1,
13, 0, 11, 7, 4, 9, 1, 10, 14, 3, 5, 12, 2, 15, 8, 6,
1, 4, 11, 13, 12, 3, 7, 14, 10, 15, 6, 8, 0, 5, 9, 2,
6, 11, 13, 8, 1, 4, 10, 7, 9, 5, 0, 15, 14, 2, 3, 12),
(13, 2, 8, 4, 6, 15, 11, 1, 10, 9, 3, 14, 5, 0, 12, 7,
1, 15, 13, 8, 10, 3, 7, 4, 12, 5, 6, 11, 0, 14, 9, 2,
7, 11, 4, 1, 9, 12, 14, 2, 0, 6, 10, 13, 15, 3, 5, 8,
2, 1, 14, 7, 4, 10, 8, 13, 15, 12, 9, 0, 3, 5, 6, 11));
BitPMC1: array[0..55] of Byte =
(56, 48, 40, 32, 24, 16, 8,
0, 57, 49, 41, 33, 25, 17,
9, 1, 58, 50, 42, 34, 26,
18, 10, 2, 59, 51, 43, 35,
62, 54, 46, 38, 30, 22, 14,
6, 61, 53, 45, 37, 29, 21,
13, 5, 60, 52, 44, 36, 28,
20, 12, 4, 27, 19, 11, 3);
BitPMC2: array[0..47] of Byte =
(13, 16, 10, 23, 0, 4,
2, 27, 14, 5, 20, 9,
22, 18, 11, 3, 25, 7,
15, 6, 26, 19, 12, 1,
40, 51, 30, 36, 46, 54,
29, 39, 50, 44, 32, 47,
43, 48, 38, 55, 33, 52,
45, 41, 49, 35, 28, 31);
type
TKeyByte = array[0..5] of Byte;
TDesMode = (dmEncry, dmDecry);
var
subKey: array[0..15] of TKeyByte;
procedure InitPermutation(var inData: array of Byte);
var
newData: array[0..7] of Byte;
I: Integer;
begin
FillChar(newData, 8, 0);
for I := 0 to 63 do
if (inData[BitIP[I] shr 3] and (1 shl (7 - (BitIP[I] and $07)))) <> 0 then
newData[I shr 3] := newData[I shr 3] or (1 shl (7 - (I and $07)));
for I := 0 to 7 do inData[I] := newData[I];
end;
procedure ConversePermutation(var inData: array of Byte);
var
newData: array[0..7] of Byte;
I: Integer;
begin
FillChar(newData, 8, 0);
for I := 0 to 63 do
if (inData[BitCP[I] shr 3] and (1 shl (7 - (BitCP[I] and $07)))) <> 0 then
newData[I shr 3] := newData[I shr 3] or (1 shl (7 - (I and $07)));
for I := 0 to 7 do inData[I] := newData[I];
end;
procedure Expand(inData: array of Byte; var outData: array of Byte);
var
I: Integer;
begin
FillChar(outData, 6, 0);
for I := 0 to 47 do
if (inData[BitExp[I] shr 3] and (1 shl (7 - (BitExp[I] and $07)))) <> 0 then
outData[I shr 3] := outData[I shr 3] or (1 shl (7 - (I and $07)));
end;
procedure Permutation(var inData: array of Byte);
var
newData: array[0..3] of Byte;
I: Integer;
begin
FillChar(newData, 4, 0);
for I := 0 to 31 do
if (inData[BitPM[I] shr 3] and (1 shl (7 - (BitPM[I] and $07)))) <> 0 then
newData[I shr 3] := newData[I shr 3] or (1 shl (7 - (I and $07)));
for I := 0 to 3 do inData[I] := newData[I];
end;
function Si(s, inByte: Byte): Byte;
var
c: Byte;
begin
c := (inByte and $20) or ((inByte and $1E) shr 1) or
((inByte and $01) shl 4);
Result := (sBox[s][c] and $0F);
end;
procedure PermutationChoose1(inData: array of Byte; var outData: array of Byte);
var
I: Integer;
begin
FillChar(outData, 7, 0);
for I := 0 to 55 do
if (inData[BitPMC1[I] shr 3] and (1 shl (7 - (BitPMC1[I] and $07)))) <> 0 then
outData[I shr 3] := outData[I shr 3] or (1 shl (7 - (I and $07)));
end;
xflidengqiang2008 2016-04-27
- 打赏
- 举报
procedure PermutationChoose2(inData: array of Byte; var outData: array of Byte);
var
I: Integer;
begin
FillChar(outData, 6, 0);
for I := 0 to 47 do
if (inData[BitPMC2[I] shr 3] and (1 shl (7 - (BitPMC2[I] and $07)))) <> 0 then
outData[I shr 3] := outData[I shr 3] or (1 shl (7 - (I and $07)));
end;
procedure cycleMove(var inData: array of Byte; bitMove: Byte);
var
I: Integer;
begin
for I := 0 to bitMove - 1 do
begin
inData[0] := (inData[0] shl 1) or (inData[1] shr 7);
inData[1] := (inData[1] shl 1) or (inData[2] shr 7);
inData[2] := (inData[2] shl 1) or (inData[3] shr 7);
inData[3] := (inData[3] shl 1) or ((inData[0] and $10) shr 4);
inData[0] := (inData[0] and $0F);
end;
end;
procedure MakeKey(inKey: array of Byte; var outKey: array of TKeyByte);
const
bitDisplace: array[0..15] of Byte =
(1, 1, 2, 2, 2, 2, 2, 2, 1, 2, 2, 2, 2, 2, 2, 1);
var
outData56: array[0..6] of Byte;
key28l: array[0..3] of Byte;
key28r: array[0..3] of Byte;
key56o: array[0..6] of Byte;
I: Integer;
begin
permutationChoose1(inKey, outData56);
key28l[0] := outData56[0] shr 4;
key28l[1] := (outData56[0] shl 4) or (outData56[1] shr 4);
key28l[2] := (outData56[1] shl 4) or (outData56[2] shr 4);
key28l[3] := (outData56[2] shl 4) or (outData56[3] shr 4);
key28r[0] := outData56[3] and $0F;
key28r[1] := outData56[4];
key28r[2] := outData56[5];
key28r[3] := outData56[6];
for I := 0 to 15 do
begin
cycleMove(key28l, bitDisplace[I]);
cycleMove(key28r, bitDisplace[I]);
key56o[0] := (key28l[0] shl 4) or (key28l[1] shr 4);
key56o[1] := (key28l[1] shl 4) or (key28l[2] shr 4);
key56o[2] := (key28l[2] shl 4) or (key28l[3] shr 4);
key56o[3] := (key28l[3] shl 4) or (key28r[0]);
key56o[4] := key28r[1];
key56o[5] := key28r[2];
key56o[6] := key28r[3];
permutationChoose2(key56o, outKey[I]);
end;
end;
procedure Encry(inData, subKey: array of Byte; var outData: array of Byte);
var
outBuf: array[0..5] of Byte;
buf: array[0..7] of Byte;
I: Integer;
begin
expand(inData, outBuf);
for I := 0 to 5 do outBuf[I] := outBuf[I] xor subKey[I];
buf[0] := outBuf[0] shr 2;
buf[1] := ((outBuf[0] and $03) shl 4) or (outBuf[1] shr 4);
buf[2] := ((outBuf[1] and $0F) shl 2) or (outBuf[2] shr 6);
buf[3] := outBuf[2] and $3F;
buf[4] := outBuf[3] shr 2;
buf[5] := ((outBuf[3] and $03) shl 4) or (outBuf[4] shr 4);
buf[6] := ((outBuf[4] and $0F) shl 2) or (outBuf[5] shr 6);
buf[7] := outBuf[5] and $3F;
for I := 0 to 7 do buf[I] := si(I, buf[I]);
for I := 0 to 3 do outBuf[I] := (buf[I * 2] shl 4) or buf[I * 2 + 1];
permutation(outBuf);
for I := 0 to 3 do outData[I] := outBuf[I];
end;
procedure DesData(desMode: TDesMode; inData: array of Byte; var outData: array
of Byte);
var
I, j: Integer;
temp, buf: array[0..3] of Byte;
begin
for I := 0 to 7 do outData[I] := inData[I];
initPermutation(outData);
if desMode = dmEncry then
begin
for I := 0 to 15 do
begin
for j := 0 to 3 do temp[j] := outData[j];
for j := 0 to 3 do outData[j] := outData[j + 4];
encry(outData, subKey[I], buf);
for j := 0 to 3 do outData[j + 4] := temp[j] xor buf[j];
end;
for j := 0 to 3 do temp[j] := outData[j + 4];
for j := 0 to 3 do outData[j + 4] := outData[j];
for j := 0 to 3 do outData[j] := temp[j];
end
else if desMode = dmDecry then
begin
for I := 15 downto 0 do
begin
for j := 0 to 3 do temp[j] := outData[j];
for j := 0 to 3 do outData[j] := outData[j + 4];
encry(outData, subKey[I], buf);
for j := 0 to 3 do outData[j + 4] := temp[j] xor buf[j];
end;
for j := 0 to 3 do temp[j] := outData[j + 4];
for j := 0 to 3 do outData[j + 4] := outData[j];
for j := 0 to 3 do outData[j] := temp[j];
end;
conversePermutation(outData);
end;
xflidengqiang2008 2016-04-27
- 打赏
- 举报
贴的代码不全啊，我也看过这段代码
赵4老师 2015-07-27
- 打赏
- 举报
电脑内存或文件内容只是一个一维二进制字节数组及其对应的二进制地址；
人脑才将电脑内存或文件内容中的这个一维二进制字节数组及其对应的二进制地址的某些部分看成是整数、有符号数/无符号数、浮点数、复数、英文字母、阿拉伯数字、中文/韩文/法文……字符/字符串、汇编指令、函数、函数参数、堆、栈、数组、指针、数组指针、指针数组、数组的数组、指针的指针、二维数组、字符点阵、字符笔画的坐标、黑白二值图片、灰度图片、彩色图片、录音、视频、指纹信息、身份证信息……
void HexDump(char *buf,int len,int addr) {
int i,j,k;
char binstr[80];
for (i=0;i<len;i++) {
if (0==(i%16)) {
sprintf(binstr,"%08x -",i+addr);
sprintf(binstr,"%s %02x",binstr,(unsigned char)buf[i]);
} else if (15==(i%16)) {
sprintf(binstr,"%s %02x",binstr,(unsigned char)buf[i]);
sprintf(binstr,"%s ",binstr);
for (j=i-15;j<=i;j++) {
sprintf(binstr,"%s%c",binstr,('!'<buf[j]&&buf[j]<='~')?buf[j]:'.');
}
printf("%s\n",binstr);
} else {
sprintf(binstr,"%s %02x",binstr,(unsigned char)buf[i]);
}
}
if (0!=(i%16)) {
k=16-(i%16);
for (j=0;j<k;j++) {
sprintf(binstr,"%s ",binstr);
}
sprintf(binstr,"%s ",binstr);
k=16-k;
for (j=i-k;j<i;j++) {
sprintf(binstr,"%s%c",binstr,('!'<buf[j]&&buf[j]<='~')?buf[j]:'.');
}
printf("%s\n",binstr);
}
}
小灰狼 2015-07-27
- 打赏
- 举报
C语言区怎么回事啊，100分的题，居然没有想要的答案
赵4老师 2015-07-21
- 打赏
- 举报
前三楼都是楼主，大侠
因为一个帖子不能超过10000个字，所以分三帖了[/quote]
哦？！看走眼了。
参考：openssl\crypto\des\des*.*
赵4老师 2015-07-21
- 打赏
- 举报
前三楼都是楼主，大侠
因为一个帖子不能超过10000个字，所以分三帖了[/quote]
哦？！看走眼了。
参考：openssl\crypto\des\des*.*[/quote]
这是什么东东？
URL吗？[/quote]
下载openssl源代码。
小灰狼 2015-07-21
- 打赏
- 举报
前三楼都是楼主，大侠
因为一个帖子不能超过10000个字，所以分三帖了[/quote]
哦？！看走眼了。
参考：openssl\crypto\des\des*.*[/quote]
这是什么东东？
URL吗？
赵4老师 2015-07-20
- 打赏
- 举报
仅供参考：
#pragma comment(lib, "crypt32.lib")
#pragma comment(lib, "advapi32.lib")
#define _WIN32_WINNT 0x0400
#include <stdio.h>
#include <windows.h>
#include <wincrypt.h>
#define KEYLENGTH 0x00800000
void HandleError(char *s);
//--------------------------------------------------------------------
// These additional #define statements are required.
#define ENCRYPT_ALGORITHM CALG_RC4
#define ENCRYPT_BLOCK_SIZE 8
// Declare the function EncryptFile. The function definition
// follows main.
BOOL EncryptFile(
PCHAR szSource,
PCHAR szDestination,
PCHAR szPassword);
//--------------------------------------------------------------------
// Begin main.
void main(void) {
CHAR szSource[100];
CHAR szDestination[100];
CHAR szPassword[100];
printf("Encrypt a file. \n\n");
printf("Enter the name of the file to be encrypted: ");
scanf("%s",szSource);
printf("Enter the name of the output file: ");
scanf("%s",szDestination);
printf("Enter the password:");
scanf("%s",szPassword);
//--------------------------------------------------------------------
// Call EncryptFile to do the actual encryption.
if(EncryptFile(szSource, szDestination, szPassword)) {
printf("Encryption of the file %s was a success. \n", szSource);
printf("The encrypted data is in file %s.\n",szDestination);
} else {
HandleError("Error encrypting file!");
}
} // End of main
//--------------------------------------------------------------------
// Code for the function EncryptFile called by main.
static BOOL EncryptFile(
PCHAR szSource,
PCHAR szDestination,
PCHAR szPassword)
//--------------------------------------------------------------------
// Parameters passed are:
// szSource, the name of the input, a plaintext file.
// szDestination, the name of the output, an encrypted file to be
// created.
// szPassword, the password.
{
//--------------------------------------------------------------------
// Declare and initialize local variables.
FILE *hSource;
FILE *hDestination;
HCRYPTPROV hCryptProv;
HCRYPTKEY hKey;
HCRYPTHASH hHash;
PBYTE pbBuffer;
DWORD dwBlockLen;
DWORD dwBufferLen;
DWORD dwCount;
//--------------------------------------------------------------------
// Open source file.
if(hSource = fopen(szSource,"rb")) {
printf("The source plaintext file, %s, is open. \n", szSource);
} else {
HandleError("Error opening source plaintext file!");
}
//--------------------------------------------------------------------
// Open destination file.
if(hDestination = fopen(szDestination,"wb")) {
printf("Destination file %s is open. \n", szDestination);
} else {
HandleError("Error opening destination ciphertext file!");
}
//以下获得一个CSP句柄
if(CryptAcquireContext(
&hCryptProv,
NULL, //NULL表示使用默认密钥容器，默认密钥容器名
//为用户登陆名
NULL,
PROV_RSA_FULL,
0)) {
printf("A cryptographic provider has been acquired. \n");
} else {
if(CryptAcquireContext(
&hCryptProv,
NULL,
NULL,
PROV_RSA_FULL,
CRYPT_NEWKEYSET))//创建密钥容器
{
//创建密钥容器成功，并得到CSP句柄
printf("A new key container has been created.\n");
} else {
HandleError("Could not create a new key container.\n");
}
}
//--------------------------------------------------------------------
// 创建一个会话密钥（session key）
// 会话密钥也叫对称密钥，用于对称加密算法。
// （注: 一个Session是指从调用函数CryptAcquireContext到调用函数
// CryptReleaseContext 期间的阶段。会话密钥只能存在于一个会话过程）
//--------------------------------------------------------------------
// Create a hash object.
if(CryptCreateHash(
hCryptProv,
CALG_MD5,
0,
0,
&hHash)) {
printf("A hash object has been created. \n");
} else {
HandleError("Error during CryptCreateHash!\n");
}
//--------------------------------------------------------------------
// 用输入的密码产生一个散列
if(CryptHashData(
hHash,
(BYTE *)szPassword,
strlen(szPassword),
0)) {
printf("The password has been added to the hash. \n");
} else {
HandleError("Error during CryptHashData. \n");
}
//--------------------------------------------------------------------
// 通过散列生成会话密钥
if(CryptDeriveKey(
hCryptProv,
ENCRYPT_ALGORITHM,
hHash,
KEYLENGTH,
&hKey)) {
printf("An encryption key is derived from the password hash. \n");
} else {
HandleError("Error during CryptDeriveKey!\n");
}
//--------------------------------------------------------------------
// Destroy the hash object.
CryptDestroyHash(hHash);
hHash = NULL;
//--------------------------------------------------------------------
// The session key is now ready.
//--------------------------------------------------------------------
// 因为加密算法是按ENCRYPT_BLOCK_SIZE 大小的块加密的，所以被加密的
// 数据长度必须是ENCRYPT_BLOCK_SIZE 的整数倍。下面计算一次加密的
// 数据长度。
dwBlockLen = 1000 - 1000 % ENCRYPT_BLOCK_SIZE;
//--------------------------------------------------------------------
// Determine the block size. If a block cipher is used,
// it must have room for an extra block.
if(ENCRYPT_BLOCK_SIZE > 1)
dwBufferLen = dwBlockLen + ENCRYPT_BLOCK_SIZE;
else
dwBufferLen = dwBlockLen;
//--------------------------------------------------------------------
// Allocate memory.
if(pbBuffer = (BYTE *)malloc(dwBufferLen)) {
printf("Memory has been allocated for the buffer. \n");
} else {
HandleError("Out of memory. \n");
}
//--------------------------------------------------------------------
// In a do loop, encrypt the source file and write to the destination file.
do {
//--------------------------------------------------------------------
// Read up to dwBlockLen bytes from the source file.
dwCount = fread(pbBuffer, 1, dwBlockLen, hSource);
if(ferror(hSource)) {
HandleError("Error reading plaintext!\n");
}
//--------------------------------------------------------------------
// 加密数据
if(!CryptEncrypt(
hKey, //密钥
0, //如果数据同时进行散列和加密，这里传入一个
//散列对象
feof(hSource), //如果是最后一个被加密的块，输入TRUE.如果不是输.
//入FALSE这里通过判断是否到文件尾来决定是否为
//最后一块。
0, //保留
pbBuffer, //输入被加密数据，输出加密后的数据
&dwCount, //输入被加密数据实际长度，输出加密后数据长度
dwBufferLen)) //pbBuffer的大小。
{
HandleError("Error during CryptEncrypt. \n");
}
//--------------------------------------------------------------------
// Write data to the destination file.
fwrite(pbBuffer, 1, dwCount, hDestination);
if(ferror(hDestination)) {
HandleError("Error writing ciphertext.");
}
} while(!feof(hSource));
//--------------------------------------------------------------------
// End the do loop when the last block of the source file has been
// read, encrypted, and written to the destination file.
//--------------------------------------------------------------------
// Close files.
if(hSource)
fclose(hSource);
if(hDestination)
fclose(hDestination);
//--------------------------------------------------------------------
// Free memory.
if(pbBuffer)
free(pbBuffer);
//--------------------------------------------------------------------
// Destroy session key.
if(hKey)
CryptDestroyKey(hKey);
//--------------------------------------------------------------------
// Destroy hash object.
if(hHash)
CryptDestroyHash(hHash);
//--------------------------------------------------------------------
// Release provider handle.
if(hCryptProv)
CryptReleaseContext(hCryptProv, 0);
return(TRUE);
} // End of Encryptfile
//--------------------------------------------------------------------
// This example uses the function HandleError, a simple error
// handling function, to print an error message to the standard error
// (stderr) file and exit the program.
// For most applications, replace this function with one
// that does more extensive error reporting.
void HandleError(char *s) {
fprintf(stderr,"An error occurred in running the program. \n");
fprintf(stderr,"%s\n",s);
fprintf(stderr, "Error number %x.\n", GetLastError());
fprintf(stderr, "Program terminating. \n");
exit(1);
} // End of HandleError
小灰狼 2015-07-20
- 打赏
- 举报
int DES_DecryptBlock(char cipherBlock[8], char subKeys[16][48],char plainBlock[8]){
char cipherBits[64];
char copyRight[48];
int cnt;
Char8ToBit64(cipherBlock,cipherBits);
DES_IP_Transform(cipherBits);
for(cnt = 15; cnt >= 0; cnt--){
memcpy(copyRight,cipherBits+32,32);
DES_E_Transform(copyRight);
DES_XOR(copyRight,subKeys[cnt],48);
DES_SBOX(copyRight);
DES_P_Transform(copyRight);
DES_XOR(cipherBits,copyRight,32);
if(cnt != 0){
DES_Swap(cipherBits,cipherBits+32);
}
}
DES_IP_1_Transform(cipherBits);
Bit64ToChar8(cipherBits,plainBlock);
return 0;
}
/* 加密 */
char* DES_Encrypt(char *sourceData, int sourceSize, char *keyStr, int *resultSize){
char *destData = 0;
int destSize = sourceSize;
if(destSize % 8 != 0)
destSize += (8 - (destSize % 8));
destData = (char*)malloc(destSize);
*resultSize = destSize;
int count;
char sourceBlock[8], destBlock[8], keyBlock[8];
char bKey[64];
char subKeys[16][48];
memcpy(keyBlock, keyStr, 8);
Char8ToBit64(keyBlock,bKey);
DES_MakeSubKeys(bKey,subKeys);
int p = 0;
while(p + 8 <= sourceSize){
memcpy(sourceBlock, sourceData + p, sizeof(sourceBlock));
DES_EncryptBlock(sourceBlock, subKeys, destBlock);
memcpy(destData + p, destBlock, sizeof(destBlock));
p += 8;
}
if(p + 8 > sourceSize){
memset(sourceBlock, '\0', 8);
// sourceBlock[7] = 8 - (sourceSize % 8);
memcpy(sourceBlock, sourceData + p, sourceSize % 8);
DES_EncryptBlock(sourceBlock, subKeys, destBlock);
memcpy(destData + p, destBlock, sizeof(destBlock));
}
return destData;
}
char* DES_Decrypt(char *sourceData, int sourceSize, char *keyStr, int* resultSize){
int count,times = 0;
long fileLen;
char sourceBlock[8], destBlock[8], keyBlock[8];
char bKey[64];
char subKeys[16][48];
char *destData = (char*)malloc(sourceSize);
*resultSize = sourceSize;
memcpy(keyBlock,keyStr,8);
Char8ToBit64(keyBlock,bKey);
DES_MakeSubKeys(bKey,subKeys);
int p = 0;
while(p < sourceSize){
memcpy(sourceBlock, sourceData + p, 8);
DES_DecryptBlock(sourceBlock, subKeys, destBlock);
memcpy(destData + p, destBlock, 8);
p+= 8;
}
for(int i=0; i<sourceSize; i++){
printf("%d ", 0xFF & destData[i]);
}
printf("\r\n");
int nullCnt = destData[*resultSize - 1];
int realNullCnt = 1;
int pt = *resultSize - 2;
int pi = 6;
while(destData[pt] == '\0' && pi > 0){
pt--;
pi--;
realNullCnt++;
}
printf("nullCnt = %d, realNullCnt = %d\r\n", nullCnt, realNullCnt);
if(nullCnt != realNullCnt){
printf("aaa null byte count = %d\r\n", realNullCnt);
}else{
printf("bbb null byte count = %d\r\n", realNullCnt);
*resultSize -= realNullCnt;
char *resultData = (char*)malloc(*resultSize);
memcpy(resultData, destData, *resultSize);
free(destData);
destData = resultData;
}
return destData;
}
int _tmain(int argc, _TCHAR* argv[])
{
char* pSource = "12345678XYZ";
char *pKey = "abcdefgh";
int sourceLength = strlen(pSource);
char* source = (char*)malloc(sourceLength);
char key[8];
memcpy(source, pSource, sourceLength);
memcpy(key, pKey, 8);
char *dest;
int destSize;
printf("Source:\r\n");
for(int i=0; i<sourceLength; i++){
printf("%d ", 0xFF & source[i]);
}
printf("\r\n");
dest = DES_Encrypt(source, sourceLength, key, &destSize);
printf("Encrypt complete:\r\n");
for(int i=0; i<destSize; i++){
printf("%d ", (0xFF & dest[i]));
}
printf("\r\ndestSize = %d\r\n", destSize);
char* dest1 = DES_Decrypt(dest, destSize, key, &destSize);
printf("destSize = %d\r\n", destSize);
for(int i=0; i<destSize; i++){
printf("%c", dest1[i]);
}
printf("\r\n");
return 0;
} 小灰狼 2015-07-20
- 打赏
- 举报
#include "stdafx.h"
#include "cstring"
#include "stdio.h"
#include "time.h"
#include "stdlib.h"
#define PLAIN_FILE_OPEN_ERROR -1
#define KEY_FILE_OPEN_ERROR -2
#define CIPHER_FILE_OPEN_ERROR -3
#define OK 1;
int IP_Table[64] = { 57,49,41,33,25,17,9,1,
59,51,43,35,27,19,11,3,
61,53,45,37,29,21,13,5,
63,55,47,39,31,23,15,7,
56,48,40,32,24,16,8,0,
58,50,42,34,26,18,10,2,
60,52,44,36,28,20,12,4,
62,54,46,38,30,22,14,6};
int IP_1_Table[64] = {39,7,47,15,55,23,63,31,
38,6,46,14,54,22,62,30,
37,5,45,13,53,21,61,29,
36,4,44,12,52,20,60,28,
35,3,43,11,51,19,59,27,
34,2,42,10,50,18,58,26,
33,1,41,9,49,17,57,25,
32,0,40,8,48,16,56,24};
int E_Table[48] = {31, 0, 1, 2, 3, 4,
3, 4, 5, 6, 7, 8,
7, 8,9,10,11,12,
11,12,13,14,15,16,
15,16,17,18,19,20,
19,20,21,22,23,24,
23,24,25,26,27,28,
27,28,29,30,31, 0};
int P_Table[32] = {15,6,19,20,28,11,27,16,
0,14,22,25,4,17,30,9,
1,7,23,13,31,26,2,8,
18,12,29,5,21,10,3,24};
int S[8][4][16] =
/* S1 */
{{{14,4,13,1,2,15,11,8,3,10,6,12,5,9,0,7},
{0,15,7,4,14,2,13,1,10,6,12,11,9,5,3,8},
{4,1,14,8,13,6,2,11,15,12,9,7,3,10,5,0},
{15,12,8,2,4,9,1,7,5,11,3,14,10,0,6,13}},
/* S2 */
{{15,1,8,14,6,11,3,4,9,7,2,13,12,0,5,10},
{3,13,4,7,15,2,8,14,12,0,1,10,6,9,11,5},
{0,14,7,11,10,4,13,1,5,8,12,6,9,3,2,15},
{13,8,10,1,3,15,4,2,11,6,7,12,0,5,14,9}},
/* S3 */
{{10,0,9,14,6,3,15,5,1,13,12,7,11,4,2,8},
{13,7,0,9,3,4,6,10,2,8,5,14,12,11,15,1},
{13,6,4,9,8,15,3,0,11,1,2,12,5,10,14,7},
{1,10,13,0,6,9,8,7,4,15,14,3,11,5,2,12}},
/* S4 */
{{7,13,14,3,0,6,9,10,1,2,8,5,11,12,4,15},
{13,8,11,5,6,15,0,3,4,7,2,12,1,10,14,9},
{10,6,9,0,12,11,7,13,15,1,3,14,5,2,8,4},
{3,15,0,6,10,1,13,8,9,4,5,11,12,7,2,14}},
/* S5 */
{{2,12,4,1,7,10,11,6,8,5,3,15,13,0,14,9},
{14,11,2,12,4,7,13,1,5,0,15,10,3,9,8,6},
{4,2,1,11,10,13,7,8,15,9,12,5,6,3,0,14},
{11,8,12,7,1,14,2,13,6,15,0,9,10,4,5,3}},
/* S6 */
{{12,1,10,15,9,2,6,8,0,13,3,4,14,7,5,11},
{10,15,4,2,7,12,9,5,6,1,13,14,0,11,3,8},
{9,14,15,5,2,8,12,3,7,0,4,10,1,13,11,6},
{4,3,2,12,9,5,15,10,11,14,1,7,6,0,8,13}},
/* S7 */
{{4,11,2,14,15,0,8,13,3,12,9,7,5,10,6,1},
{13,0,11,7,4,9,1,10,14,3,5,12,2,15,8,6},
{1,4,11,13,12,3,7,14,10,15,6,8,0,5,9,2},
{6,11,13,8,1,4,10,7,9,5,0,15,14,2,3,12}},
/* S8 */
{{13,2,8,4,6,15,11,1,10,9,3,14,5,0,12,7},
{1,15,13,8,10,3,7,4,12,5,6,11,0,14,9,2},
{7,11,4,1,9,12,14,2,0,6,10,13,15,3,5,8},
{2,1,14,7,4,10,8,13,15,12,9,0,3,5,6,11}}};
int PC_1[56] = {56,48,40,32,24,16,8,
0,57,49,41,33,25,17,
9,1,58,50,42,34,26,
18,10,2,59,51,43,35,
62,54,46,38,30,22,14,
6,61,53,45,37,29,21,
13,5,60,52,44,36,28,
20,12,4,27,19,11,3};
int PC_2[48] = {13,16,10,23,0,4,2,27,
14,5,20,9,22,18,11,3,
25,7,15,6,26,19,12,1,
40,51,30,36,46,54,29,39,
50,44,32,46,43,48,38,55,
33,52,45,41,49,35,28,31};
int MOVE_TIMES[16] = {1,1,2,2,2,2,2,2,1,2,2,2,2,2,2,1};
int ByteToBit(char ch,char bit[8]);
int BitToByte(char bit[8],char *ch);
int Char8ToBit64(char ch[8],char bit[64]);
int Bit64ToChar8(char bit[64],char ch[8]);
int DES_MakeSubKeys(char key[64],char subKeys[16][48]);
int DES_PC1_Transform(char key[64], char tempbts[56]);
int DES_PC2_Transform(char key[56], char tempbts[48]);
int DES_ROL(char data[56], int time);
int DES_IP_Transform(char data[64]);
int DES_IP_1_Transform(char data[64]);
int DES_E_Transform(char data[48]);
int DES_P_Transform(char data[32]);
int DES_SBOX(char data[48]);
int DES_XOR(char R[48], char L[48],int count);
int DES_Swap(char left[32],char right[32]);
int DES_EncryptBlock(char plainBlock[8], char subKeys[16][48], char cipherBlock[8]);
int DES_DecryptBlock(char cipherBlock[8], char subKeys[16][48], char plainBlock[8]);
int DES_Encrypt(char *plainFile, char *keyStr,char *cipherFile);
int DES_Decrypt(char *cipherFile, char *keyStr,char *plainFile);
int ByteToBit(char ch, char bit[8]){
int cnt;
for(cnt = 0;cnt < 8; cnt++){
*(bit+cnt) = (ch>>cnt)&1;
}
return 0;
}
int BitToByte(char bit[8],char *ch){
int cnt;
for(cnt = 0;cnt < 8; cnt++){
*ch |= *(bit + cnt)<<cnt;
}
return 0;
}
int Char8ToBit64(char ch[8],char bit[64]){
int cnt;
for(cnt = 0; cnt < 8; cnt++){
ByteToBit(*(ch+cnt),bit+(cnt<<3));
}
return 0;
}
int Bit64ToChar8(char bit[64],char ch[8]){
int cnt;
memset(ch,0,8);
for(cnt = 0; cnt < 8; cnt++){
BitToByte(bit+(cnt<<3),ch+cnt);
}
return 0;
}
int DES_MakeSubKeys(char key[64],char subKeys[16][48]){
char temp[56];
int cnt;
DES_PC1_Transform(key,temp);
for(cnt = 0; cnt < 16; cnt++){
DES_ROL(temp,MOVE_TIMES[cnt]);
DES_PC2_Transform(temp,subKeys[cnt]);
}
return 0;
}
int DES_PC1_Transform(char key[64], char tempbts[56]){
int cnt;
for(cnt = 0; cnt < 56; cnt++){
tempbts[cnt] = key[PC_1[cnt]];
}
return 0;
}
int DES_PC2_Transform(char key[56], char tempbts[48]){
int cnt;
for(cnt = 0; cnt < 48; cnt++){
tempbts[cnt] = key[PC_2[cnt]];
}
return 0;
}
int DES_ROL(char data[56], int time){
char temp[56];
memcpy(temp,data,time);
memcpy(temp+time,data+28,time);
memcpy(data,data+time,28-time);
memcpy(data+28-time,temp,time);
memcpy(data+28,data+28+time,28-time);
memcpy(data+56-time,temp+time,time);
return 0;
}
int DES_IP_Transform(char data[64]){
int cnt;
char temp[64];
for(cnt = 0; cnt < 64; cnt++){
temp[cnt] = data[IP_Table[cnt]];
}
memcpy(data,temp,64);
return 0;
}
int DES_IP_1_Transform(char data[64]){
int cnt;
char temp[64];
for(cnt = 0; cnt < 64; cnt++){
temp[cnt] = data[IP_1_Table[cnt]];
}
memcpy(data,temp,64);
return 0;
}
int DES_E_Transform(char data[48]){
int cnt;
char temp[48];
for(cnt = 0; cnt < 48; cnt++){
temp[cnt] = data[E_Table[cnt]];
}
memcpy(data,temp,48);
return 0;
}
int DES_P_Transform(char data[32]){
int cnt;
char temp[32];
for(cnt = 0; cnt < 32; cnt++){
temp[cnt] = data[P_Table[cnt]];
}
memcpy(data,temp,32);
return 0;
}
int DES_XOR(char R[48], char L[48] ,int count){
int cnt;
for(cnt = 0; cnt < count; cnt++){
R[cnt] ^= L[cnt];
}
return 0;
}
int DES_SBOX(char data[48]){
int cnt;
int line,row,output;
int cur1,cur2;
for(cnt = 0; cnt < 8; cnt++){
cur1 = cnt*6;
cur2 = cnt<<2;
line = (data[cur1]<<1) + data[cur1+5];
row = (data[cur1+1]<<3) + (data[cur1+2]<<2)
+ (data[cur1+3]<<1) + data[cur1+4];
output = S[cnt][line][row];
data[cur2] = (output&0X08)>>3;
data[cur2+1] = (output&0X04)>>2;
data[cur2+2] = (output&0X02)>>1;
data[cur2+3] = output&0x01;
}
return 0;
}
int DES_Swap(char left[32], char right[32]){
char temp[32];
memcpy(temp,left,32);
memcpy(left,right,32);
memcpy(right,temp,32);
return 0;
}
int DES_EncryptBlock(char plainBlock[8], char subKeys[16][48], char cipherBlock[8]){
char plainBits[64];
char copyRight[48];
int cnt;
Char8ToBit64(plainBlock,plainBits);
DES_IP_Transform(plainBits);
for(cnt = 0; cnt < 16; cnt++){
memcpy(copyRight,plainBits+32,32);
DES_E_Transform(copyRight);
DES_XOR(copyRight,subKeys[cnt],48);
DES_SBOX(copyRight);
DES_P_Transform(copyRight);
DES_XOR(plainBits,copyRight,32);
if(cnt != 15){
DES_Swap(plainBits,plainBits+32);
}
}
DES_IP_1_Transform(plainBits);
Bit64ToChar8(plainBits,cipherBlock);
return 0;
}
小灰狼 2015-07-20
- 打赏
- 举报
前三楼都是楼主，大侠
因为一个帖子不能超过10000个字，所以分三帖了
赵4老师 2015-07-20
- 打赏
- 举报
那就用hemowolf的代码。
小灰狼 2015-07-20
- 打赏
- 举报
楼上的大侠，你的代码是要调用WINDOWS的函数吧
我的终端运行的不是Windows啊
