SHARE
TWEET

zip

a guest Apr 23rd, 2019 69 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. --Created with Packager by CrazedProgrammer
  2. b='ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/' function frombase64(data) data = string.gsub(data, '[^'..b..'=]', '') return (data:gsub('.', function(x) if (x == '=') then return '' end local r,f='',(b:find(x)-1) for i=6,1,-1 do r=r..(f%2^i-f%2^(i-1)>0 and '1' or '0') end return r; end):gsub('%d%d%d?%d?%d?%d?%d?%d?', function(x) if (#x ~= 8) then return '' end local c=0 for i=1,8 do c=c+(x:sub(i,i)=='1' and 2^(8-i) or 0) end return string.char(c) end)) end function lzw_decode(s) local str = { } for i=1,#s/2,1 do table.insert(str, s:byte(i * 2 - 1) * 256 + s:byte(i * 2)) end local dict_size = 256 local dict = {} for i = 0, dict_size-1 do dict[i] = string.char(i) end local w = string.char(str[1]) local result = w for i = 2, #str do local k = str[i] local entry = '' if dict[k] then entry = dict[k] elseif k == dict_size then entry = w .. w:sub(1,1) else return nil end result = result .. entry dict[dict_size] = w .. entry:sub(1,1) dict_size = dict_size + 1 w = entry end return result end d = 'AA4vYXBpcy9NZW51Lmx1YQEAAoAAcAByAGkAbgB0ACgAIgBNAGUAbgB1ACAAdgAwAC4BDQAxACAAbABvAGEAZABlAGQAIgApAAoAZgB1AG4AYwB0AGkAbwBuACAAbQBhAGsAZQBtAQgAdQAoAHgALAB5ACwAdABlAHgAdAEZACABNQERAG8AYwBhAGwBIwEpACAAPQAgAHcBAgBkAG8AdwAuAGMAcgBlAGEBMAAoATAAcgBtAUYAdQByAUgBAwAoACkALAEsAS4AMQAwACwAMQE0ATYBKAEJAC4AcwBlAHQAQgBhAGMAawBnAHIAbwEcAGQAQwBvARIAcgAoAGMBcABvAHIAcwAuAGIAbAB1AGUBXgE1AWAAdQFiAWQAVAExAHQBbwFxAXMBdQF3AXkAbAFnAGsBfgE8AWEAYwBsAUkBcgGQAYAALgB3AQEBSwEwATIBkAFNAU8BYwGGAVEAcwF2AFAAbwBzACgAMQAsADIBkAESATkBOwGAAFgBPgAgAHgACgE2ATcBsAGRAHUAWQG0AHkBtwE2Aa8BOgG7AFgBJAB4AbQBsgArAVoBwAE1AHcAaABpAZQAIAB0AHIBfAAgAUMBzAG4ACAAcwGUAGUAcAAoAQ0AMAFdAdgBuAHCATsAZQB2AQgAdAFXAS0BtAGoAC4AcAB1AGwAbABFAegBVAAiAG0BbAFjAF8BkwBpAWgBGAHjATYAaQBmAbUAIAA8AcQBxgAgAGEAbgBkAgQAPgHEAdIAaAEIAgAB2QAgAgIAIAB5AT4BPwGAAb0AdAIRAG4CEwIUATYB7gBxAXwBfAH0AekBBQGYAGIAdQB0AHQBIQH8Af4ALAG1AjICGAGQAiEAIAEIAGQCIAI5AdgCPAI5AA4vYXBpcy9QYXBpLmx1YQEAAMYAcAByAGkAbgB0ACgAIgBQAGEAcABpACAAdgAwAC4BDQAxACAAbABvAGEAZABlAGQAIgApAAoAZgB1AG4AYwB0AGkAbwBuACAAbgBlAHcATAECAGUAKAEZACABLAERAG8AYwBhAGwAIABjAFgALABjAFkAIAA9ACAAdABlAHIAbQAuAGcAZQB0AEMAdQByAHMAbwByAFAAbwBzASoACgEtATsBPQE/AHMBQgFEAUYBSAFKAUwAMQE2AFkAKwAxARkAZQBuAGQADy9hcGlzL3BpcGVzLmx1YQEAAcgAcAByAGkAbgB0ACgAIgBQAGkAcABlAHMAIAB2ADAALgEOADEAIABsAG8AYQBkAGUAZAAiACkACgBmAHUAbgBjAHQAaQBvAG4AIABjAHIAZQBhAHQAZQBCAGEAcgAoAHgALAB5ACwAbAEaACABNQAgAGIBLAAgAD0AIAB3AQIAZABvAHcALgElAScBKQAoASkAcgBtAUIAdQByASYBAwAoACkALAEvATEAbAAsADEBNAE2ATgAcgAuAHMAZQB0ASsAYwBrAGcAcgBvAR0AZABDAG8BEwEtAGMBaABvAHIAcwAuAWIAYQB5AVcBNQFZAUIAbAEnAS0BGgBlAG4AZAEbAR0BHwEhASMBXAFeASwAKAFZAYQBdAE3ASwBWwFdAV8BYQFjAWUBZwFpACgBawFpAW8BYgBlAXwBigETAGMAYQBsAYsAcgB0AGgBAgBnAToAIAAxAAoBNgAgASYBCQEoAaoBqwFYAYwAdwEBAUUAIgAgARkBsAGxAaEBowGlAacBWQG9AG4BpgArAagBugAgAR0BIAGgAcABpAHCACAAPgGhAYQBxgF2AYQBjwFiAWQBfQGTAW0BlQFsAW4BcAByAXIBewF9AAoADS9ndWkvaW5pdC5sdWEBAAEMAGwAbwBjAGEAbAAgAHcAaQBuAGQAbwB3AHMAIAA9AQUBBwEJAHcALgBjAHIAZQBhAHQAZQAoARgAcgBtARMAdQByARUAbgB0ACgAKQAsADEBJgAsADUALAAzACkACgEGAQgBCgBzAC4AcwBlAHQAQgBhAGMAawBnAHIAbwB1AQgAQwBvAQAAcgAoAGMBQQBvAHIBMgE7AGUAZQBuAS0BLwERATIBNAB0AFQAZQB4AHQBQAFCAUQBRgFIAC4AYgBsATgAawFOARABMQEzATUAQwEfAHMBRwBQAG8AcwAoAScAMQFiATABCwETAGwBFgFDAXEBUAAuAHcAcgBpARgAKAAiARgAcwB0ACIAKQAXL3Byb2dyYW1zL1BsYXlNdXNpYy5sdWEBAAEqAHcAaABpAGwAZQAgAHQAcgB1AQQAZABvAAoAIAENACAAbABvAGMAYQBsACAAaQBuAHAAdQB0ACAAPQAgAHIAZQBhAGQAKAApAQwBDgBpAGYBFQEXARkBGwEcACIAMQAiAQUAaABlAG4BJAEOAQ4BHgBkAHMAdABvAG4AZQAuAHMAZQB0AEEAbgETAG8AZwBPARkBGAB0ACgBAwBmAHQALAAgADEBIwE1ATUBNwE5ATsBPQE/AUEBQwEQAUYBSAEZAUsAZQFNAU8AMAFSAQ4AZQBsAT8BJgEoAUkBKwAgACIAMgEvAHQBMQEzAVMBNgBlATgBOgE8AT4BQAFCAUQBXQB0AUkAKAE6AHABTwFRATQBUwFVAXkBWAF8AVsBRQFHAYABXwGDAWMAKQAYL3Byb2dyYW1zL1JhbmRvbUdhbWUubHVhAQAB2ABwAHIAaQBuAHQAKAAiAFIAYQBuAGQAbwBtAEcAYQBtAGUAIgApAAoBAAECAQQAIgBUAHkAcABlACAAdABoARsAYwBvAHIAcgBlAGMAdAAgAG4AdQBtAGIAZQByACEBEQAKAGwAbwBjAGEAbAEnASkAIAA9ACAAbQBhAR0ALgByAQgBCgBtACgAMQAsADEAMAAwARIBMQEzATUBIAEiASQBJgE5ACIAZgE0AHMBEAAKAHcAaABpAGwBHwEhASMBJQE4AVEBUwBsAVUAIgAgAQoACgAgAWkAIAFKATQAIAECAHAAdQFQARwAbwEoASoBLAAoASMAYQBkACgAKQESAWoBbgBmAW4AbgFwAVABOQF1ARwBHgBuAWgBfwFqARQBAwEFAEMBXQFPAS4BfgGMAWkBjgEWAEUAeABpAHQBAgBnACAAZwEOAGUBlAGLAZYAcwFbAGUAcAAoADIBlQGWASMAdAB1AHIBigF/AGUBYwBlAGkBgQFvAXEAIAA+ATYAbQGIAGUBswGWACABmAEFAHMBOwBsAVsAcgG+ASsAcgEvAbQBtgG4AYIBhAAgADwBvgHAAcIBlgHFACIATABhAHIAZwEsAcwBLAHPAWoBwQBkAAoB5gGlACAAFy9wcm9ncmFtcy9TdGFydEFuaW0ubHVhAQAB/AB0AGUAcgBtAC4AcwBlAHQAQgBhAGMAawBnAHIAbwB1AG4AZABDAG8AbABvAHIAKABjARMBFQBzAC4AYwB5AGEAbgApAAoBAAECAQQBBgBUAGUAeAB0ARIBFAEWARgBLAEbAGIAbAEJAGsBIQEjAQMAYwBsAGUAYQEWATUBAQEDAQUBKgB1AHIAcwEVAFAAbwBzACgAMQAsADEBPQEkAHcAcgBpAQAAKAAiAFAAIgEhAHMBOQBlAHAAKAAwAC4BTAEiAT4ALgFPAVEAZQFTAGwBVgAKAVgAZQFaAVwBXgFNAQMBYwFSACIAbwFoAWoBbAFdAV8BNgFiAVABcgB0AXUBWQFbAXgBbwF7AWQBUwBPAX8BawGBAW4BYAFOAXwBZQAiAFMBiAFsAXkBYQFAAEMBQgFEAHIBRgFIAUoAMgGDAXEBjwBCAQYAYQGSAYoAMwGfAY4BUwAgAHYBXQFdADQBpQFtAacBjAFwAakAIgAgAFcASQFVAVcBgAFJAYMBlgGYAUUBRwFJACwBsgF6AaABUwBXAGUBZwG7AYkBbQA1AagBhQAiARgAbQBlACEBsAGeAbMBJQEHATMBDAEOARABKwEVARcBGQFDAC4BMQB1AGUBvgEmASgBKgHjAeIBLwHlATIBCgGDATgBOgE8AXoBvwFDAcEBnAFLACkAFi9wcm9ncmFtcy9wYWNrYWdlcy5sdWEBAACoAHAAcgBpAG4AdAAoACIARwBlAHQAdAECAGcAIABwAGEAYwBrAGEAZwBlACAAbABpAHMAdAAuARoAIgApAAoALQAtAQ4BEAESARQBFgEYACAAcgBlAGMAaQB2AGUAcgAgAGEAbgBkARUBFwB0AS0ACgEAAQIBBAAiAHQAeQBwARQAdABoARQBIQERARMAIAFAAGEAdAAgAHkAbwB1ACAAdwEwAHQBHAAKAA8vcm9tL2FwaXN0YXJ0ZXICABQvcm9tL2NvcmUvUGxvdE9TLmx1YQEAB4IAdABlAHIAbQAuAHMAZQB0AEIAYQBjAGsAZwByAG8AdQBuAGQAQwBvAGwAbwByACgAYwETARUAcwAuAGIAbAB1AGUAKQAKAQABAgEEAQYAVABlAHgAdAESARQBFgEYASwBGwB5AGUAbAEUAHcBIQEjAQMAYwBsAGUAYQEWATYBAQEDAQUBKgB1AHIAcwEVAFAAbwBzACgAMQAsADEBIQEUAGMAYQBsACAAdgEBACAAPQAgACIAMAAuAVoANAAiAAoAcAByAGkAbgB0ACgAIgBXATIBGABtAGUAIQAiASEBYAFiAWQAIgBQARQAdABPAFMBWAAgAC4ALgFUAHIBPgEkAUEBJwEpASsBFQEXARkBRAEcAGwBCQBrAU4AbwFQAVIAdwEVAGsBVgFYAHQAcgEfAV4AdwBoAGkBOgAgAZAAcgGSAD0BVwAiAZUBlwAgAGQAbwAKACABqgAgATcBJQB0AYEBKgGGAYUBLwGIAYoBIQGrAawBPwAuAHcBYQEAAWUAPgFtAakBqwFPAVEAIAFiAHAAdQB0AZMAcgE7AGQAKAG3AasAdABBAHIAZwBzAZMAewF6AC4AfQHCAaoBxAFSAHQAaQFqAZMBSAAuAeABagHPAdwBxgBmAcYAbgHIAcoBoQFYASgAaQB0ACIBrABoAGUAbgHpAbgBbwFjAWUARwBvAG8AZABiATEBbAHQAbgBqgBzAToAZQBwAUoCBgIHAZ4BoAFYAGYBUQEFAV4CBwHRAboBQQEIAQoBDAEOARABgwEtAYYBGwEdAbYB+gIYASQBOQE7AT0CJgGqAa0BQQBDAUMBRQByAUcBSQFLAU0B6QEyAQUAaQHrAccByQFWAaICKQE8AfUAdAH3AfkCFwItAboCQQIrAkcBuQF/AQYCMAFEAUYBSAFKAUwCDgH7AWEB/QAiAEMBOgE8AGUAZAIFAjgAbAI6AjwB7QI+AfAAIgHMAGICAAH0AfYB+AIsACAB/AFxAmkCawFiAGcCYAJMAgkAZQILAg0CbwBzAfcBMwAuAZYAbgFlAnMAbwH0Ag4COQBlAjsB7AHuAj8BWAHMAacAbgJDAkUCbwJxAWUAVAFDAG4CdQAgAG8AbgAgApAAcwB0Ap0AZQHZAcECTAHeACAAZQBtAfMBkwGjAG8AcAIWAkcCoAKiAG4CpAFBAEEAbgFRAG8AZwBPAckB7gFlAqICsAAsACACNwG4AokCiwI9Ae8BogKQAG8AZgBmApMCbgJMApYBowKZApsCzQHrArMCowKlAlYBqwLZArUBrgK4AroCvAK+AckCwAKvACICwwAwAogCYgKKAmQCjQJnAn8CsAJtAkYCRwLTAF8C9wBfAFsC8QBdAvgAXwKmAvUCWAFxAfIBygAtAqkAeAKsAGYBDQBtACABcwKGAXYC/wIXAtMCSgAgAwUCSgHWAkQAZQAgAn4BMgBsAxACBwLTAoUDBAKfAGUCagKGAm0AIAFpAe4BAQMeAlcBcAKEAl4CnQMUAawCmQHWAzEC3gMZAQ4AdAKNACgCwQApAywBqwMgAzACzgMyAHQDNAKcA0MDNwKcAuQBygM8Aq8DPgLcAaoC0wLxAzICfgBvAHcDFwGaAHMDPwNRAwEBZQBnAHUAaQNEA0YDMQBHAFUASQAgAG0CAQMZAGIBBgBhA1sCcANdACIAZwBhAeIDBQKvAfgDWAMZA3MBagAuA28C9gL4AvoBMgBwAvwC+AMeAscC7gJmAaIDXwBpAtAC9AMRA3EATABvAGEAZAKbA4sAIANsAHQAYQFTAVoBWgAxAtsCfQIKAgwCxQL1AGkAcABlARsAYwHMAGEBAAEIARYAMQAwAUwDsAAzAuoCbwKoARQDkwGTADACbwHMA6YDqwJvAbgDtwBkAZMDwQArADEDvwNAA6UDpwGuA60CfAJMAbgCeQJ7A50DUAAgAQ8B4AFSA8EAIAA+ACAAMgA5Am8BrQJKAegCeAJ/AGwCgQEPAWUAcAFIAC8DiwAvAWIB8wAuAR4DbgPTA9ACDAAyA9MARQByAQ0AcgBIAGEBEAE6AHIBHAFFAc4BcgF0AXYAIANlA2cAbQP8AGEAZwMrAsMCWgP8ACcBygPYA4sBbAQOAEkB6wMYACADlgB3AGEB1gPBAl4CwwBiAj4CRABpAdYAawJ6AHADGgBoA1YCmwMYAp4AcAJcAQUBnQBhAwgBFQAgA5oCtQB3AVUBfABzAGkDMQLNBAYDZgN9AusCYwKMA4kBlAGaAG4AZwONAm8D9wP5A/sD/QEBBAACAQFlAw0BdQF3AoIB5gMZAQED+QLoAVgAVAH3AcwAJwHWAG4AbwKfA/wBpwMLBCQESgQVAVgAUwEVAHIAeQQhBCMEYQBlBGMAIARlBGcBEABvBGoESQBnAxoEZgKRBBEBrAB5A6YB9gQlAygEfAQJARAENwNzAWICdwGrA4cERgLKAVgDewBlBEwC0gOQA5IDlARKBBoDdAKkAXoDbwPzACgBWgA1A/ID4wPlAoMAIgPoAHMALwFgArsAcgN0BK0AUgRoBHwARwSfA+8AdQPxAjgBEAAKAfgAZAAVL3JvbS9jb3JlL3N0YXJ0dXAubHVhAQAEoABwAHIAaQBuAHQAKAAiAEwAbwBhAGQBAgBnACAAYQBwAGkAcwAuARIAIgApAAoAbwERAGwBCABkAEEAUABJAQUAcAEXAC8BDgEQAC8AUAEjAC4AbAB1AGEBFAEWARgBGgEcAR4AIgEgAHMBIgEPATQBDwBwAGUBGAEqASwBFwEoAS8BHQEfASEAcgBvAG0ALwEAAG8AZwByAGEAbQE0AEUAcgFEAHIASABhAG4AZABsAGUAcgEoATwBFQE+ARkBCQEwAUIBNAEjATQATQBlAG4AdQFaASsBFQEAAQIBBAAiAV4BCgBuAQwAYgBpAT4BEwEVAHMBVwBlAHAAKAAyARUAdAFYAG0ALgBzAGUAdABCAGEAYwBrAUoAbwB1AVUAQwBvARkAcgAoAGMBkABvAHIBEQBiASkAZQF/AYEBgwGFAFQAZQB4AHQBjwGRAZMBlQGXAC4BmQGIAGsBnAByAYIAYwFXAGEBkgFrAQEBAwEFAFABGQGGAXUAcwAgAHYAMAAuAb8ANAEsAXkAZQF7ACgBvwF+AAoBbAG2ACIAVwBoAGEAdAAgARcAIABkAG8AIAB5AYwAIAB3AVQB0QB0AdYAYgBvAG8AdAA/ASwBywFuADEALgAgAbgB4gBPAFMB5QG1AW4AMgHpAEMBSwBmAHQB7QEsAQIAcAB1AdEAPQAgAHIAZQEJACgBFQBpAGYAIAH6AfwAIAA9Af4AIgAxACIAIAB0AGgBZgAKACACFQAgAeYBBQBCAeEAdAELACAAdQBwAeoBuQHtARIALgEsAhYAIAHEAcYBvwA3ARUCJwBzAhIAbABsAC4AcgGNAWEBRwFEAUoBTAE0AFMAdAGyAHQAQQBuAGkAbQImAhYCLwBlAjECMwI1ACIB6wH3Ae4CLQJFAXoBfAG/ADECTwIVAU8BUQFTAVUBVwFZAGIAcwBvAGQBtwG5AEIASQH4ACwAIAJLAiIAUwAgAVgBUQAiAmYCaAHsAmoAYwFUACcB0QBiAGUAIAFwAGUAZAHSAHICBwHRARACEAGBAQIB0AJ7AekCBQHXAdkB1QBuAnUCggGuAoQBgAJ8AGkB0QGWAhAAeQE5AnwAJwGhApMAJwIXAbEBhAENAHMAawAgAGYClQIwAiAB3gAgAhoAbQJ3AHIBuABhAHkAegBfACAAKAAvAG0AYQBpAGwCqgFFAq0CrwKxArMCiABuAeIB0gBuAGwBAgGbASwCRwGEAogCCAH9AgwAMgIPAhECEwInAhgAIgIaAeICHQIfAqQBRABtACAB9ABhAfYB+AJVAo4BrwGxAbMCFAIWAYABrgGeAaMAdQGXAZYAUAEXACgAMQAsAlQC6AIVAuoBggGEAHQBoAGiAaQBlgGmAZEBEQB5AkcBGQB3AuMC+QLsAYcBiQGLAY0AZAL/AZIBlAMCAakAbAGrAwgBnQGwAgEC5wLUAfABBQLfAuECagHoADgCRAL4AZ0C+wBDAu4CXgKuAvIC9AHJAsoAZQL3AhcB8AJXAwAAIgBOAsMAYQG9AGECxgKSAG4B+wB0ACECIQIBAqAAdAKXAngAMQJ9ACAC0ALjAAoBZgBkAB4vcm9tL3Byb2dyYW1zL0RlZmF1bHRFcnJvci5sdWEBAADIAHAAcgBpAG4AdABFAHIAcgBvAHIAKAAiAFUAbgBlAHgAcABlAGMAdABlAGQAIABlAQYBCAAsACAAUABsAGUAYQBzAGUAIABjAG8BAwBhARIAIAB0AGgBIQBkAGUAdgBlAGwAbwEQAHIAIAAoAEIAbwBtAGIBFwEcAGEAeQB6AF8AKQAiACkACgEAAQIBBAEYAQkAIgBBAG4AZAFBAUMBAQEDAQUBBwFIAFIAZQBiAG8AbwB0ASgBKgEiATcAcAB1ARMAcgAuAUEAHi9yb20vcHJvZ3JhbXMvRXJyb3JIYW5kbGVyLmx1YQEAAhgAcAByAGkAbgB0ACgAIgBFAHIAcgBvAHIASABhAG4AZABsAGUAcgAgAHYAMAAuARUAMwAgAGwAbwBhAGQAZQBkACEAIgApAAoAZgB1AG4AYwB0AGkAbwBuACAAYgBzAG8AZAAoAGEAcABwACwAbQBzAGcALAEdAHMAYwEiACABPgAgAHQBEQBtAC4AcwBlAHQAQgBhAGMAawBnAQkBJQBkAEMAbwEaAHIAKABjAVEBCgBzAC4AYgBsAHUAZQE9AT8BQQByAUMBRQB0AFQAZQB4AHQBUAFSAVQBVgByAVgAdwBoAGkBQQFeAT4BYAFDAGMBEABhAVMBcwFAAUIBRAFGAEMAdQFtAQoAUABvAHMAKAAxACwANQF7AQABAgEEACIAQQAgAGYAYQB0AGEAbAAgAREBCQESAGgAYQBzACAAbwBjAGMBgQEeASABiwEBAQMBBQEhAAoBPwAgAYwBpwEGAQgBCgAgAQIAIAAiACAALgAuATIAcAGlAY0BqAG7Aa4BBwGZACAAbQBlAHMAcwBhAGcAZQA6AbQBtgAuATYAZwG+AY4BqQGrAa0BjgHAAbEBOgBjAQEAcAEoASoBygG1AbcB2AHQAb0BqgE/AdQBBQBSAcQBeQEoAG4AZwGyASsANQAgAUUBVQEOAVgBtwHSAT8AcwEQAGUAcAAoAYoB5AE+AYUALgByAGUAYgBvAG8BBAEiAGUBDg==' data = frombase64(d) print('Where do you want to extract pos.zip?') dir = read() if dir:sub(1,1) ~= '/' then dir = '/'..fs.getDir(shell.getRunningProgram())..'/'..dir end fs.delete(dir) local i = 1 local path = '' while i <= #data do local c = data:byte(i) if c == 0 then i = i + 1 local l = data:byte(i) path = dir..'/'..data:sub(i + 1, i + l) i = i + l + 1 elseif c == 1 then i = i + 3 local l = data:byte(i - 2) * 65536 + data:byte(i - 1) * 256 + data:byte(i) local f = fs.open(path, 'w') f.write(lzw_decode(data:sub(i + 1, i + l))) f.close() i = i + l + 1 elseif c == 2 then fs.makeDir(path) i = i + 1 end end print('Extraced to '..dir..'.')
RAW Paste Data
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
 
Top