【近况】杂事+分享阿里大于短信验证码的完整实现代码

2016-09-29 07:58:15来源:cnblogs.com作者:水中盗影人点击

最近一直在忙其他事情,FOL停了好久,汗。。。

1、上个月帮朋友搞了个微信的公众号,然后因为公众号要做些用户管理的,又去把短信验证这块做了一下,用的是阿里大于的服务。期间被sign码拖了两天,总算是搞定了。等下把代码分享一下。

2、公众号的事情剩下一些页面的工作没做,因为朋友那边一直没提供页面内容,也没办法做。刚好回老家喝酒的时候,堂弟那边说要帮他做个房产审批小工具,4-5年没做这种东西了,以为1-2天能搞定,没想到又要搞授权、又要分级审批,还有各种打印、导出excel,给的数据又乱,还得分析、提取老旧数据,这一来头头尾尾又去了5天。今天刚好台风天待家里,总算把所有功能全搞完了。难得清闲一下。

3、接下去还是继续准备把微信公众号这个事情给做完,再继续FOL了。等公众号这个做完,再发一篇介绍delphi开发微信公众号的。

 

分享一下阿里大于的短信验证码实现,还是贴代码。

1、注意:uses System.Hash;

2、Delphi XE10.1

3、在盒子那边发过,那边有些同学在讨论,有问题可以去那边看看。传送门

4、代码如下

procedure TForm1.Button1Click(Sender: TObject);var  lvSecret: string;  lvStrings: TStringList;  i: Integer;  lvSign: string;  lvMD5: THashMD5;  lvResponse: TStringStream;begin  lvStrings:= TStringList.Create;  lvResponse:= TStringStream.Create;  try    lvSecret:= Edit3.Text;    //加密用到的参数就这些,不要乱加参数    lvStrings.Add('app_key'+Edit2.Text);    lvStrings.Add('format'+'xml');    lvStrings.Add('method'+'alibaba.aliqin.fc.sms.num.send');    lvStrings.Add('sign_method'+'md5');    lvStrings.Add('timestamp'+'2016-09-17 21:35:06');    lvStrings.Add('v'+'2.0');    lvStrings.Add('rec_num'+Edit6.Text);    lvStrings.Add('sms_free_sign_name'+'个人测试');    lvStrings.Add('sms_param'+Edit5.Text);    lvStrings.Add('sms_template_code'+Edit4.Text);    lvStrings.Add('sms_type'+'normal');    lvStrings.Sort;    for i:= 0 to lvStrings.Count -1 do      lvSign:= lvSign + lvStrings[i];    lvSign:= lvSecret + lvSign + lvSecret;  //加密前的串,格式是:Secret + 拼装的参数名参数值串 + Secret    lvSign:= UpperCase(lvMD5.GetHashString(lvSign));  //按照阿里大于的帮助文档组装加密后得到的Sign,很多人都卡这里    Memo1.Lines.Add('sign='+lvSign);    lvStrings.Clear;    lvStrings.Add('app_key='+edit2.Text); //阿里大于后台的app_key    lvStrings.Add('format='+'xml'); //这里选择xml格式,也可以用json    lvStrings.Add('method='+'alibaba.aliqin.fc.sms.num.send'); //短信发送API名称,固定,不要变    lvStrings.Add('sign_method='+'md5');  //加密方法,这里选择md5    lvStrings.Add('timestamp='+'2016-09-17 21:35:06');    lvStrings.Add('v='+'2.0');    lvStrings.Add('rec_num='+Edit6.Text); //要接收的手机号码,有多个用英文逗号隔开    lvStrings.Add('sms_free_sign_name='+'个人测试'); //阿里大于后台申请的短信签名名称    lvStrings.Add('sms_param='+Edit5.Text);     //edit5.text:= '{"code":"5858"}'    lvStrings.Add('sms_template_code='+Edit4.Text); //阿里大于后台申请的短信模板,我的格式是:您的验证码${code},60秒内输入有效。    lvStrings.Add('sms_type='+'normal');    lvStrings.Add('sign='+lvSign);    IdHTTP1.ReadTimeout:= 3000;    IdHTTP1.AllowCookies:= False;    IdHTTP1.Request.ContentType:= 'application/x-www-form-urlencoded;charset=utf-8';    IdHTTP1.Post(Edit1.Text,lvStrings,lvResponse);    Memo1.Lines.Add('respon_se='+lvResponse.DataString);  finally    lvResponse.Free;    lvStrings.Free;  end;end;

 

最新文章

123

最新摄影

微信扫一扫

第七城市微信公众平台