[Sky.NET]

Есть js файл с таким содержимым:

Код:

eval(unescape("eval(function(p%2ca%2cc%2ck%2ce%2cd)%7bwhile(c--)if(k%5bc%5d)p%3dp.replace(new RegExp('%5c%5cb'%2bc.toString(a)%2b'%5c%5cb'%2c'g')%2ck%5bc%5d)%3breturn p%3b%7d('4 9(3)%7bb(a(3)%3d%3d%222-8-7-5-6%22)1 e%3bd 1 0%7d4 c()%7b1%222-8-7-5-6%22%7d'%2c15%2c15%2c'%7creturn%7c30a2f847%7cAnswers%7cfunction%7c9700%7c983c128eaba7%7c4da7%7cb6fa%7cCheckAnswer%7cGetUserAnswer%7cif%7cGetWriteAnswer%7celse%7c100'.split('%7c')))%0a"))

Как его расшифровать в Delphi?
Пользовался поиском, но ничего толком не нашёл.