Skip to content

Instantly share code, notes, and snippets.

@mukasc

mukasc/TEC_AnnaGetHash.txt

Last active July 3, 2020 19:27
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save mukasc/043f779dbbb92d845514384335f18ff4 to your computer and use it in GitHub Desktop.
Save mukasc/043f779dbbb92d845514384335f18ff4 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
TEC_AnnaGetHash.txt
parm(out:&CallHash);
&Agora = now()
&AgoraStr = &Agora.Year().ToString().Trim()
&AgoraStr += substr(trim(str(&Agora.Month() + 100)),2,2)
&AgoraStr += substr(trim(str(&Agora.Day() + 100)),2,2)
&AgoraStr += substr(trim(str(&Agora.Hour() + 100)),2,2)
&AgoraStr += substr(trim(str(&Agora.Minute() + 100)),2,2)
&AgoraStr += substr(trim(str(&Agora.Second() + 100)),2,2)
&RandomStr = trim(str(int(Random()*9)))
&RandomStr = &AgoraStr+&RandomStr
&auxVar = TEC_AnnaComputeHash.Udp(&RandomStr)
&auxVar = &auxVar.ReplaceRegEx('[^a-zA-Z0-9\s]', '')
&CallHash = &auxVar.Substring(1,9)+'_' //Retorna um Hash de 10 Caracteres
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment