加密解密程序

原创 2005年05月27日 15:58:00

下面的程序已经在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 加密解密程序

加密解密程序---------------------------------------------------------------------------------------------...
  • boovo
  • boovo
  • 2006年05月18日 18:47
  • 1676

加密解密程序

加密解密程序  下面的程序已经在Bcb5下通过#include #pragma hdrstop#include "Unit1.h"//---------------------------------...
  • JacksonLiang
  • JacksonLiang
  • 2007年11月23日 19:40
  • 847

【.Net码农】Asp.Net 加密解密

http://www.cnblogs.com/Gavinzhao/archive/2011/03/23/1993059.html #region DES加...
  • CrackLibby
  • CrackLibby
  • 2016年03月18日 14:40
  • 904

C#常用字符串加密解密方法封装代码

//方法一 //须添加对System.Web的引用 //using System.Web.Security; /// /// SHA1加密字符串 /// /// 源字符串 /// 加密后的字符串 ...
  • u012320991
  • u012320991
  • 2015年11月10日 16:58
  • 529

加密与解密:一个简单的C语言示例

写在前面 做大一年级的导生,碰巧一个同学问了一个C语言程序设计的题目。说是怎么都弄不对。我看了看,正好也是三年前我碰到的题目,仿佛还噙着旧日时光的泪痕。特此将题目与我的解法奉上,以祭奠那段逝去的时光...
  • Meditator_hkx
  • Meditator_hkx
  • 2015年10月27日 11:14
  • 11794

c# des 加密 解密

1.DES算法入口参数 DES算法的入口参数有三个:Key、Data、Mode。其中Key为7个字节共56位,是DES算法的工作密钥;Data为8个字节64位,是要被加密或被解密的数据;Mo...
  • ycl295644
  • ycl295644
  • 2015年06月25日 19:30
  • 966

C++ 简单的文件加密和解密 实例

一段 文件加密的程序,看完之后,明白了它所谓的文件加密,其实原理相当简单:         即是按字节 或 按位 读取一个要加密的文件中的数据,然后与我们自己输入的密码做一些 算法操作,将...
  • educast
  • educast
  • 2014年08月21日 12:57
  • 3830

【Java】实现加密与解密

关于特别字段加密和解密 import java.io.*; /** * 加密解密 * @author Administrator */ public class En...
  • hj7jay
  • hj7jay
  • 2016年09月05日 22:11
  • 1694

【加密解密】-AES加密解密实现

先看实现效果,测试代码如下:package org.iti.algorithm;public class AESDemo { public static void main(String[] a...
  • tailyou
  • tailyou
  • 2015年08月27日 14:24
  • 3168

AES加密解密程序。

UI代码:
  • intotheland
  • intotheland
  • 2011年10月26日 16:20
  • 303
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:加密解密程序
举报原因:
原因补充:

(最多只允许输入30个字)