delphi生成一个随机序列号

最新推荐文章于 2023-07-18 15:19:48 发布
最新推荐文章于 2023-07-18 15:19:48 发布
阅读量1k 收藏 1
点赞数 
var
  FGuid: TGUID;
begin
  CreateGUID(FGuid);
  edit1.Text := GUIDToString(FGuid);
  edit1.Text := edit1.Text + ' ' + IntToStr(Length(edit1.Text));
  edit1.Text := Copy(GUIDToString(FGuid), 2, 36);
end;


测试通过
大鹏0329
关注
delphi 7序列号注册码生成器
11-28
delphi 7序列号注册码生成器 欢迎大家下载啊
Delphi获取CPU/硬盘序列号生成注册机、注册码实例.rar
07-10
Delphi注册机及生成注册码程序实例，根据机器标识生成注册码，在这里，作者提供了获得CPU序列号和网卡Mac地址的方法： 　　1.Delphi中可这个控件或这个动态库。控件提供了两个属性，MacAddress和CPUSerialNumber。 　　2.Delphi外的语言，请使用这个动态库。动态库提供了两个函数， GetCPUSerialNumber和GetMacAddress，这些函数和控件，在win2000和winXP中测试通过，在多CPU、多硬盘、使用了并列存储技术的大型服务器上，也测试通过。
Delphi随机生成程序序列号..rar
05-02
Delphi随机生成程序序列号..rar
关于用Delphi 来生成机器码及用MD5算法生成序列号的方法
AD的程序开发博客
10-20 3858
关于用Delphi 来生成机器码及用MD5算法生成序列号的方法    先说明，这里的机器码我取的是网卡MAC,硬盘序列号及CPU序列号的合并字符串(代码是有选择性的粘贴)方法如下:type  TVolumeInformation = record  VolumeName                    : string;         //卷标  VolumeSerialN
delphi生成随机数
06-18
delphi产生随机数2009-07-27 18:58//用delphi产生不重复的随机数 ****************************************************************************************** var aa : array[1..36] of string[2]; //aa数组为需要随机排列的数组，{先把1..36按顺序给aa数组赋值} procedure TForm1.FormCreate(Sender: TObject); var i:integer; begin for i:=1 to 36 do begin aa[i]:=inttostr(i); bb[i]:=inttostr(i); end; end; {随机进行排列} procedure TForm1.Button1Click(Sender: TObject); var i,j:integer; swapa:string[2]; begin randomize; //随机数初始化*一定要有，不然下次运行时候产生的随机数仍然和这次相同* for i:=1 to 36 do begin j:=1+random(36); swapa:=aa[i]; aa[i]:=aa[j]; aa[j]:=swapa; end; //由此得到不重复的随机排列数字 ***************************************************************************************** 如何产生34-456之间的随机数 Randomize; 34+Random(456-34+1); ×××××××××××××××××××//下面是扫雷游戏的一个编法 procedure TForm1.Button1Click(Sender:TObject); begin Randomize; Memo1.Lines.Add(IntToStr(Random(20))); end; ×××××××××××× ***************************************************************************************** 随机数相关的几个函数： 1、RandSeed;//随时机数发生的“种子”。如果不赋值那么每次执行产生的随机数列是一样的。 所以该值必须每次调用均应是不同值。 2、Randomize;//用当前机器时间作为“种子”初始化随机数发生器。 3、Random() ；//由“种子”初始化的随机数出发，开始产生随机数序列 但是Delphi中的Random()产生的是伪随机数，也就是说，程序的两次运行，Random()产生的随机数是一样的。 先运行一下Randomize,再Random就是真正的随机数了 即： Randomize //初始化随机数发生器 Random() ********************************************************************************************* delphi 如何产生不重复随机数 pascal里的随机数 随机数是指理论上没有规律可循、在指定范围内每个数的出现几率相等、无法根据之前的数来预测下一个数的数列。一般随机数生成器的基本原理是：首先初始化一个随机种子，其初始值可以是任意的整数；在每次获取随机数时，以随机种子为基础进行某种特殊的运算，获得一个随机数并返回之，然后再对随机种子进行某种运算，改变随机种子的值。这样，就可以生成许多比较随机的数，但同一个初始值的随机种子将会生成完全相同的随机数列。 Pascal的System单元提供了两个与随机数有关的子程序：Randomize和Random。 Randomize过程用于初始化随机种子，其初始值取决于当前的系统时钟。 Random函数用于获取随机数 它有两种调用形式： Random，返回一个0到1之间（不包括1）的随机实数； Random(N)，返回0至N之间（不包括N)的随机整数，N为Word类型整数。 另外，System单元中随机种子变量的标识符为RandSeed，你也可以手动修改它。随机数在信息学奥林匹克中可用于随机化搜索、穷举等算法，以优化其性能，也可用于在快速排序中选择关键数，以使其快速排序算法的最坏情况没有固定的相应数列。如果你希望使用了随机数的程序对同一个输入数据能有恒定的输出结果，可以设置RandSeed为一个定值。 ************************************************************************************************* 一个变态小算法 ******************************* 比较耗费机时，如果产生的数目少，就不要用这个算法了。 计算的是在一个范围内（如1－1000），随机抽取n个不相等的随机数。我的思想就是先定义一个用来存放的数组（这当然是必须的啦，废话），然后定义了一个二维数组（感觉很浪费空间），这个二维数组是用来存放已经生成随机数的范围，当然不是随意存放了，要按照自然顺序，但这还不必要定义二维的。二维主要是存放一个范围，即某一列的第一行存放的是范围的小值，而第二行存放的是范围的大值。这样新生成的随机数肯定是在范围之外的，因为范围是已生成随机数的范围啊。这样，每次取随机数时，先随机抽取在某两个范围数组值之间，再在这两个范围数组值之间取随机数。基本上就是这样了。 public class random { int count=500; //个数 int min=1; //最小值 int max=1000; //最大值 int[] r=new int[count]; //随机数存储数组 int[][] k=new int[2][count+2]; //存储范围数组，用于判断范围值 //一维数组用来存放范围的小值，二维用来存放大值 int l=0; //存储空间大小 public random() //初始化范围 {k[0][0]=min-1; k[1][0]=min-1; k[0][2]=max+1; k[1][2]=max+1; l=3; } public int ran(){ //来一个可以制造随机整数的东西 return (int)(Math.random()*1000000000); } public void p(int x,int c) //用来比较存储数组 { for(int i=0;i<l;i++){ if(x<k[0][i]){ //小于当前值时插入，数组是按自然顺序存储的 //如果生成的随机数与当前值的偏差为1，与当前值合并 if(k[0][i]-x==1){ k[0][i]=x; if (k[0][i]-k[1][i-1]==1) //如果与前一个范围值的最大值的值差为1与前一个值合并 {k[1][i-1]=k[1][i]; move(l-1,i); l--;} break;} //如果与但前范围值差大于1 else{ for(int j=l;j>i;j--){ //后移数组为插入值留个位置 k[0][j]=k[0][j-1]; k[1][j]=k[1][j-1]; } k[0][i]=x; //插入值 k[1][i]=x; l++; if (k[0][i]-k[1][i-1]==1) //如果插入值与前一个范围值相差1，则与前一个值合并 {k[1][i-1]=k[1][i]; move(l-1,i); l--;} break; }} } } public void move(int m,int n) //与前一个范围值合并的函数 { for(int j=n;j<m;j++){ k[0][j]=k[0][j+1]; k[1][j]=k[1][j+1];} k[0][m]=0; k[0][m]=0; } public void r(){ //生成随机数的主函数 r[0]=ran()%max+min; //插入第一个值 if(r0==1) k[1][0]=r[0]; else{ k[0][1]=r[0]; k[1][1]=r[0];} for(int i=1;i<count;i++){ int z; if(l>2) z=ran()%(l-2); //判断有多少个空隙，就是有多少个范围，然后随机选取一个 else z=0; r[i]=ran2(k[0][z+1],k[1][z]); //在选取的范围中制造随机数 p(r[i],i); } } public int ran2(int x,int y){ //在固定范围内制造随机数 int m=x-y; m=ran()%(m-1); return m+y+1; } /*public static void main(String[] args) { random rr=new random(); rr.r(); for(int i=0;i<rr.count;i++) }*/ }
Delphi2010序列号生成器免费分享
在Delphi 2010中，可以使用内置的函数或类库生成随机序列号。例如，`Random`函数可以用来生成随机数，进而形成特定格式的序列号。 ```delphi function GenerateRandomSerial: string; var I: Integer; Serial...
Delphi原代码实现：自定义序列号生成器
标题中提到的“随机序列号发生器”指向一个软件程序，其主要功能是生成指定长度的序列号，并且允许用户对生成的序列号进行格式化。这里的序列号通常是指一系列随机生成的数字或字符，用于软件授权、产品激活或身份...
高效随机序列号生成工具及其格式化方法
综合以上信息，我们可以推测出这个随机序列号发生器可能是用Delphi编写的，具有生成随机序列号并允许用户自定义其格式的系统级工具。代码具备良好的可读性，允许后续开发人员进行维护和功能扩展。使用该工具可以为...
随机序列号发生器（原代码）
03-16
这个软件可以产生指定长度的序列号，并且可以格式化该序列号。是Delphi的原代码。
delphi6-7随机数
最新发布
3d173的博客
07-18 675
我们都知道在Delphi中获取随机数的函数是Random()，比如我们要取得1-100的随机数，一般是使用Random(100)+1，但使用这个函数取的随机数，其实只是个伪随机数，这是因为Random函数是根据随机种子采用固定算法取得的随机数，在程序运行中会导致每次运行会取得与上次运行相同的数字。但这里需注意的是，由于弧度取正弦，这个值与理论上-1<=x<=1还是有差别的，可以说其值在0<｜x|<1范围内。//Random(100)所取得的值为>=0 而<100的值。一、常用的获取真正随机数的代码。
delphi id 生成
02-13
delphi 16位id 生成
Delphi 随机打乱文本行内容.rar
07-10
Delphi 随机打乱文本行内容，将一个文本文件的每一行打乱显示顺序，同时还实现了让指定窗口支持文件拖放，得到拖放文件的个数，得到得到文件的名称，随机打乱文本文件的每一行。操作步骤：按照窗口中的提示即可操作完成：先选择需要打乱的文件，然后选择保存的路径，点击“打乱”按钮即可，在操作后可查看打乱的文件效果。
delphi随即密码表生成
11-11
生成256字节的数组，分别为两个128字节的数组 进行随机交换字节顺序，来生成密码表
Delphi 随机内存加密随机密钥生成实例.rar
07-10
Delphi 随机内存加密实例代码，生成随机的加密密钥，主要是在内存中运行数据压缩、数据加密的代码，程序是利用随机生成的加密密钥，来生成每次都不一样的EXE文件，所有“加壳”的EXE程序运行前先在内存中解密->解压->运行(不支持DLL和服务程序加壳--稍微修改一下就支持了，呵呵)，现在有一个疑问就是不知道为什么数据加密后压缩比这么小？？
生成随机密码密钥
03-28
可以生成指定长度的随机字符的密码或密钥，避免使用一些弱密码，特别是http的API接口。
[delphi]小程序一例，自动生成随机数。
独步清风
03-06 2107
unit Unit1; interface uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls; type   TForm1 = class(TForm)     Label2: TLabel;     Label3:
在Delphi中获得唯一32位长字符串
wozengcong的专栏
02-20 2038
function GetGUID: string; var vGUID: TGUID; vTemp:string; begin if S_OK = CreateGuid(vGUID) then begin vTemp := GUIDToString(vGUID); //去掉字符串中的{,-字符 vTemp:=StringReplace(vTemp,
生成随机密码
ZhangGuozhong's Blog
11-28 145
    /**      * 生成随机密码      * @param length      * @return      */     public static String getRandomString(int length) {         StringBuffer buffer = new StringBuffer("0123456789abcdefghijklmnopqrst...
Delphi自动生成编码
qq_18932003的博客
10-16 674
原文地址：Delphi自动生成编码作者：Halu小红 unit CreateOrderNum; interface uses Windows,SysUtils,ADODB,StrUtils,Messages,Dialogs; Function Create_OrderNum(BH_FieldName,TableName,RQ_FieldName,orderFirst:string):...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值