Text Encrypting code.ahk

;*******************************************************
; Want a clear path for learning AutoHotkey; Take a look at our AutoHotkey Udemy courses.  They're structured in a way to make learning AHK EASY
; Right now you can  get a coupon code here: https://the-Automator.com/Learn
;*******************************************************
#SingleInstance, Force 
Constant:="90" ;Change this to a number you want 
;********************What do you want to Encode?*********************************** 
InputBox, Pass, Encode,What do you wish to encode?,,600,130 
Clipboard:=Encoded:=Encrypt(Pass,Constant) 
InputBox, PlaceHolder, Encoded Value, % "Here is the encoded value", ,600,130,,,,,%Encoded% 
;********************Now show taking it the other way*********************************** 
MsgBox % "Here is the Decoded value: " Decrypt(Encoded,Constant) 
return 

Encrypt(OutputVar,Constant){
	Loop, Parse, OutputVar
	{
		GuiControl,, Char, %A_LoopField% 
		Transform, OutputVar, Asc, %A_LoopField%
		Outputvar-=Constant, NewVar.=OutputVar . "a" 
	}
	Return, NewVar 
}

Decrypt(OutputVar,Constant){
	Loop, Parse, OutputVar, a 
		Decrypted.= (Chr(A_LoopField+Constant))
	return, Decrypted 
}