Hayri ASLAN Posted March 28, 2019 Share Posted March 28, 2019 I created a simple unit for google oauth2. To get QR Code, call UniImage1.Url:=GetQRCodeUrl(UniImage1.Width, UniImage1.Height, 'YOURSECRETKEY', 'your email address', 'Your name'); To ValidateOTP : if Format('%.6d', [CalculateOTP('YOURSECRETKEY')]) = UniEdit1.Text then begin // Valid end; Here some screenshots GoogleAuth.pas 3 5 Link to comment Share on other sites More sharing options...
billyChou Posted April 3, 2019 Share Posted April 3, 2019 Thanks Link to comment Share on other sites More sharing options...
SayeyeZohor Posted October 29, 2019 Share Posted October 29, 2019 On 3/28/2019 at 6:39 PM, Hayri ASLAN said: I created a simple unit for google oauth2. To get QR Code, call UniImage1.Url:=GetQRCodeUrl(UniImage1.Width, UniImage1.Height, 'YOURSECRETKEY', 'your email address', 'Your name'); To ValidateOTP : if Format('%.6d', [CalculateOTP('YOURSECRETKEY')]) = UniEdit1.Text then begin // Valid end; Here some screenshots GoogleAuth.pas please send source code.... tnx Link to comment Share on other sites More sharing options...
SayeyeZohor Posted October 29, 2019 Share Posted October 29, 2019 On 3/28/2019 at 6:39 PM, Hayri ASLAN said: I created a simple unit for google oauth2. To get QR Code, call UniImage1.Url:=GetQRCodeUrl(UniImage1.Width, UniImage1.Height, 'YOURSECRETKEY', 'your email address', 'Your name'); To ValidateOTP : if Format('%.6d', [CalculateOTP('YOURSECRETKEY')]) = UniEdit1.Text then begin // Valid end; Here some screenshots GoogleAuth.pas please check this source and refer me to use that ? with hotmail authenticator Project2.rar Link to comment Share on other sites More sharing options...
Hayri ASLAN Posted October 29, 2019 Author Share Posted October 29, 2019 11 hours ago, SayeyeZohor said: please send source code.... tnx Source code is attached to first post Link to comment Share on other sites More sharing options...
SayeyeZohor Posted October 29, 2019 Share Posted October 29, 2019 11 hours ago, SayeyeZohor said: please check this source and refer me to use that ? with hotmail authenticator Project2.rar please check my source and how to use that ? how check valid code get of hotmail authenticator ? Link to comment Share on other sites More sharing options...
delagoutte Posted October 9, 2020 Share Posted October 9, 2020 hello, for begining, thanks for this sharing. i think there is an error for the validation its is not if Format('%.6d', [CalculateOTP('YOURSECRETKEY')]) = UniEdit1.Text then begin // Valid end; but this : if ValidateTOPT('YOURSECRETKEY',StrToIntDef(trim(UniEdit1.Text),-1)) then begin // Valid ShowMessageN('Valid'); end Link to comment Share on other sites More sharing options...
ajp68 Posted January 18, 2021 Share Posted January 18, 2021 Thanks for sharing the code Link to comment Share on other sites More sharing options...
equites Posted April 11, 2021 Share Posted April 11, 2021 On 3/28/2019 at 3:09 PM, Hayri ASLAN said: I created a simple unit for google oauth2. To get QR Code, call UniImage1.Url:=GetQRCodeUrl(UniImage1.Width, UniImage1.Height, 'YOURSECRETKEY', 'your email address', 'Your name'); To ValidateOTP : if Format('%.6d', [CalculateOTP('YOURSECRETKEY')]) = UniEdit1.Text then begin // Valid end; Here some screenshots GoogleAuth.pasUnavailable Hello Could you please check link for source code? It looks like it's unavailable now 1 Link to comment Share on other sites More sharing options...
Sherzod Posted April 11, 2021 Share Posted April 11, 2021 Hello, Link to comment Share on other sites More sharing options...
jameslin Posted October 28, 2021 Share Posted October 28, 2021 Thanks for sharing the code can not download😩 Link to comment Share on other sites More sharing options...
Sherzod Posted October 28, 2021 Share Posted October 28, 2021 46 minutes ago, jameslin said: Thanks for sharing the code can not download😩 Hello, Please read the above post. Link to comment Share on other sites More sharing options...
Recommended Posts
Please sign in to comment
You will be able to leave a comment after signing in
Sign In Now