Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- local Script = [[Put Your Script Here]]
- function Encode(Text)
- Text = tostring(Text)
- local Table = {}
- for i = 1, #Text do
- local T = Text:sub(i, i)
- table.insert(Table, T)
- end
- local T = {}
- local MyText = "'"
- for i, v in pairs(Table) do
- local Key = string.byte(v)
- MyText = MyText..math.floor(Key/128)
- Key = Key % 128
- MyText = MyText..math.floor(Key/64)
- Key = Key % 64
- MyText = MyText..math.floor(Key/32)
- Key = Key % 32
- MyText = MyText..math.floor(Key/16)
- Key = Key % 16
- MyText = MyText..math.floor(Key/8)
- Key = Key % 8
- MyText = MyText..math.floor(Key/4)
- Key = Key % 4
- MyText = MyText..math.floor(Key/2)
- Key = Key % 2
- MyText = MyText..math.floor(Key/1)
- Key = Key % 1
- MyText=MyText.."','"
- end
- MyText = MyText:sub(1, #MyText -1)
- if tonumber(MyText) then
- MyText = tonumber(MyText)
- end
- return MyText
- end
- -- ENCODE
- local Encoded = Encode(Script)
- print([[local BinaryEncrypted = ]].."table.concat({"..Encoded.."})"..[[ function decode(str) local function binary_to_string(bin) return string.char(tonumber(bin, 2));end;return (str:gsub("(".. ("[01]"):rep(8) .. ")", binary_to_string));end;local Binary = BinaryEncrypted _G.EncodedBinary = decode(Binary);loadstring(_G.EncodedBinary)()]])
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement