• 全部
  • 语言基础/算法/系统设计
  • 数据库相关
  • 图形处理/多媒体
  • 网络通信/分布式开发
  • VCL组件开发及应用
  • Windows SDK/API
  • 问答

密文算法推薦。因愛好在嘗試對數庫進行加密,密碼算法難求?進來看看衆位看官!!!

Nizvoo 2001-10-14 12:37:54
密文算法推薦。因愛好在嘗試對數庫進行加密,密碼算法難求?進來看看衆位看官!!!

請將算法思想或是鏈接地址貼在這裏,不勝感激!!!
...全文
130 点赞 收藏 5
写回复
5 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
yxjjx 2001-10-15
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ExtCtrls;

type
Tfrm_pwd = class(TForm)
Panel1: TPanel;
Edit1: TEdit;
Edit2: TEdit;
Button1: TButton;
Button2: TButton;
Edit3: TEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
frm_pwd: Tfrm_pwd;
const
StartKey = 1976; {Start default key}
MultKey = 1977; {Mult default key}
AddKey = 1978; {Add default key}

function Encrypt(const InString:string; StartKey,MultKey,AddKey:Integer): string;
function Decrypt(const InString:string; StartKey,MultKey,AddKey:Integer): string;


implementation

{$R *.DFM}
function Encrypt(const InString:string; StartKey,MultKey,AddKey:Integer): string; //加密
var
I : Byte;
begin
Result := '';
for I := 1 to Length(InString) do
begin
Result := Result + CHAR(Byte(InString[I]) xor (StartKey shr 8));
StartKey := (Byte(Result[I]) + StartKey) * MultKey + AddKey;
end;
end;
{*******************************************************
* Standard Decryption algorithm - Copied from Borland *
*******************************************************}
function Decrypt(const InString:string; StartKey,MultKey,AddKey:Integer): string; //解密
var
I : Byte;
begin
Result := '';
for I := 1 to Length(InString) do
begin
Result := Result + CHAR(Byte(InString[I]) xor (StartKey shr 8));
StartKey := (Byte(InString[I]) + StartKey) * MultKey + AddKey;
end;
end;


procedure Tfrm_pwd.Button1Click(Sender: TObject);
begin
edit2.Text:=Decrypt(edit3.text,StartKey,MultKey,AddKey);
//edit2.Text:=encrypt(edit3.text,StartKey,MultKey,AddKey);
end;

procedure Tfrm_pwd.Button2Click(Sender: TObject);
begin
edit3.text:=Encrypt(edit1.text,StartKey,MultKey,AddKey);
end;

