1,593
社区成员
发帖
与我相关
我的任务
分享
procedure TForm1.Button2Click(Sender: TObject);
var
Dizhi:string;
shijian :string;
Duqu: AnsiString;
Dat:TDateTime;
//ss:TStringStream;
begin
IdHttp1.HandleRedirects := true;
randomize;//
Suiji:=StrToMD5(inttostr(randomrange(1000000,9999999)));
Dizhi:=idhttp1.Get(fuwuqi+'time.asp?random='+Suiji) ;
shijian:=IntToStr(YearOf(StrToDateTime(Dizhi)))+IntToStr(MonthOf(StrToDateTime(Dizhi)))+
IntToStr(DAYOf(StrToDateTime(Dizhi)))+IntToStr(HourOf(StrToDateTime(Dizhi)))+
IntToStr(MinuteOf(StrToDateTime(Dizhi)));//
randomize;//
Suiji:=StrToMD5(inttostr(randomrange(1000000,9999999)));
Duqu:=idhttp1.Get(Fuwuqi+'api.asp?online=0&user='+account.text+'&pass=' +StrToMD5(StrToMD5(password.Text)+shijian)
+'&chkcode='+Suiji);
Duqu1:=copy(Duqu,1,32);
Duqu2:=copy(Duqu,34,10);
if Duqu='err:key' then
Showmessage('帐号或密码错误')
else if Duqu='err:time' then
Showmessage('帐号已过期')
else if Duqu='err:lock' then
Showmessage('帐号异常')
else if Duqu1= StrToMD5(Suiji+','+Duqu2+','+shijian) then
begin
Form1.Free;
//Application.Terminate;
//zhanghao:=account.Text;
//mima:=password.text;
form4.Timer1.Enabled:=true;
form4.ShowModal;
end
else
Showmessage('失败')