设为首页 加入收藏

TOP

【近况】杂事+分享阿里大于短信验证码的完整实现代码
2017-10-10 12:05:12 】 浏览:10029
Tags:近况 杂事 +分享 阿里 大于 短信 验证 完整 实现 代码

最近一直在忙其他事情,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;

 


编程开发网
】【打印繁体】【投稿】【收藏】 【推荐】【举报】【评论】 【关闭】 【返回顶部
上一篇php5.3中namespace的说明,帮助初.. 下一篇Delphi的几个跨平台小游戏例子。

评论

帐  号: 密码: (新用户注册)
验 证 码:
表  情:
内  容:

最新文章

热门文章

C 语言

C++基础

windows编程基础

linux编程基础

C/C++面试题目