Merge pull request #14 from shahronak47/1-safe-pass

hash password using digest

global.R

@@ -7,6 +7,7 @@ library(shinyjs)
 library(blastula)
 library(bslib)
 library(DT)
+library(digest)
 ## Source files
 
 options(repos = c("CRAN" = "https://cran.rstudio.com/"))
@@ -17,7 +18,7 @@ all_packages <- rownames(tmp)
 
 correct_login <- function(user, pass, con) {
   out <- DBI::dbGetQuery(con, glue::glue("SELECT password from users where username = '{user}'"))
-  out$password %in% pass
+  out$password %in% digest::digest(pass)
 }
 
 is_valid_email <- function(email) {

server.R

@@ -89,7 +89,8 @@ function(input, output, session) {
   observeEvent(input$code_btn, {
     if(input$code == rv$otp_code){
       removeModal()
-      insert_in_table(input$sign_up_email, input$sign_up_username, input$sign_up_password, input$first_name, input$last_name, rv$otp_code, rv$con)
+      password <- digest::digest(input$sign_up_password)
+      insert_in_table(input$sign_up_email, input$sign_up_username, password, input$first_name, input$last_name, rv$otp_code, rv$con)
       shinyalert("Success!!", "Email address verified", type = "success", immediate = TRUE, timer = 3000)
     }
     else {