【近況】雜事+分享阿裡大於簡訊驗證碼的完整實現代碼

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