Skip to content

Instantly share code, notes, and snippets.

@JavaScript-Packer

JavaScript-Packer/LZ-string.asp

Created January 27, 2016 23:07
Show Gist options
  • Save JavaScript-Packer/34a7a4d633a00503aa2a to your computer and use it in GitHub Desktop.
Save JavaScript-Packer/34a7a4d633a00503aa2a to your computer and use it in GitHub Desktop.
Download ZIP
LZ-string.asp
Raw
LZ-string.asp
<!DOCTYPE html><html><head></head><body><script><%
'on error resume next
dim str,zapped,unzapped
str="function randomSite() {\n var tempWebSite, tempValueSetting, onlineWebsiteURL = new Array();\n onlineWebsiteURL[0] = 'http://www.WHAK.com';\n onlineWebsiteURL[1] = 'http://www.ScriptCompress.com';\n onlineWebsiteURL[2] = 'http://www.Trollize.com';\n onlineWebsiteURL[3] = 'http://www.Holy-Bibles.com';\n onlineWebsiteURL[4] = 'http://www.Make-A-Meme.com';\n onlineWebsiteURL[5] = 'http://www.BoobSigns.com';\n onlineWebsiteURL[6] = 'http://www.SeekFreak.com';\n onlineWebsiteURL[7] = 'http://www.Is-A-Jerk.com';\n onlineWebsiteURL[8] = 'http://www.HolyBibleVerse.com';\n onlineWebsiteURL[9] = 'http://www.HolyBibleSearch.com';\n onlineWebsiteURL[10] = 'http://www.SirSeek.com';\n onlineWebsiteURL[11] = 'http://www.TXT2PIC.com';\n onlineWebsiteURL[12] = 'http://www.13KG.com';\n onlineWebsiteURL[13] = 'http://www.Nerdful.com';\n onlineWebsiteURL[14] = 'http://www.FanSignGenerator.com';\n onlineWebsiteURL[15] = 'http://www.Holy-Bibles.org';\n onlineWebsiteURL[16] = 'http://www.VirtualHolyBible.com';\n onlineWebsiteURL[17] = 'http://www.BibleThumper.net';\n onlineWebsiteURL[18] = 'http://www.GIFSTA.com';\n onlineWebsiteURL[19] = 'http://www.JavaScriptCrypt.com';\n tempValueSetting = Math.floor(Math.random() * onlineWebsiteURL.length);\n return onlineWebsiteURL[tempValueSetting];\n}\n\ntempWebSite = randomSite();\n\nalert(randomSite());"
zapped=WHAK_com(str)
unzapped=un_WHAK_com(zapped)
Response.Write("document.write(""<textarea rows=8 cols=88 onmouseover=this.select()>"&unzapped&"</textarea><br>"");")
Response.Write("document.write("""&unzapped&""".length+' bytes.<p></p>');")
Response.Write("document.write('<textarea rows=8 cols=88 onmouseover=this.select()>"&zapped&"</textarea>'+'<br>');" & vbCrLf)
Response.Write("document.write('"&zapped&"'.length+' bytes!<p></p>');" & vbCrLf)
%></script></body></html><SCRIPT LANGUAGE="JScript" RUNAT="Server">
function un_WHAK_com(a){var b="\x57\x48\x41\x4b\x2e\x63\x6f\x6d\x2f\x50\x61\x43\x6b\x65\x72 \this_BSVb3M6,Nt4jlnx2-pqTIy1JLEd~gFU5GufRvwD;z0OQ",c="charAt",d="length",e="charCodeAt",f=String.fromCharCode,g=Math.pow,h="indexOf",i=32768,j,k,l,m,n,o,p,q,r,s,t,u="",v=0,w=0;for(a=a.replace(/[^A-W_\t a-z0-6,;.\-\/~]/g,"");w<a[d];)k=b[h](a[c](w++)),l=b[h](a[c](w++)),n=b[h](a[c](w++)),o=b[h](a[c](w++)),k=k<<2|l>>4,l=(15&l)<<4|n>>2,m=(3&n)<<6|o,0==v%2?(j=k<<8,64!=n&&(u+=f(j|l)),64!=o&&(j=m<<8)):(u+=f(j|k),64!=n&&(j=l<<8),64!=o&&(u+=f(j|m))),v+=3;a:{a=u;m=[];o=n=4;v=3;r=a[e](0);s=i;t=1;for(q=0;3>q;q+=1)m[q]=q;w=0;k=g(2,2);for(l=1;l!=k;)j=r&s,s>>=1,0==s&&(s=i,r=a[e](t++)),w|=(0<j?1:0)*l,l<<=1;switch(w){case 0:w=0;k=g(2,8);for(l=1;l!=k;)j=r&s,s>>=1,0==s&&(s=i,r=a[e](t++)),w|=(0<j?1:0)*l,l<<=1;p=f(w);break;case 1:w=0;k=g(2,16);for(l=1;l!=k;)j=r&s,s>>=1,0==s&&(s=i,r=a[e](t++)),w|=(0<j?1:0)*l,l<<=1;p=f(w);break;case 2:a="";break a}for(u=q=m[3]=p;;){w=0;k=g(2,v);for(l=1;l!=k;)j=r&s,s>>=1,0==s&&(s=i,r=a[e](t++)),w|=(0<j?1:0)*l,l<<=1;switch(p=w){case 0:w=0;k=g(2,8);for(l=1;l!=k;)j=r&s,s>>=1,0==s&&(s=i,r=a[e](t++)),w|=(0<j?1:0)*l,l<<=1;m[o++]=f(w);p=o-1;n--;break;case 1:w=0;k=g(2,16);for(l=1;l!=k;)j=r&s,s>>=1,0==s&&(s=i,r=a[e](t++)),w|=(0<j?1:0)*l,l<<=1;m[o++]=f(w);p=o-1;n--;break;case 2:a=q;break a}0==n&&(n=g(2,v),v++);w=m[p]?m[p]:u+u[c](0);q+=w;m[o++]=u+w[c](0);n--;u=w;0==n&&(n=g(2,v),v++)}}return a}
function WHAK_com(a){var b="\x57\x48\x41\x4b\x2e\x63\x6f\x6d\x2f\x50\x61\x43\x6b\x65\x72 \this_BSVb3M6,Nt4jlnx2-pqTIy1JLEd~gFU5GufRvwD;z0OQ",c="charAt",d="length",e="charCodeAt",f=String.fromCharCode,g=Math.pow,h=function(a,b){return Object.prototype.hasOwnProperty.call(a,b)},i,j,k,l,m,n,o,p="",q=0;n={};o={};for(var r="",s="",t="",u=2,v=3,w=2,x="",y=0,z=0,A=f,B=0;B<a[d];B+=1)if(r=a[c](B),h(n,r)||(n[r]=v++,o[r]=!0),s=t+r,h(n,s))t=s;else{if(h(o,t)){if(256>t[e](0)){for(l=0;w>l;l++)y<<=1,15==z?(z=0,x+=A(y),y=0):z++;m=t[e](0);for(l=0;8>l;l++)y=y<<1|1&m,15==z?(z=0,x+=A(y),y=0):z++,m>>=1}else{m=1;for(l=0;w>l;l++)y=y<<1|m,15==z?(z=0,x+=A(y),y=0):z++,m=0;m=t[e](0);for(l=0;16>l;l++)y=y<<1|1&m,15==z?(z=0,x+=A(y),y=0):z++,m>>=1}u--;0==u&&(u=g(2,w),w++);delete o[t]}else for(m=n[t],l=0;w>l;l++)y=y<<1|1&m,15==z?(z=0,x+=A(y),y=0):z++,m>>=1;u--;0==u&&(u=g(2,w),w++);n[s]=v++;t=r+""}if(""!==t){if(h(o,t)){if(256>t[e](0)){for(l=0;w>l;l++)y<<=1,15==z?(z=0,x+=A(y),y=0):z++;m=t[e](0);for(l=0;8>l;l++)y=y<<1|1&m,15==z?(z=0,x+=A(y),y=0):z++,m>>=1}else{m=1;for(l=0;w>l;l++)y=y<<1|m,15==z?(z=0,x+=A(y),y=0):z++,m=0;m=t[e](0);for(l=0;16>l;l++)y=y<<1|1&m,15==z?(z=0,x+=A(y),y=0):z++,m>>=1}u--;0==u&&(u=g(2,w),w++);delete o[t]}else for(m=n[t],l=0;w>l;l++)y=y<<1|1&m,15==z?(z=0,x+=A(y),y=0):z++,m>>=1;u--;0==u&&(g(2,w),w++)}m=2;for(l=0;w>l;l++)y=y<<1|1&m,15==z?(z=0,x+=A(y),y=0):z++,m>>=1;for(;;){if(y<<=1,15==z){x+=A(y);break}z++}for(a=x;q<2*a[d];)0==q%2?(i=a[e](q/2)>>8,j=255&a[e](q/2),k=q/2+1<a[d]?a[e](q/2+1)>>8:0/0):(i=255&a[e]((q-1)/2),(q+1)/2<a[d]?(j=a[e]((q+1)/2)>>8,k=255&a[e]((q+1)/2)):j=k=0/0),q+=3,l=i>>2,m=(3&i)<<4|j>>4,n=(15&j)<<2|k>>6,o=63&k,isNaN(j)?n=o=64:isNaN(k)&&(o=64),p=p+b[c](l)+b[c](m)+b[c](n)+b[c](o);return p}
</SCRIPT>
<%response.end%>
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment