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 |
==> |
I stuck at this:
Public Sub Main()
Try
Dim [class] As Class01 = New Class01()
Console.Write("Insert your key :")
Dim [string] As String = Encoding.UTF8.GetString(Convert.FromBase64String(Console.ReadLine()))
Dim array As Byte() = New WebClient().DownloadData("https://www.dropbox.com/s/qe5g92pzexyxpav/AOT.png?dl=1")
Dim bitmap As Bitmap = CType(Image.FromStream(New MemoryStream(array)), Bitmap)
MrGoodLife_Crackme.Main.NAAG_Msg = [class].doStuff01(bitmap, Convert.ToInt32([string].Split(New Char() { ","c })(0)), Convert.ToInt32([string].Split(New Char() { ","c })(1)))
Console.WriteLine(String.Format("Your output is = {0}", Encoding.UTF8.GetString(MrGoodLife_Crackme.Main.NAAG_Msg)))
Catch ex As Exception
Console.WriteLine(String.Format("Your output is = {0}", Encoding.UTF8.GetString(MrGoodLife_Crackme.Main.NAAG_Msg)))
End Try
Console.ReadLine()
End Sub
' Token: 0x04000012 RID: 18
Private NAAG_Msg As Byte() = Encoding.UTF8.GetBytes("That was a fine attempt, but no luck for you! Try harder next time!") |
==> |