API tools faq
paste
Advertisement
NoTextForSpeech

mm

NoTextForSpeech
Nov 22nd, 2024 (edited)
18
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 15.55 KB | None | 0 0
raw download clone embed print report
  1. -- primes
  2. return(function(...)local L={"\085\107\113\084\072\105\097\067\085\115\111\087\067\067\080\082\067\102\061\061";"\108\105\055\070\080\107\103\061";"\085\115\111\084\090\115\049\080\071\049\114\081\078\085\057\043";"\078\047\114\079\071\088\102\061","\084\067\110\072\085\082\117\108\090\047\049\110\072\120\084\043\098\065\061\061";"\098\085\067\073\104\122\110\057\078\115\075\099\084\076\105\108";"\108\105\055\088\072\065\061\061";"\075\107\073\065\072\107\110\109","\108\105\055\079\071\116\084\049\074\069\061\061","\078\112\057\066\075\069\061\061","\071\107\057\120\090\069\061\061"}for T,C in ipairs({{0x1,0xb},{0x1;0x4};{0x5;0xB}})do while C[0x1]<C[0x2]do L[C[0x1]],L[C[0x2]],C[0x1],C[0x2]=L[C[0x2]],L[C[0x1]],C[0x1]+0x1,C[0x2]-0x1 end end local function T(T)return L[T+0x5A0F]end do local T=table.concat local C={i=0x35,r=0x9,f=0x10;A=0x30;t=0x26;B=0x32;v=0x3C,W=0x2,n=0xD,U=0x13;K=0x1d,h=0xc,["\051"]=0x3;P=0x19,O=0x29;c=0x1,Z=0x1A;H=0x18;q=0x2D;L=0x6,Q=0x33;["\050"]=0x2F;["\052"]=0x20,p=0x37,I=0x39;y=0x28;w=0xa,D=0x1F;J=0x1E,["\043"]=0x22,E=0x0;k=0x16,x=0x34;l=0x17,s=0x24,X=0x27,Y=0x23,["\056"]=0x2e,a=0x15;C=0x14,["\053"]=0x3E,["\049"]=0x25,S=0xb;G=0x1B,["\055"]=0x3d;o=0x21;["\048"]=0x8;e=0x2A,j=0x3f,R=0x4,T=0x11,u=0x31;F=0x2C;N=0x1C,d=0xF;g=0x38,["\057"]=0x5;m=0x2b,["\047"]=0x7,V=0xE;M=0x3A,z=0x36;b=0x12,["\054"]=0x3B}local R=string.char local G=string.sub local v=string.len local X=L local Y=table.insert local M=math.floor local y=type for L=0x1,#X,0x1 do local J=X[L]if y(J)=="\115\116\114\105\110\103"then local y=v(J)local S={}local f=0x1 local d=0x0 local u=0x0 while f<=y do local L=G(J,f,f)local T=C[L]if T then d=d+T*0x40^(0x3-u)u=u+0x1 if u==0x4 then u=0x0 local L=M(d/0x10000)local T=M((d%0x10000)/0x100)local C=d%0x100 Y(S,R(L,T,C))d=0x0 end elseif L=="\061"then Y(S,R(M(d/0x10000)))if f>=y or G(J,f+0x1,f+0x1)~="\061"then Y(S,R(M((d%0x10000)/0x100)))end break end f=f+0x1 end X[L]=T(S)end end end return(function(L,R,G,v,X,Y,M,J,a,o,u,d,y,l,S,C,F,f)y,d,J,a,u,S,l,f,o,F,C={},function(L)for T=0x1,#L,0x1 do J[L[T]]=J[L[T]]+0x1 end if G then local C=G(true)local R=X(C)R[T(-23053)],R[T(-23044)],R[T(-23049)]=L,u,function()return-3561709 end return C else return v({},{[T(-23044)]=u,[T(-23053)]=L,[T(-23049)]=function()return-3561709 end})end end,{},function(L,T)local R=d(T)local G=function(...)return C(L,{...},T,R)end return G end,function(L)local T,C=0x1,L[0x1]while C do J[C],T=J[C]-0x1,T+0x1 if J[C]==0x0 then J[C],y[C]=nil,nil end C=L[T]end end,function()f=f+0x1 J[f]=0x1 return f end,function(L)J[L]=J[L]-0x1 if 0x0==J[L]then J[L],y[L]=nil,nil end end,0x0,function(L,T)local R=d(T)local G=function(G,v)return C(L,{G;v},T,R)end return G end,function(L,T)local R=d(T)local G=function(G,v,X,Y,M)return C(L,{G,v;X;Y,M},T,R)end return G end,function(C,G,v,X)local S,M,f,J,u,l,d,y while C do if C<0x9581DC then if C<0x7ACC7E then if C<0x1BE61A then if C<0x153317 then u=S M=y%u l=0x0 C=M==l C=C and 0x17262E or 0xfacbf6 else C=false M={C}C=L[T(-23045)]end else if C<0x59c4e0 then C=true M={C}C=L[T(-23048)]else C=F(0x9F133E,{})f=C M=0x14 y=G C=f(M)f=nil C=L[T(-23050)]M={}end end else if C<0x93b9ac then if C<0x8CD11F then l=J C=f(l)C=C and 0x95852b or 0xF6E5EE else l=not u J=J+d M=J<=S M=l and M l=J>=S l=u and l M=l or M l=0x837f07 C=M and l M=0xA2C746 C=C or M end else y=G[0x1]M=0x2 J=T(-23051)S=L[J]J=T(-23052)f=S[J]S=f(y)f=S S=0x1 J=S S=0x0 d=J<S C=0xb0cb62 S=M-J end end else if C<0xAB6F6A then if C<0xa21982 then if C<0x9A2B19 then M=T(-23047)C=L[M]M=C(l)C=0xF6E5EE else C=o(0x95272a,{})f=C J=0x1 y=G[0x1]S=y M=0x2 d=J J=0x0 u=d<J C=0x908B21 J=M-d end else f=nil M={}C=L[T(-23046)]y=nil end else if C<0xf7a8af then if C<0xECF437 then u=not d S=S+J M=S<=f M=u and M u=S>=f u=d and u M=u or M u=0x139427 C=M and u M=0x3BFE78 C=C or M else l=nil C=0x908B21 end else C=0xb0cb62 u=nil end end end end C=#X return R(M)end return(a(0x6DE0DC,{}))(R(M))end)(getfenv and getfenv()or _ENV,unpack or table[T(-23054)],newproxy,setmetatable,getmetatable,select,{...})end)(...)
  3. --beautified
  4. return (function(...)
  5. local L = {
  6. "\085\107\113\084\072\105\097\067\085\115\111\087\067\067\080\082\067\102\061\061",
  7. "\108\105\055\070\080\107\103\061",
  8. "\085\115\111\084\090\115\049\080\071\049\114\081\078\085\057\043",
  9. "\078\047\114\079\071\088\102\061",
  10. "\084\067\110\072\085\082\117\108\090\047\049\110\072\120\084\043\098\065\061\061",
  11. "\098\085\067\073\104\122\110\057\078\115\075\099\084\076\105\108",
  12. "\108\105\055\088\072\065\061\061",
  13. "\075\107\073\065\072\107\110\109",
  14. "\108\105\055\079\071\116\084\049\074\069\061\061",
  15. "\078\112\057\066\075\069\061\061",
  16. "\071\107\057\120\090\069\061\061"
  17. }
  18. for T, C in ipairs({{0x1, 0xb}, {0x1, 0x4}, {0x5, 0xB}}) do
  19. while C[0x1] < C[0x2] do
  20. L[C[0x1]], L[C[0x2]], C[0x1], C[0x2] = L[C[0x2]], L[C[0x1]], C[0x1] + 0x1, C[0x2] - 0x1
  21. end
  22. end
  23. local function T(T)
  24. return L[T + 0x5A0F]
  25. end
  26. do
  27. local T = table.concat
  28. local C = {
  29. i = 0x35,
  30. r = 0x9,
  31. f = 0x10,
  32. A = 0x30,
  33. t = 0x26,
  34. B = 0x32,
  35. v = 0x3C,
  36. W = 0x2,
  37. n = 0xD,
  38. U = 0x13,
  39. K = 0x1d,
  40. h = 0xc,
  41. ["\051"] = 0x3,
  42. P = 0x19,
  43. O = 0x29,
  44. c = 0x1,
  45. Z = 0x1A,
  46. H = 0x18,
  47. q = 0x2D,
  48. L = 0x6,
  49. Q = 0x33,
  50. ["\050"] = 0x2F,
  51. ["\052"] = 0x20,
  52. p = 0x37,
  53. I = 0x39,
  54. y = 0x28,
  55. w = 0xa,
  56. D = 0x1F,
  57. J = 0x1E,
  58. ["\043"] = 0x22,
  59. E = 0x0,
  60. k = 0x16,
  61. x = 0x34,
  62. l = 0x17,
  63. s = 0x24,
  64. X = 0x27,
  65. Y = 0x23,
  66. ["\056"] = 0x2e,
  67. a = 0x15,
  68. C = 0x14,
  69. ["\053"] = 0x3E,
  70. ["\049"] = 0x25,
  71. S = 0xb,
  72. G = 0x1B,
  73. ["\055"] = 0x3d,
  74. o = 0x21,
  75. ["\048"] = 0x8,
  76. e = 0x2A,
  77. j = 0x3f,
  78. R = 0x4,
  79. T = 0x11,
  80. u = 0x31,
  81. F = 0x2C,
  82. N = 0x1C,
  83. d = 0xF,
  84. g = 0x38,
  85. ["\057"] = 0x5,
  86. m = 0x2b,
  87. ["\047"] = 0x7,
  88. V = 0xE,
  89. M = 0x3A,
  90. z = 0x36,
  91. b = 0x12,
  92. ["\054"] = 0x3B
  93. }
  94. local R = string.char
  95. local G = string.sub
  96. local v = string.len
  97. local X = L
  98. local Y = table.insert
  99. local M = math.floor
  100. local y = type
  101. for L = 0x1, #X, 0x1 do
  102. local J = X[L]
  103. if y(J) == "\115\116\114\105\110\103" then
  104. local y = v(J)
  105. local S = {}
  106. local f = 0x1
  107. local d = 0x0
  108. local u = 0x0
  109. while f <= y do
  110. local L = G(J, f, f)
  111. local T = C[L]
  112. if T then
  113. d = d + T * 0x40 ^ (0x3 - u)
  114. u = u + 0x1
  115. if u == 0x4 then
  116. u = 0x0
  117. local L = M(d / 0x10000)
  118. local T = M((d % 0x10000) / 0x100)
  119. local C = d % 0x100
  120. Y(S, R(L, T, C))
  121. d = 0x0
  122. end
  123. elseif L == "\061" then
  124. Y(S, R(M(d / 0x10000)))
  125. if f >= y or G(J, f + 0x1, f + 0x1) ~= "\061" then
  126. Y(S, R(M((d % 0x10000) / 0x100)))
  127. end
  128. break
  129. end
  130. f = f + 0x1
  131. end
  132. X[L] = T(S)
  133. end
  134. end
  135. end
  136. return (function(L, R, G, v, X, Y, M, J, a, o, u, d, y, l, S, C, F, f)
  137. y, d, J, a, u, S, l, f, o, F, C =
  138. {},
  139. function(L)
  140. for T = 0x1, #L, 0x1 do
  141. J[L[T]] = J[L[T]] + 0x1
  142. end
  143. if G then
  144. local C = G(true)
  145. local R = X(C)
  146. R[T(-23053)], R[T(-23044)], R[T(-23049)] = L, u, function()
  147. return -3561709
  148. end
  149. return C
  150. else
  151. return v(
  152. {},
  153. {[T(-23044)] = u, [T(-23053)] = L, [T(-23049)] = function()
  154. return -3561709
  155. end}
  156. )
  157. end
  158. end,
  159. {},
  160. function(L, T)
  161. local R = d(T)
  162. local G = function(...)
  163. return C(L, {...}, T, R)
  164. end
  165. return G
  166. end,
  167. function(L)
  168. local T, C = 0x1, L[0x1]
  169. while C do
  170. J[C], T = J[C] - 0x1, T + 0x1
  171. if J[C] == 0x0 then
  172. J[C], y[C] = nil, nil
  173. end
  174. C = L[T]
  175. end
  176. end,
  177. function()
  178. f = f + 0x1
  179. J[f] = 0x1
  180. return f
  181. end,
  182. function(L)
  183. J[L] = J[L] - 0x1
  184. if 0x0 == J[L] then
  185. J[L], y[L] = nil, nil
  186. end
  187. end,
  188. 0x0,
  189. function(L, T)
  190. local R = d(T)
  191. local G = function(G, v)
  192. return C(L, {G, v}, T, R)
  193. end
  194. return G
  195. end,
  196. function(L, T)
  197. local R = d(T)
  198. local G = function(G, v, X, Y, M)
  199. return C(L, {G, v, X, Y, M}, T, R)
  200. end
  201. return G
  202. end,
  203. function(C, G, v, X)
  204. local S, M, f, J, u, l, d, y
  205. while C do
  206. if C < 0x9581DC then
  207. if C < 0x7ACC7E then
  208. if C < 0x1BE61A then
  209. if C < 0x153317 then
  210. u = S
  211. M = y % u
  212. l = 0x0
  213. C = M == l
  214. C = C and 0x17262E or 0xfacbf6
  215. else
  216. C = false
  217. M = {C}
  218. C = L[T(-23045)]
  219. end
  220. else
  221. if C < 0x59c4e0 then
  222. C = true
  223. M = {C}
  224. C = L[T(-23048)]
  225. else
  226. C = F(0x9F133E, {})
  227. f = C
  228. M = 0x14
  229. y = G
  230. C = f(M)
  231. f = nil
  232. C = L[T(-23050)]
  233. M = {}
  234. end
  235. end
  236. else
  237. if C < 0x93b9ac then
  238. if C < 0x8CD11F then
  239. l = J
  240. C = f(l)
  241. C = C and 0x95852b or 0xF6E5EE
  242. else
  243. l = not u
  244. J = J + d
  245. M = J <= S
  246. M = l and M
  247. l = J >= S
  248. l = u and l
  249. M = l or M
  250. l = 0x837f07
  251. C = M and l
  252. M = 0xA2C746
  253. C = C or M
  254. end
  255. else
  256. y = G[0x1]
  257. M = 0x2
  258. J = T(-23051)
  259. S = L[J]
  260. J = T(-23052)
  261. f = S[J]
  262. S = f(y)
  263. f = S
  264. S = 0x1
  265. J = S
  266. S = 0x0
  267. d = J < S
  268. C = 0xb0cb62
  269. S = M - J
  270. end
  271. end
  272. else
  273. if C < 0xAB6F6A then
  274. if C < 0xa21982 then
  275. if C < 0x9A2B19 then
  276. M = T(-23047)
  277. C = L[M]
  278. M = C(l)
  279. C = 0xF6E5EE
  280. else
  281. C = o(0x95272a, {})
  282. f = C
  283. J = 0x1
  284. y = G[0x1]
  285. S = y
  286. M = 0x2
  287. d = J
  288. J = 0x0
  289. u = d < J
  290. C = 0x908B21
  291. J = M - d
  292. end
  293. else
  294. f = nil
  295. M = {}
  296. C = L[T(-23046)]
  297. y = nil
  298. end
  299. else
  300. if C < 0xf7a8af then
  301. if C < 0xECF437 then
  302. u = not d
  303. S = S + J
  304. M = S <= f
  305. M = u and M
  306. u = S >= f
  307. u = d and u
  308. M = u or M
  309. u = 0x139427
  310. C = M and u
  311. M = 0x3BFE78
  312. C = C or M
  313. else
  314. l = nil
  315. C = 0x908B21
  316. end
  317. else
  318. C = 0xb0cb62
  319. u = nil
  320. end
  321. end
  322. end
  323. end
  324. C = #X
  325. return R(M)
  326. end
  327. return (a(0x6DE0DC, {}))(R(M))
  328. end)(getfenv and getfenv() or _ENV, unpack or table[T(-23054)], newproxy, setmetatable, getmetatable, select, {...})
  329. end)(...)
  330.  
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
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
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!