4875
社区成员
- 全部
- 语言基础/算法/系统设计
- 数据库相关
- 图形处理/多媒体
- 网络通信/分布式开发
- VCL组件开发及应用
- Windows SDK/API
- 问答
密文算法推薦。因愛好在嘗試對數庫進行加密，密碼算法難求？進來看看衆位看官！！！
密文算法推薦。因愛好在嘗試對數庫進行加密，密碼算法難求？進來看看衆位看官！！！
請將算法思想或是鏈接地址貼在這裏，不勝感激！！！
請將算法思想或是鏈接地址貼在這裏，不勝感激！！！
...全文
当前发帖距今超过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.
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 朴素贝叶斯算法做文本分类，用的是谭松波酒店语料。
