加密解密程序
来源:互联网 发布:淘宝浏览单平台有哪个 编辑:程序博客网 时间:2024/04/25 17:48
下面的程序已经在Bcb5下通过
#include
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
AnsiString PassWord(AnsiString cz0003_6,int cz0003_a)
{
// 字符串加解密处理函数
// 参数说明:cz0003_6 --- 待处理字符串
// cz0003_a --- 处理方式(1.加密;-1.解密)
AnsiString cz0003_0,cz0003_1,cz0003_2,cz0003_3,cz0003_4,cz0003_8;
int cz0003_7,cz0003_5,cz0003_9;
AnsiString s1,s2;
cz0003_0="西藏大昌实业集团";
cz0003_1="大昌网络有限公司";
cz0003_2="旅游产品分销系统";
cz0003_3="版本 Ver 1.0";
cz0003_4=cz0003_0+cz0003_1; // 加密字符串
cz0003_5=cz0003_4.Length(); // 加密字符串长度
cz0003_8=""; // 加密后的字符串
cz0003_9=0;
if(cz0003_a==-1)
{
for(cz0003_7=1;cz0003_7<=cz0003_6.Length();cz0003_7++)
{
//s1:=copy(cz0003_6,cz0003_7,1);
s1 = cz0003_6.SubString(cz0003_7,1);
//s2:=copy(cz0003_4,(cz0003_7-1) mod cz0003_5+1,1);
s2 = cz0003_4.SubString((cz0003_7-1) % cz0003_5+1,1);
cz0003_9=int(s1[1])-int(s2[1]);
if(cz0003_9<0)
cz0003_8=cz0003_8+String(char(cz0003_9+256));
else
cz0003_8=cz0003_8+String(char(cz0003_9));
}
}else{ // 加运算
for(cz0003_7=1;cz0003_7<=cz0003_6.Length();cz0003_7++)
{
s1=cz0003_6.SubString(cz0003_7,1);
s2=cz0003_4.SubString((cz0003_7-1) % cz0003_5+1,1);
cz0003_9=int(s1[1])+int(s2[1]);
if(cz0003_9>255)
cz0003_8=cz0003_8+String(char(cz0003_9-256));
else
cz0003_8=cz0003_8+String(char(cz0003_9));
}
}
cz0003_6=cz0003_8;
return cz0003_8;
}
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Label1->Caption=PassWord("I love you",1);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
Label1->Caption=PassWord(Label1->Caption,-1);
}
//-----------------------------------------------------------------
- 加密解密程序
- VB 加密解密程序
- 加密解密程序
- 加密解密小程序
- 图片加密解密程序
- asp加密解密程序
- 文件加密解密程序
- 加密解密小程序
- AES加密解密程序。
- 加密解密程序
- DESede加密解密程序(java)
- 自解密加密程序制作
- 简单的加密,解密程序
- 链接字符串加密、解密程序
- 图片加密解密程序2
- java加密 解密 程序实现
- OpenSSL公钥私钥加密解密程序
- 文件加密解密小程序
- n个数求最大值和最小值
- UNICODE,GBK,UTF-8区别
- 2007年77句BBS上最经典的话
- vc中添加新类的方法
- 加快 firefox 启动
- 加密解密程序
- 生日快乐
- MVC架构在Asp.net中的应用和实现
- 于Alpha.beta,RC等版本意义
- PhotoFamily导致U盘一插入就马上打开U盘上所有文件目录
- 让brew程序访问公网
- C++ builder 家用摄像头捕捉图像
- 巨人下半场
- 谈2.0网站初期规划应该考虑的问题