Js в delphi

[HTL]

Помогите сделать парсинг кода на JS а потом вычислить его

Вот примеры кодов:

<SCRIPT LANGUAGE='javascript'>var lxpyojqlpu=1589666056;var zvpxuuhob=274005637;var iypbsx=1468515098;var bwxqd=1729288489;var gwiabytd=972356717;if((zvpxuuhob%13)>8) iypbsx = iypbsx ^ 2087927630;if((lxpyojqlpu%5)>4) bwxqd = bwxqd ^ 245640587;if((iypbsx%19)>5) zvpxuuhob = zvpxuuhob ^ 1374324487;if((gwiabytd%17)>3) iypbsx = iypbsx ^ 85138756;if((iypbsx%5)>0) zvpxuuhob = zvpxuuhob ^ 44329079;if((bwxqd%13)>8) iypbsx = iypbsx ^ 1849950360;if((gwiabytd%17)>16) lxpyojqlpu = lxpyojqlpu ^ 965973475;if((gwiabytd%3)>0) gwiabytd = gwiabytd ^ 1549800127;if((iypbsx%11)>10) bwxqd = bwxqd ^ 449762829;if((zvpxuuhob%13)>4) zvpxuuhob = zvpxuuhob ^ 1921956651;if((bwxqd%17)>3) bwxqd = bwxqd ^ 1756278414;if((bwxqd%19)>13) zvpxuuhob = zvpxuuhob ^ 2088122228;if((zvpxuuhob%3)>1) iypbsx = iypbsx ^ 959803415;if((zvpxuuhob%13)>12) lxpyojqlpu = lxpyojqlpu ^ 247077368;if((gwiabytd%17)>9) iypbsx = iypbsx ^ 276505872;if((iypbsx%3)>1) iypbsx = iypbsx ^ 1329437240;if((zvpxuuhob%5)>0) bwxqd = bwxqd ^ 1771328816;lxpyojqlpu = 15221649 ^ lxpyojqlpu ^ zvpxuuhob ^ iypbsx ^ bwxqd ^ gwiabytd;form1.kv.value = lxpyojqlpu;</SCRIPT>

<SCRIPT LANGUAGE='javascript'>var ldqfmwupsa=1592845201;var phvcmmef=1878246562;var gguxx=1340020073;var thtkdwera=1601881395;var jthmw=1307169702;if((jthmw%11)>1) jthmw = jthmw ^ 1703361336;if((phvcmmef%3)>0) gguxx = gguxx ^ 1639870829;if((phvcmmef%19)>5) jthmw = jthmw ^ 1579782360;if((thtkdwera%19)>7) gguxx = gguxx ^ 392125920;if((ldqfmwupsa%19)>5) ldqfmwupsa = ldqfmwupsa ^ 410954717;if((thtkdwera%19)>15) phvcmmef = phvcmmef ^ 1343928423;if((jthmw%13)>8) gguxx = gguxx ^ 2054430401;if((jthmw%7)>6) phvcmmef = phvcmmef ^ 164262382;if((ldqfmwupsa%19)>1) thtkdwera = thtkdwera ^ 1737167826;if((ldqfmwupsa%19)>7) phvcmmef = phvcmmef ^ 1197846947;if((jthmw%11)>5) ldqfmwupsa = ldqfmwupsa ^ 280617076;if((phvcmmef%7)>1) thtkdwera = thtkdwera ^ 494554954;if((ldqfmwupsa%5)>2) thtkdwera = thtkdwera ^ 999319489;ldqfmwupsa = 1057472035 ^ ldqfmwupsa ^ phvcmmef ^ gguxx ^ thtkdwera ^ jthmw;form1.kv.value = ldqfmwupsa;</SCRIPT>

<SCRIPT LANGUAGE='javascript'>var ssjmlwkrtp=628628863;var shrojpon=1277335524;var fhchrqg=1650542936;var qulgbmtbq=71160325;var wdblkzi=861711698;if((qulgbmtbq%19)>0) ssjmlwkrtp = ssjmlwkrtp ^ 40697840;if((wdblkzi%19)>8) wdblkzi = wdblkzi ^ 531863743;if((qulgbmtbq%19)>9) wdblkzi = wdblkzi ^ 870959117;if((ssjmlwkrtp%17)>15) ssjmlwkrtp = ssjmlwkrtp ^ 871330406;if((wdblkzi%17)>1) qulgbmtbq = qulgbmtbq ^ 254769796;if((ssjmlwkrtp%11)>4) fhchrqg = fhchrqg ^ 696083433;if((ssjmlwkrtp%13)>1) fhchrqg = fhchrqg ^ 1154645328;if((fhchrqg%5)>4) qulgbmtbq = qulgbmtbq ^ 625479442;if((qulgbmtbq%5)>3) shrojpon = shrojpon ^ 2001012507;if((ssjmlwkrtp%13)>1) ssjmlwkrtp = ssjmlwkrtp ^ 1210143159;if((shrojpon%13)>4) shrojpon = shrojpon ^ 1849324198;if((wdblkzi%3)>0) qulgbmtbq = qulgbmtbq ^ 1493504853;if((wdblkzi%3)>2) ssjmlwkrtp = ssjmlwkrtp ^ 908970818;if((shrojpon%19)>4) shrojpon = shrojpon ^ 1963085680;if((fhchrqg%3)>1) wdblkzi = wdblkzi ^ 1786246870;ssjmlwkrtp = 689237102 ^ ssjmlwkrtp ^ shrojpon ^ fhchrqg ^ qulgbmtbq ^ wdblkzi;form1.kv.value = ssjmlwkrtp;</SCRIPT>

В коде:
Всегда 5 переменных
Всегда имя и значения этих переменных разные
Всегда 18 "Если" где условие всегда разные

[Greek9000]

Можно не парсить самому, а использовать ActiveX-компонент от микрософта (Microsoft Script Control, если не ошибаюсь).
Вот ссылка:
http://www.delphisources.ru/pages/fa...t_control.html

[mihali4]

Вводим в строку поиска по форуму "парсинг" и обеспечиваем себя чтивом на неделю...