关于口令加密

谁能帮我解释一下下面的代码啊，我菜，看不懂啊
procedure TChgpwdForm.BB_ConfirmClick(Sender: TObject);
var
  ret:integer;
  Size:integer;
  lenf:longint;
  RecordNum:integer;  i : integer;  pmod_pwd            :^ChgPwdStruc;
  buflen              :integer;
  l_buffer              :pointer;
  pPwdACK            : ^ChgPwdACKStruc;
  str                : string;
  success            : char;
  msgTitle:PCHAR;begin
   msgTitle:= PCHAR(ModuleName +'消息');
   if trim(old_pswdedit.Text)='' then
      begin
         application.MessageBox('请输入旧密码',msgTitle,mb_ok or mb_iconinformation);
         exit;
      end;
   if trim(new_pswdedit1.Text) = '' then
      begin
         Application.MessageBox('请输入新密码',msgTitle,mb_ok or mb_iconinformation);
         exit;
      end;
   if trim(new_pswdedit2.Text)= '' then
      begin
         Application.MessageBox('请确认新密码',msgTitle,mb_ok or mb_iconinformation);
         exit;
      end;    if new_pswdedit1.Text<>new_pswdedit2.Text then
      begin
         Application.MessageBox('您两次输入的新密码不一致!',msgTitle,mb_ok or mb_iconinformation);
         new_pswdedit1.SetFocus;
         exit;
      end;
    BufLen:=SizeOf(ChgPwdStruc)+4;    GetMem(l_buffer,BufLen);
    pmod_pwd:=pointer(integer(l_buffer)+4);
    ZeroMemory(l_buffer,BufLen);    StrLCopy(l_buffer,CHGPWD_EVENT,4);
    with Pmod_pwd^ do
      begin
         strpcopy(staffid,gStaffId);
         strpcopy(latn_id,g_Latn);
         strpcopy(o_pswd,old_pswdedit.text);
         strpcopy(n_pswd,new_pswdedit1.Text);
      end;