【近況】瑣事+分享阿里大於短信驗證碼的完整實現代碼

最近一直在忙其餘事情，FOL停了很久，汗。。。

一、上個月幫朋友搞了個微信的公衆號，而後由於公衆號要作些用戶管理的，又去把短信驗證這塊作了一下，用的是阿里大於的服務。期間被sign碼拖了兩天，總算是搞定了。等下把代碼分享一下。

二、公衆號的事情剩下一些頁面的工做沒作，由於朋友那邊一直沒提供頁面內容，也沒辦法作。恰好回老家喝酒的時候，堂弟那邊說要幫他作個房產審批小工具，4-5年沒作這種東西了，覺得1-2天能搞定，沒想到又要搞受權、又要分級審批，還有各類打印、導出excel，給的數據又亂，還得分析、提取老舊數據，這一來頭頭尾尾又去了5天。今天恰好颱風天待家裏，總算把全部功能全搞完了。可貴悠閒一下。

三、接下去仍是繼續準備把微信公衆號這個事情給作完，再繼續FOL了。等公衆號這個作完，再發一篇介紹delphi開發微信公衆號的。

 

分享一下阿里大於的短信驗證碼實現，仍是貼代碼。

一、注意：uses System.Hash;

二、Delphi XE10.1

三、在盒子那邊發過，那邊有些同窗在討論，有問題能夠去那邊看看。傳送門

四、代碼以下

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;