忧郁的海风

欲将心事付瑶琴 知音少 弦断有谁听?

加密解密程序

下面的程序已经在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);
}
//-----------------------------------------------------------------

阅读更多
个人分类: C++(BCB)
想对作者说点什么? 我来说一句

加密解密程序加密解密

2009年04月19日 520B 下载

3DES 加密解密程序

2010年04月20日 2.16MB 下载

加密解密 (利用异或运算)

2006年02月23日 174KB 下载

C#实现简单加解密程序源码

2016年04月30日 349KB 下载

MFC编的DES加密解密程序

2009年04月23日 277KB 下载

vb设计的加密解密程序

2011年05月15日 6KB 下载

C++加密解密程序

2014年03月31日 152KB 下载

没有更多推荐了,返回首页

不良信息举报

加密解密程序

最多只允许输入30个字

加入CSDN,享受更精准的内容推荐,与500万程序员共同成长!
关闭
关闭