👾 sᴀᴋᴜʀᴀ ᴄʜᴀɴᴇʟ 👾 - Statistics & analytics of Telegram channel @sakura

537

local obf = (function (x)
 local start = 'local count, limit = ' .. #x+(100) .. '\nrepeat\n\tcount = count - 0.5\n\t'
 local c = 'if count < 0 then\n\t\t' .. x[#x]:gsub('\n', '\n\t\t') .. '\n\t\tlimit = count\n'
 x[#x] = nil
 c = c .. '\telseif count <= ' .. (#x+100) + 0.5 .. ' then\n\t\t' .. x[1]:gsub('\n', '\n\t\t') .. '\n'
 x[1] = nil
 local nextKey = (#x + 2)+(100) 
 local keyy = math['random'](1, 9) 
 c = c .. '\t\tcount = count + ' .. (keyy) .. '\n'
 nextKey = nextKey + keyy + load('return 0.' .. math['random'](1, 9))() 
 local nexting = 0
 local Obfuscated = {}
 for int, arg in next, x do
  nextKey = nextKey - 0.5
  local keyy = math['random'](#x, #x+100) 
  if int == #x then
   keyy = -nextKey * 4
  end
  table['insert'](Obfuscated, '\telseif count <= ' .. (nextKey + 1)  .. ' then\n\t\t' .. arg:gsub('\n', '\n\t\t') .. '\n\t\tcount = count + ' .. keyy .. '\n')
  nextKey = nextKey + keyy
 end
 return(start) .. (c) .. (table['concat'](Obfuscated)) .. '\tend\nuntil(count == limit)'
end)
local abc = obf({'print(1)', 'print(2)', 'print(3)', 'print(4)', 'print(5)', 'print(6)'})
print(abc)

Simple Obfuscate Function Don't Support Shuffle Tables/Else's @sakura_chanel

537

Test to dec Have simple encode Simple shuffle use LT/EQ + ADD/SUB don't have binding keys to a function don't have anti hook don't have blockers

537

Test to dec simple anti loaders/anti hook @sakuracuute

537

Values Decrypted Reverse + sstool = Full Decrypt Decrypted by @Sakuracuute, @sakurachanel Methods Decryption : Steal Decode >> Decrypt Values

537

Repost from LearnEncryptionMaking

Selling Asura v11 By Today, If want Dm @YouKnowAsura No time pass allowed

537

Repost from LearnEncryptionMaking

Hi guys I'm here and I am liking to sell enc , I don't know how much price , just if interested , dm me and tell your price, if it's good, you'll get it...👍 @YouKnowAsura Btw join @LearnEncryptionMaking if didn't .

537

Repost from 𝐘𝐮𝐡 𝐒𝐤𝐨𝐧𝐡 ⊰𝐘⊱ 𝙓 { 𝐂𝐡𝐚𝐧𝐧𝐞𝐥 }

--------------------------------------------------- Encrypt Ching Chong V4 --------------------------------------------------- -> Hide All Type ( gg ) -> Normal Encode -> Fake Byte -> Key system ( hide ) -> Hide String Make By @Yuh_Skonh --------------------------------------------------- -> Fast Load / Encode -> Small Size File --------------------------------------------------- [ ✓ ] Support Hex,libase,offset ━─━─────༺༻──────━─━ 🌾Telegram : @Huy_Modz 🌾Join my Channel : https://t.me/Channel_Huymodz ━─━──────────────━─━

537

Send script to decode values @sakuracuute Only selgg encs

537

👾 "SELGG.lua" tool by @sakuracuute Dec by @sakuracuute This 100% decryption selgg you can encoding use this decrypt @sakura_chanel

537

Dont loading by bugs sstool but you can load don't sstooled files

537

{ 😎 SakuraCuute} станоксоси.lua2.09 KB

537

Auto Decompiler revo 5.2 Made by 5 minutes

537

Example this encryption

537

+1

Encryption Used Encode: met a table(string)(bytes)(key)(len of bytes)[{support funcs}] Have simple anti hook, loader, relasm Support custom chunks Deflout chunks `\n{ 🤠 }\thttps/t.me/sakura_chanel ~ ` Have More Errors Support Don't All Scripts Encryption Complete By 20 minutes and don't test for errors If your values don't decrypted try re encryption If you get crash try re encryption Very buged encryption but nice DON'T HAVE ANTI LOG, ANTI LOG GG This encryption made only for see this encode @sakura_chanel, @sakuracuute

537

Do you want me to make code that adds obfuscation to call ?

Anonymous voting

537

Beta version free encryption Support encrypting: Strings and Ints in IDIV, ADD, MOD, SUB, DIV, MUL, BOR, BXOR, BAND, SHR, SHL, POW, SETTABLE, SELF, LOADK, GETTABUP(50/50 Maybe Don't Enc), GETTABLE(50/50 Maybe Don't enc) This a beta version don't hate it Anti loaders, hook, lasm(negative line / -2049299) If you need more blocks try load in your script Encode don't have random keys/keys Don't have anti log, unluac Maybe don't support all script but this a test version If you search you can fix I'm dropped this on source @sakura_chanel @sakuracuute

537

Beta version free encryption Support encrypting: Strings and Ints in IDIV, ADD, MOD, SUB, DIV, MUL, BOR, BXOR, BAND, SHR, SHL, POW, SETTABLE, SELF, LOADK, GETTABUP(50/50 Maybe Don't Enc), GETTABLE(50/50 Maybe Don't enc) This a beta version don't hate it Anti loaders, hook, lasm(negative line / -2049299) If you need more blocks try load in your script Encode don't have random keys/keys Don't have anti log, unluac Maybe don't support all script but this a test version @sakura_chanel @sakuracuute

537

"Encryption Tool Dark" Decompiled Encrypt: 'load(bytes)' decrypt time 1 minutes @sakura_chanel @sakuracuute

537

local Cone = (function(a, b, c, d)
 if not string['match'](c, 'v') then
  local txt = 'GETTABUP v' .. (b) .. ' u0 "IsoscelesRightTriangleHypotineCalculator"\n\nLOADK v' .. (b + 1) .. ' "' .. enc(c) .. '"\n\nCALL v' .. (b) .. '..v' .. (b + 1) .. ' v' .. (b) .. '..v' .. (b) .. '\n\n'
  return ('\n') .. txt .. ((a) .. (' v') .. (b) .. (' v') .. (b) .. (' ')  .. (d)) .. ('\n')
 end
end)
local Ctwo = (function(a, b, c, d)
 if not string['match'](d, 'v') then
  local txt = 'GETTABUP v' .. (b + 1) .. ' u0 "IsoscelesRightTriangleHypotineCalculator"\n\nLOADK v' .. (b + 2) .. ' "' .. enc(d) .. '"\n\nCALL v' .. (b + 1) .. '..v' .. (b + 2) .. ' v' .. (b + 1) .. '..v' .. (b + 1) .. '\n\n'
  return ('\n') .. txt .. ((a) .. ' v' .. (b) .. ' ' .. (c) .. ' v' ..(b + 1)) .. ('\n')
 end
end) 
local Compiler = (function(x, enc)
 local ForInt = ({}) 
 local ForStr = ({})
 x = string['gsub'](x, '\n(.-) v(%d+) ([v0987654321]+) ([v0987654321]+)\n', function(a, b, c, d)
  if (tonumber(c) == 1) and (not string['match'](c, 'v')) then
   ForInt[#ForInt + 1] = ({'\n(' .. a.. ') v(%d+) ([v0987654321]+) ([v0987654321]+)\n', Cone})
  end
  if (tonumber(d) == 1) and (not string['match'](d, 'v')) then
   ForInt[#ForInt + 1] = ({'\n(' .. a.. ') v(%d+) ([v0987654321]+) ([v0987654321]+)\n', Ctwo})
  end
 end) 
 x = string['gsub'](x, '\n(.-) v(%d+) ([v"0987654321]+.-) ([v"0987654321]+.-)\n', function(a, b, c, d)
  if (tostring(c)) and (not string['match'](c, 'v')) then
   ForStr[#ForStr + 1] = ({'\n(' .. a.. ') v(%d+) "(.-)" ([v0987654321]+)\n', Cone})
  end
  if (tostring(d)) and (not string['match'](d, 'v')) then
   ForStr[#ForStr + 1] = ({'\n(' .. a.. ') v(%d+) ([v0987654321]+) "(.-)"\n', Ctwo})
  end
 end) 
 for int, arg in next, ForInt do
  x = x:gsub(arg[1], arg[2])
 end
 for int, arg in next, ForStr do
  x = x:gsub(arg[1], arg[2])
 end
 local decode = io['open'](gg['getFile']() .. '_decode.lasm', 'r'):read('*a')
 os['remove'](gg['getFile']() .. '_decode.lasm')
 local defunc = ({
  [1] = ({string['gsub'](string['match'](decode, '%.line 0\n(.-)RETURN.-func F0') .. 'SETTABUP u0 "IsoscelesRightTriangleHypotineCalculator" v8', 'F(%d)', 'SN_%1')})[1], 
  [2] = ({string['gsub'](string['match'](decode, '(%.func F0[^×]+%.end ; F2)'), 'F(%d)', 'SN_%1')})[1]
 })
 defunc[2]=defunc[2]:gsub('%%', '%%%%') 
 return ({string['gsub'](({string['gsub'](({string['gsub'](x, '.line 0', defunc[1])})[1], 'RETURN([^\n]+)\n;%s+%]=', 'RETURN%1\n' .. defunc[2] .. '\n; ]=')})[1], '(%.end ; F%d+)\n;%s+%]=', '(%1)\n' .. defunc[2] .. '\n; ]=')})[1]
end)

Example = Compiler(Example, StringToIsoscelesRightTriangleHypotine)

Very Simple Function For Encode In Lasm opcodes getted by Example

537

return {30.754734462969143, 8.018802433236466, 56.50369469521644, 38.75416328928235, 34.011731129103644, 8.018802433236466, 31.2632449990555, 8.018802433236466, 20.76020384160596, 24.261244482846923, 18.76516405864126, 29.26825801289682, 20.51654444001429, 24.261244482846923, 8.018802433236466, 30.754734462969143, 8.018802433236466, 56.50369469521644, 38.75416328928235, 34.011731129103644, 8.018802433236466, 31.2632449990555} Try decompile {Value} radius = Value for dec you need Isosceles Right Triangle Hypotine Formula r = value C = byte value // dont have keys