end.
回复
Nizvoo 2001-10-15
快来呀
回复
Nizvoo 2001-10-14
本人自己UP
回复
Nizvoo 2001-10-14
又下了。
回复
相关推荐
GitHub超 7.9 万星,最全Python入门算法
点上方蓝字人工智能算法与Python大数据获取更多干货右上方···设为星标★,第一时间获取资源仅做学术分享,如有侵权,联系删除转载于 :Github,新智元(AI_era)整理今天...
【067期】面试问:说说常见的加密算法、原理、优缺点及用途?
>>号外:关注“Java精选”公众号,回复“面试资料”,免费领取资料!“Java精选面试题”小程序,3000+ 道面试题在线刷,最新、最全 Java 面试题!一、概述安全领域...
Github 标星 3w+,热榜第一,实现所有算法
点击“开发者技术前线”,选择“星标????”在看|星标|留言, 真爱学会了Python基础知识,想进阶一下,那就来点算法吧!毕竟编程语言只是工具,结构算法才是灵魂。新手如何入门Pyth...
只需5分钟完这篇 HTTPS,去阿里面试和面试扯皮就没问题了!
下面我们来一起学习一下 HTTPS ,首先问你一个问题,为...我突然有个想法,为什么我们面试的时候需要回答标准答案呢?为什么我们不说出我们自己的想法和见解,却要记住一些所谓的标准回答呢?技术还有正确与否吗? ... ... ...
收藏!最全的可视化学入门算法教程(Python实现)
点击“Python编程与实战”,选择“置顶公众号”第一时间获取 Python 技术干货!新智元报道 来源:Github,编辑:元子【导读】Github上超过7.9万星标:最全算法及P...
只需 5 分钟完这篇 HTTPS,去阿里面试和面试扯皮就没问题了!
点击上方好好学java,选择星标公众号重磅资讯、干货,第一时间送达 今日推荐:牛人 20000 字的 Spring Cloud 总结,太硬核了~作者:肖萧 链接:https:...
字符编码发展史和密码算法那些事儿
从《易经》开始: 宇宙万物,道法阴阳,阴阳未分为混沌,混沌即无极,演而有序,化为太极。 易有太极,是生两仪,两仪生四象,四象演八卦,八卦演万物。 阴阳术创造了一个世界,炊烟袅袅,鸟语花香。...
RSA算法详解
文章目录什么是RSARSA的加密RSA的解密N,E,D的生成1....非对称加密算法也叫公钥密码算法,通过生成的公私钥来对明文密文进行加密解密。 RSA的名字是由它的三个开发者Ron Rivest, Adi Shamir和 Leo...
AES对称加密算法原理
原著:James McCaffrey  翻译:小刀人   ...原文出处:MSDN Magazine November 2003 (Encrypt It) ...本文假设你熟悉 C# 和 (bit)操作。  摘要   AES(The Advanced Encryption Standa
密码算法学习
随着信息化和数字化社会的发展,人们对信息安全和保密的重要性认识不断提高,于是1997年,美国国家标准局公布实施了"美国数据加密标准(DES)",民间力量开始全面介入密码学的研究和应用中,采用的加密算法有...
数据结构与算法算法
文章目录大O算法时间复杂度空间复杂度 大O算法 时间复杂度 长度为n的数组中: 直接通过下标去访问元素,时间复杂度为O(1)。 需要遍历查找元素的时候,时间复杂度为O(n)。 需要遍历二维数组的时候,时间复杂度为O(n...
完这篇 HTTPS,和面试扯皮就没问题了
转载于@程序员cxuan ... 下面我们来一起学习一下 HTTPS ,首先...我突然有个想法,为什么我们面试的时候需要回答标准答案呢?为什么我们不说出我们自己的想法和见解,却要记住一些所谓的标准回答呢?技术还有正确与否吗? ...
AES对称加密算法原理 - guo2777的专栏 - CSDN博客
加密它:用新的高级加密标准(AES)保持你的数据安全 原著:James McCaffrey 翻译:小刀人 原文出处:MSDN Magazine November 2003 (Encrypt It) 本文的代码下载:msdnmag200311AES.exe (143KB) 本文假设你熟悉 C# ...
AES算法学习总结
AES加密算法研究分析 AES(The Advanced Encryption Standard)是美国国家标准与技术研究所用于加密电子数据的规范。它被预期能成为人们公认的加密包括金融、电信和政府数字信息的方法。本文展示了 AES的概貌并...
RSA算法之实现篇(C++版)
序言 RSA中的密钥长度指的是公钥的长度,目前主流的公钥长度为1024、2048以及4096。...本文旨在介绍RSA算法的实现流程,不会对于涉及到的每一个算法进行深入介绍,如果需要进一步了解的可以参考本博客的...
java加密与解密(二)
七、 高等数据加密——非对称加密算法 我们可能没有瑞士苏黎世银行存入巨额资产的机会,但相信大多数人都电影中见到这样一组镜头:户主带着自己的钥匙来到银行,要求取出自己寄放的物品。银行工作人员验明户主...
非对称加密(2)非对称加密算法
非对称加密(2)非对称加密算法 基本流程很简单,那么公钥加密,私钥解密的算法原理到底是什么呢?本节简要阐述RSA算法、DSA算法、ECC算法、Diffie-Hellman算法的基本原理,其中涉及很多数论、离散数学以及解析...
winform常用控件
主要包含内容: 第一讲 课程简介 第二讲 Windows窗体-创建和介绍 第三讲 Windows窗体-属性 第四讲 Windows窗体-方法和事件 第五讲 Windows窗体-MDI窗体和子窗体 第六讲 控件的相关操作 第七讲 Label控件显示世界你好 第八讲Button控件 第九讲TextBox控件 第十讲RichTextBox控件 第十一讲ComboBox控件 等 学会winform常用控件基本使用
SSIM 指标说明 文章
介绍 SSIM 图像评价指标和由来,比较一般的图像质量评价标准,比较ssim 和尖峰信噪比的差异,等等,是英文资料
自己动手从0到1写嵌入式操作系统
这不是rtos源码分析的课程,而是为初级的同学设计,从基础原理讲师,一步步不断迭代设计rtos的课程! 用不到【2000行代码,汇编代码仅18行】(不含注释)实现一个精巧的可以运行在ARM Cortex-M内核芯片上的RTOS! 该RTOS功能与ucos类似,具体实现不同。学习之后,再去学习ucos之类的系统将没有什么问题。 1、系统地掌握RTOS的工作原理及其应用; 2、用更短的时间、更少的精力,学习RTOS相关知识; 3、设计出一个具备自己特色的RTOS。将其用作毕业设计、找工作的敲门砖; 4、提升技术水平,为升职加薪跳槽提供资本。
STM32Cube和HAL库使用初体验-第5季第2部分
本季课程主要讲解STM32的全新开发方式:使用STM32CubeMX工具做图形化配置,自动生成初始化代码;添加各种中间件;使用HAL库和LL库来操作外设。结合朱老师物联网大讲堂专为nbiot物联网开发而设计的NB476开发板,本季课程能够让大家彻底掌握物联网时代以nbiot和低功耗STM32L4单片机为代表的典型开发模式,实战意义非常重要。 本课程是《朱有鹏老师单片机完全学习系列课程》第5季第2个课程,本部分以时钟和GPIO模块为案例来讲解STM32CubeMX工具加HAL库加MDK5这套开发体系的流程、技术细节,目标是让大家真正入门HAL库方式开发STM32单片机。后续再接着讲其他更复杂外设。
Linux系统管理员/网络管理员(PDF版)
两本非常好的Linux系统学习的书 系统管理主要介绍Linux系统的结构、管理、命令等 网络管理主要从网络协议角度出发阐述Linux的网络功能
STM32F103中文数据手册
这个里面包含了STM32F103的各种型号的数据手册,方面理解
QRegExp的详细解析
引言 正则表达式(regular expression)就是用一个“字符串”来描述一个特征,然后去验证另一个“字符串”是否符合这个特征。比如 表达式“ab+” 描述的特征是“一个 'a' 和 任意个 'b' ”,那么 'ab', 'abb', 'abbbbbbbbbb' 都符合这个特征。 正则表达式可以用来:(1)验证字符串是否符合指定特征,比如验证是否是合法的邮件地址。(2)用来查找字符串,从一个长的文本中查找符合指定特征的字符串,比查找固定字符串更加灵活方便。(3)用来替换,比普通的替换更强大。
WPF中用于嵌入其他进程窗口的自定义控件(AppContainer)
WPF中用于嵌入其他进程窗口的自定义控件(AppContainer) 具体见博文:http://blog.csdn.net/zzzwwwppp11199988899/article/details/78131292
MSP430_RTC模块学习总结
这是自己在学习MSP430时,对RTC模块的总结,希望可以帮助刚入门者
CIET-2019-0504 数据中心运维管理人才标准.pdf
数据中心运维管理,人才标准,欢迎查看共同学习。
内核的启动过程分析-uboot和系统移植第16部分
本课程为linux kernel移植的第3部分,主要内容是linux内核启动流程的代码分析和细节解读。本部分的学习目标是对linux内核的启动和构建过程有个清晰理解,对内核启动后的状态有清晰认识,从而能够帮助我们分析和解决内核移植过程中的问题。 本课程为uboot和系统移植阶段的第16部分,适合学习了uboot移植,需要继续学习ulinux内核移植的同学。
《高效能人士的七个习惯》(英文版).pdf
《高效能人士的七个习惯》(英文版).pdf很不错的一本书~~~~~~~~~~~
朴素贝叶斯算法做文本分类-代码
https://blog.csdn.net/zzZ_CMing/article/details/89478436 朴素贝叶斯算法做文本分类,用的是谭松波酒店语料。
发帖
Delphi
创建于2007-08-02

4875

社区成员

Delphi 开发及应用
申请成为版主
帖子事件
创建了帖子
2001-10-14 12:37
社区公告
暂无公告