开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 查看源码
Unit1.pas
资源名称：随机序列号发生器.rar　[点击查看]
上传用户：rick3344
上传日期：2013-02-03
资源大小：225k
文件大小：2k
源码类别：

源码/资料

开发平台：

WINDOWS

Unit1.pas：源码内容
  1. unit Unit1;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, StdCtrls;
  9. type
  10.   TForm1 = class(TForm)
  11.     Button1: TButton;
  12.     Edit1: TEdit;
  13.     Edit2: TEdit;
  14.     Edit3: TEdit;
  15.     Edit4: TEdit;
  16.     Edit5: TEdit;
  17.     Button2: TButton;
  18.     Label1: TLabel;
  19.     Label2: TLabel;
  20.     ComboBox1: TComboBox;
  21.     Label3: TLabel;
  22.     Memo1: TMemo;
  23.     procedure Button1Click(Sender: TObject);
  24.     procedure Button2Click(Sender: TObject);
  25.   private
  26.     { Private declarations }
  27.   public
  28.     { Public declarations }
  29.     function GetString(Number:Integer;MaskStr:String):String;
  30.     function AnserStr(ty:Integer):String;
  31.   end;
  32.   TGetString=Function (Number:Integer):String;
  33.   //function getstring(Num:Integer):String;External 'wfh.dll';
  34. var
  35.   Form1: TForm1;
  37. implementation
  39. {$R *.dfm}
  41. function TForm1.AnserStr(ty:Integer):String;
  42. begin
  44. end;
  46. procedure TForm1.Button1Click(Sender: TObject);
  47. var
  48.   sn:string;
  49.   hInstance:Cardinal;
  50.   GetString:TGetString;
  51. begin
  52.     hInstance:=LoadLibrary('wfh.dll');
  53.     if hInstance<>0 then
  54.     begin
  55.        GetString:=GetProcAddress(hInstance,'GetString');
  56.        Edit5.Text:=GetString(12);
  57.     end;
  59.     freeLibrary(hInstance);
  60. end;
  62. Function TForm1.GetString(Number:Integer;MaskStr:String):string;
  63. var
  64.       SetChar:Array[0..61] of char;
  65.       Temp:Array of char;
  66.       i:Integer;
  67.       tmp:String;
  68. begin
  69.    for i:=0 to 9 do
  70.      SetChar[i]:=chr(i+48);
  71.    for i:=10 to 35 do
  72.      SetChar[i]:=chr(i+55);
  73.    for i:=36 to 61 do
  74.      SetChar[i]:=chr(i+61);
  76.    Randomize();
  77.    SetLength(Temp,number-1);
  79.    for i:=0 to number-1 do
  80.    begin
  81.        tmp:='';
  82.        if length(trim(MaskStr))>=i then
  83.           tmp:=Copy(trim(MaskStr),i+1,1)
  84.        else
  85.           tmp:='';
  86.        if tmp='A' then
  87.           Temp[i]:=SetChar[Random(10000) mod 26 + 10]
  88.        else if tmp='a' then
  89.           Temp[i]:=SetChar[Random(10000) mod 26 + 36]
  90.        else if tmp='#' then
  91.           Temp[i]:=SetChar[Random(10000) mod 52 + 10]
  92.        else if tmp='9' then
  93.           Temp[i]:=SetChar[Random(10000) mod 10]
  94.        else
  95.           Temp[i]:=SetChar[Random(10000) mod 61];
  96.        tmp:='';
  97.    end;
  98.    result:=pchar(Temp);
  99. end;
  102. procedure TForm1.Button2Click(Sender: TObject);
  103. begin
  104.     Edit5.Text:=GetString(20,ComboBox1.Text);
  105.     Edit1.Text:=Copy(Edit5.Text,0,4);
  106.     Edit2.Text:=Copy(Edit5.Text,5,4);
  107.     Edit3.Text:=Copy(Edit5.Text,9,4);
  108.     Edit4.Text:=Copy(Edit5.Text,13,4);
  109. end;
  111. end.