Jump to content
uniGUI Discussion Forums

ygerdel

uniGUI Subscriber
  • Content Count

    9
  • Joined

  • Last visited

Community Reputation

0 Neutral

About ygerdel

  • Rank
    Newbie

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

  1. ygerdel

    Forgot  password

    Thank you so much everyone for your contributions. I implemented this code and works perfectly: Do not forget to add the files to the project's execution folder. ssleay32.dll and libeay32.dll ......\Win32\Debug Code: uses MainModule, uniGUIApplication, UnDMSistemas, UnFuncGral, UnErrorGral, IdSMTP, IdSSLOpenSSL, IdMessage, IdText, IdAttachmentFile, IdExplicitTLSClientServerBase, BCrypt, UnLogin; function UnFrmOlvidoPassword: TUnFrmOlvidoPassword; begin Result := TUnFrmOlvidoPassword (UniMainModule.GetFormInstance(TUnFrmOlvidoPassword)); end; procedure TUnFrmOlvidoPassword.UnBtnEnviarClick(Sender: TObject); var IdSSLIOHandlerSocket: TIdSSLIOHandlerSocketOpenSSL; IdSMTP: TIdSMTP; IdMessage: TIdMessage; IdText: TIdText; begin IdSSLIOHandlerSocket := TIdSSLIOHandlerSocketOpenSSL.Create(Self); IdSMTP := TIdSMTP.Create(Self); IdMessage := TIdMessage.Create(Self); begin try IdSSLIOHandlerSocket.SSLOptions.Method := sslvSSLv23; IdSSLIOHandlerSocket.SSLOptions.Mode := sslmClient; IdSSLIOHandlerSocket.SSLOptions.SSLVersions := [sslvTLSv1, sslvTLSv1_1, sslvTLSv1_2]; IdSMTP.IOHandler := IdSSLIOHandlerSocket; IdSMTP.UseTLS := utUseImplicitTLS; IdSMTP.AuthType := satDefault; IdSMTP.Host := 'smtp.gmail.com'; IdSMTP.Port := 465; IdSMTP.Username := 'xxx@xxxxxx.com'; IdSMTP.Password := 'xxxxxxx'; IdMessage.From.Address := 'xxxxxxx@xxxxxxx.com'; IdMessage.From.Name := 'xxxxxxxxxxxxx'; IdMessage.Recipients.Add.Text := vVeriEMail; IdMessage.Subject := 'xxxxxxxxxxxxxxx'; IdMessage.Encoding := meMIME; IdText := TIdText.Create(IdMessage1.MessageParts); IdText.Body.Add('Body'); IdText.ContentType := 'text/plain; charset=iso-8859-1'; try IdSMTP.Connect; IdSMTP.Authenticate; except on E: Exception do begin Showmessage('Error al autenticar la conexion: ' + E.Message); Exit; end; end; // Envio de mensaje try IdSMTP.Send(IdMessage); end; except On E: Exception do begin Showmessage('Error al enviar mensaje: ' + E.Message); end; end; finally IdSMTP.Disconnect; UnLoadOpenSSLLibrary; FreeAndNil(IdMessage); FreeAndNil(IdSSLIOHandlerSocket); FreeAndNil(IdSMTP); end; end end;
  2. ygerdel

    Forgot  password

    Exactly, what I need is to validate the user's email in the database and send the password to that email, then the user must change the password immediately. Do you have an example to send emails with Uigui? I am using delphi tokyo 10.2.
  3. ygerdel

    Forgot  password

    Hello, someone knows some algorithm that allows me to send emails to specific users. The idea is to make a function like: "forgot password."
  4. ygerdel

    Encrypt the password when sent to the server.

    Hello, do you know any option to encrypt passwords more secure than those described here? I would like advice on applying an encryption of passwords that do not have to decrypt. I would like advice on applying an password encryption that you do not have to decrypt later. Thanks
  5. ygerdel

    Google Authenticator

    Thank you very much.
  6. ygerdel

    two-factor authentication 2FA

    Hi, I want to add optional two-factor authentication during login into my Delphi win32 application. Using: Delphi 10.1 Berlin Enterprise User logs in using normal username and password. On his mobile phone he have the Google Authenticator application, which is the code that he needs to enter in the application. What would be the easiest way to set this up? A very basic example would be appreciated. Thanks.
  7. Hi, I want to add optional two-factor authentication during login into my Delphi win32 application. Using: Delphi 10.1 Berlin Enterprise User logs in using normal username and password. On his mobile phone he have the Google Authenticator application, which is the code that he needs to enter in the application. What would be the easiest way to set this up? A very basic example would be appreciated. Thanks.
  8. ygerdel

    Google Authenticator

    Sorry, the link is still broken
  9. ygerdel

    Google Authenticator

    Hi, the link are broken. could you develop the demo?
×