unit_psw.h

本系统里面包含数据库（SQL SERVER2000）

String SimCry(String SrcStr) //加密
{
  String pass=SrcStr;
  int j=pass.Length();
  char dM,eM;
  String fM="";
  for(int i=1;i<=j;i++)
  {
    dM=pass[i];
    eM=(dM-i);
    fM=fM + eM;
  }
  return fM;
}
String SimEnCry(String ESrcStr) //解密
{
  String pass=ESrcStr;
  int j=pass.Length();
  char dM,eM;
  String fM="";
  for(int i=1;i<=j;i++)
  {
    dM=pass[i];
    eM=(dM+i);
    fM=fM + eM;
  }
  return fM;
}