modify.pas

关于DEPHI7.0的人力资源信息管理系统源代码

unit modify;

interface

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

type
  TFormModify = class(TForm)
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    BTNClose: TBitBtn;
    BTNEnter: TBitBtn;
    CmbUser: TComboBox;
  private
    { Private declarations }
    procedure  LoadData ; // 从文件载入
    procedure  SaveData;  // 保存到文件
  public
    { Public declarations }
  end;
   function DecryptStr(const S: string; Key: Word): string;
   function EncryptStr(const S: string; Key: Word): string;
var
  FormModify: TFormModify;

implementation

{$R *.dfm}

type
 Tbm= record
   Usename: String[8];   //用户名
   Pass: String[10];     // 密码
   end;

const
 C1Key = 12674; //   C1 = 52845;
 C2Key = 35891; //   C2 = 22719;

var
 bm: Tbm;
 FileHandle: Integer;

function DecryptStr(const S: string; Key: Word): string;
var    // 解密
 I : Integer;
begin
 Result := S;
 for I := 1 to Length(S) do
  begin
   Result[I] := Char(Byte(S[I]) xor (Key shr 8));
   Key := (Byte(S[I]) + Key) * C1Key + C2Key;
  end;
end;

function EncryptStr(const S: string; Key: Word): string;
var     // 加密
 I : Integer;
begin
 Result := S;
 for I := 1 to Length(S) do
  begin
   Result[I] := Char(Byte(S[I]) xor (Key shr 8));
   Key := (Byte(Result[I]) + Key) * C1Key + C2Key;
  end;
end;

procedure  TFormModify.SaveData; // 保存到文件
begin
 FileHandle:=FileCreate('.\Data.dat');
 with bm do begin
  Usename := Edit2.Text ;
  Pass := EncryptStr(edit3.text,123);
  end;
 FileWrite(FileHandle,bm,Sizeof(bm));
 FileClose(fileHandle);
end;

procedure TFormModify.LoadData ; // 从文件载入
begin
 FileHandle:=FileOpen('.\Data.dat',fmOpenread or fmShareDenyNone);
 FileRead(FileHandle,bm,Sizeof(bm));
 with Bm do begin
  Edit2.Text:=Usename ;
  edit3.Text:=DecryptStr(Pass,123);
  end;
 fileclose(fileHandle);
end;
end.