(

string passwd,string custcode,Integer int)

Description:

Returns encrypted password.


Parameters:
passwd	Password
custcode	Customer code
int	only 0 used

updating procedure SaveNewPassword()
begin
  record CUVc CUr;
  record CUVc oldCUr;
  string 255 tstr;

  CUr.Code = CurrentCust;
  if (ReadFirstMain(CUr,1,true)) then begin
    RecordCopy(oldCUr,CUr);
    tstr = Random(11111,91111);
    CUr.Password = CalcPassword(tstr,CUr.Code,0);
    if (RecordUpdate(oldCUr,CUr,true)==0) then begin
    end;
  end;
  return;
end;


Related topics:

««