metalpetal on 2024-01-23 18:30:
Dim text As String = .Initialization("ⷅⷀⷑⷣⷶⷀⶣⶪ", 1725115799)
Dim array As Byte() = Convert.FromBase64String(text)
Dim password As String = Encoding.ASCII.GetString(array)
'''' decrypt
public Function Initialization(A_0 As String, A_1 As Integer) As String
Dim flag As Boolean = Assembly.GetExecutingAssembly().FullName = Assembly.GetCallingAssembly().FullName
Dim text As String
If flag Then
Dim stringBuilder As StringBuilder = New StringBuilder()
For Each c As Char In A_0
stringBuilder.Append(CChar((CInt(c) Xor A_1)))
Next
text = stringBuilder.ToString()
Else
text = Nothing
End If
Return text
End Function