Advertisement
Vaeb

Decrypter

Aug 17th, 2015
264
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Lua 1.99 KB | None | 0 0
  1. --Must be ran client-side!
  2. --Run in SB
  3.  
  4. local UIS = game:GetService("UserInputService")
  5. local LP = game:GetService("Players").LocalPlayer
  6. local KeyWord = ""
  7. local KeyNums = {}
  8. local NewSource = ""
  9. local BreakCons = {}
  10. local Iter = 0
  11. local LastVal = 0
  12. local Valid = {"a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z", "zero", "one", "two", "three", "four", "five", "six", "seven", "eight", "nine"}
  13.  
  14. local isServerScript = false
  15.  
  16. local Source = [===========================[
  17. 5992:5880:6099:5985:5617.5:5512.5:5885:5775:6206:6090:2140:2100:1819:1785:3852:3780:5403.5:5302.5:5778:5670:5778:5670:5938.5:5827.5:1712:1680:6366.5:6247.5:5938.5:5827.5:6099:5985:5778:5670:5350:5250:1765.5:1732.5:1819:1785:2193.5:2152.5:535:525
  18. ]===========================]
  19.  
  20. function Decrypt()
  21.     KeyWord = KeyWord:lower()
  22.  
  23.     for i = 1, #KeyWord do
  24.         KeyNums[#KeyNums+1] = string.byte(KeyWord:sub(i, i))
  25.     end
  26.  
  27.     for ASCII in Source:gmatch("[^:]+") do
  28.         local Num = tonumber(ASCII)
  29.         Iter = Iter + 1
  30.         LastVal = LastVal + (Num/KeyNums[Iter])
  31.         if Iter == #KeyNums then
  32.             NewSource = NewSource .. string.char(LastVal)
  33.             Iter = 0
  34.             LastVal = 0
  35.         end
  36.     end
  37.  
  38.     print("-Running Script-")
  39.  
  40.     if isServerScript then
  41.         NS(NewSource, Workspace)
  42.     else
  43.         NLS(NewSource, LP.Character)
  44.     end
  45. end
  46.  
  47. print("-Enter KeyWord-")
  48.  
  49. BreakCons[#BreakCons+1] = UIS.InputBegan:connect(function(Input, Processed)
  50.     if not Processed then
  51.         local Key = tostring(Input.KeyCode):lower()
  52.         if #Key > 4 and Key:sub(1, 4) == "enum" then
  53.             Key = Key:sub(14)
  54.             if Key == "backspace" then
  55.                 KeyWord = ""
  56.                 print("-Cleared KeyWord-")
  57.             elseif Key == "return" then
  58.                 for _,v in pairs(BreakCons) do
  59.                     v:disconnect()
  60.                 end
  61.                 print("-KeyWord Sent-")
  62.                 Decrypt()
  63.             else
  64.                 for _,v in pairs(Valid) do
  65.                     if v == Key then
  66.                         KeyWord = KeyWord .. Key
  67.                         print("Added Letter/Number to KeyWord")
  68.                     end
  69.                 end
  70.             end
  71.         end
  72.     end
  73. end)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement