Delphi5实现加密程序

效果图

平面效果图

实现“确认按钮”和“加密”

//点击确认输入按钮
procedure TForm1.btn1Click(Sender: TObject);
//加密部分
var
    passwd_2,passwd_3:string;

begin
    passwd_2:=edt1.Text;
    Delete(passwd_2,3,2);
    passwd_3:=mima;
    Delete(passwd_3,3,2);
    if(passwd_2=passwd_3) then
        MessageBox(Handle,'密码正确','恭喜',MB_OK)
    else
      begin
        if(flag>1) then
          begin
            MessageBox(Handle,'密码错误','警告',MB_OK or MB_ICONSTOP);
            flag:=flag-1;
            lbl1.caption:='请输入密码，您还有'+IntToStr(flag) +'次机会';
          end
        else
          begin
            MessageBox(Handle,'密码错误,没有机会了','警告',MB_OK or MB_ICONSTOP);
            close;
          end;
      end;
end;

实现“显示密码”

//点击显示密码
procedure TForm1.chk1Click(Sender: TObject);
begin
  if (ShowPasswd=false) then
    begin
       edt1.PasswordChar:=#0;
       ShowPasswd:=true;
    end
  else
    begin
        edt1.PasswordChar:='*';
        ShowPasswd:=false;
    end;
end;

录制gif图

今天发现了一个简易的录制gif动图的方法。
（1）用QQ的录屏，录制后是mp4文件。

（2）使用免费的在线转换工具，将mp4文件转换成gif文件。