加密解密程序
来源:互联网 发布:经济学的书 知乎 编辑:程序博客网 时间:2024/03/29 08:17
下面的程序已经在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公钥私钥加密解密程序
- 文件加密解密小程序
- 小语
- 使用java.math.BigDecimal
- test
- 迷茫
- 批处理文件,窗口中显示
- 加密解密程序
- 浙大教授郑强对科技和教育的反思
- 揭密:美军超级黑客特种部队
- aspdotnet connection Sql server
- aspdotnet connection database compare
- bolg申请成功 发文庆贺
- python Database API Specification v2.0
- asp.net connection database compare bewteen ado.net Managed provider to ado.net sql managed provider
- TOCMAT的web.xml详解(转贴)