Share
ReportHello Guys,
I have this function in Visual.net, I want to create sonething similar in Power Apps,
I have been usiong funtion ForAll but I have not been able to find the solution yet
Function Encriptar(ByVal cadena As String) As String
Dim X As Byte
Dim Letr As String
Encriptar = ""
For X = 1 To Len(cadena)
Letr = Mid(cadena, X, 1)
'If ((Asc(Letr) - 2) * 2) <= 255 Then Encriptar = Encriptar & Chr((Asc(Letr) - 2) * 2)
Encriptar = Encriptar & Chr((Asc(Letr) - 2) * 2)
Next
End Function
Thanks & Regards,
Categories:
I have the same question (0)
All responses (
Answers (
914
