VBNet - Форум - Перевод кода из JavaScript в VB.Net

Вопрос: Перевод кода из JavaScript в VB.Net Добавлено: 28.09.09 15:33

Автор вопроса: gevorgm

Здраствуйте увожаемые програмисты, проблема токова, этот код на Яве работает очень медленно и я решил попробовать на VB. Разобрал все что мог но работает неправельно. помогите нормально перевести код в VB.NET

<Script>
<!--
var checkpass=''
tell=0
counttimes=0
disComp=0
bases=new Array(17,33,57,101);
var acharset='23CDWEFGlmwtuvg01xXYZNOhijkVWHIJ45ncdefMyzopqPQRSTUABKL6789abrs'
var storeup='';

function preferences(encryptpass,encryptdepth,what,dis){
  disComp=dis
  tell=0
  tell=what
  checkpass=''
  counttimes=0
  times=encryptdepth
  checkpass=encryptpass
  orig=''
  this.check=mkasci
}

function mkasci(orig){
  if(counttimes==0){storeup=orig}
  ascival=new Array()
  for(i=0;i<=orig.length-1;i++){
for(i1=0;i1<=acharset.length;i1++){
if(orig.charAt(i)==acharset.charAt(i1)){
ascival[i]=i1
}
}
}
themeat(ascival)
}

function cutoff(code){
eval("var whatcode='"+code+"'");
eval("var whatcode2='"+Math.ceil(code)+"'");
bigVal=(Math.pow(10,whatcode.length-(whatcode2.length)-2)<1)?1:Math.pow(10,whatcode.length-(whatcode2.length)-2);
whatcode3=Math.round(code*bigVal)/bigVal
return(whatcode3)
}

function themeat(basecode){
if(basecode.length>=4){
counttimes++
newcode=0
finalcode=1
for(count=0;count!=basecode.length;count++){
newcode=(basecode[(count<(basecode.length-1))?count+1:count-2]+(basecode[count]*bases[2])*(2.303)+basecode[Math.round(((basecode.length-1)*((Math.atan(basecode[(count!=0)?count-1:count+1])*basecode.length)+2*bases[0]))/100)]+1)
newcode=cutoff(newcode)
newcode=(newcode>basecode[Math.round(basecode.length/2)])?newcode-=bases[3]:newcode+=bases[3]
finalcode=cutoff(((newcode/10)*finalcode)/(basecode.length-bases[0]))
}
var deconstruct=''
eval('var finalcode="'+(finalcode+times)+'"');
for(count=0;count<finalcode.length;count++){
if(!isNaN(finalcode.charAt(count))){
deconstruct=deconstruct+finalcode.charAt(count)
}
}
finalcode=deconstruct
var encrypt=new Array()
for(count=2;count<finalcode.length+2;count+=2){
eval("encrypt["+((count/2)-1)+"]='"+((finalcode.charAt(count-2)!='0')?finalcode.charAt(count-2):'')+""+finalcode.charAt(count-1)+"'")
encrypt[((count/2)-1)]=acharset.charAt(Math.round((acharset.length*encrypt[((count/2)-1)])/100))
}
encrypt=encrypt.join('')
if(counttimes<times){mkasci(encrypt)} else {
counttimes=0
if(encrypt==checkpass&&tell==0){
alert('OK');
} else {
if(tell!=1){

alert('Error');

}
}
}
} else {

alert('Error');

}
}

password=new preferences('ja01xkCU',15,0,1);
var enter='';
while(enter.length<4){
enter=prompt('Enter Pass','');
if(!enter){enter='    '}
}
password.check(enter);

Заранее огромное человеческое спасибо!!!!!!!!!!!!!!!
Ответить

Ответы Всего ответов: 5

Номер ответа: 1 Автор ответа: maza_____ ICQ: 9968842 Вопросов: 40 Ответов: 337	Web-сайт: vkontakte.ru/id25563295 добавляйтесь в друзья)) Профиль \| \| #1	Добавлено: 28.09.09 16:42
	На си шарп переписывай Ответить

Номер ответа: 2 Автор ответа: maza_____ ICQ: 9968842 Вопросов: 40 Ответов: 337	Web-сайт: vkontakte.ru/id25563295 добавляйтесь в друзья)) Профиль \| \| #2	Добавлено: 28.09.09 16:44
	Синтаксис почти одинаковый Ответить

Номер ответа: 3 Автор ответа: gevorgm Вопросов: 2 Ответов: 1	Профиль \| \| #3	Добавлено: 28.09.09 16:54
	Ты имееш в веду Visual C# .NEt? Я пробовал, но понемаеш вопрос в математических уравнениях которые я немогу перевести, например newcode=(basecode[count<basecode.length-1))?count+1:count-2]+(basecode[count]bases[2](2.303)+basecode[Math.round(((basecode.length-1)((Math.atan(basecode[count!=0)?count-1:count+1]basecode.length)+2*bases[0])/100)]+1) если кто может помогите перевести ети МАТ уравнения, я уже задолбалсыа сними Ответить

Номер ответа: 4 Автор ответа: Sharp Лидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979	Web-сайт: sharpc.livejournal.com Профиль \| \| #4	Добавлено: 29.09.09 00:07
	Запускай в Chrome — будет быстро работать Ответить

Номер ответа: 5 Автор ответа: SSTREGG Вопросов: 3 Ответов: 64	Профиль \| \| #5	Добавлено: 29.09.09 00:13
	в C# это count<basecode.length-1) ? count+1 : count-2 эквивалентно вот этому на VB: if count<basecode.length - 1 then 'count + 1 else 'count - 2 end if ,а basecode[count] - basecode(count) Ответить

Страница: 1 |