| Автор
| Сообщение |
 McRain
Новичок
Зарегистрирован: 02.12.2006
Сообщения: 10
Откуда: Донецк
|
|
|
Цитата |
|
Нужна функция возвращающая хеш
Есть реализация на JavaScript но никак не могу вызвать ее из VBScript.
Спасибо. |
|
| В начало |
|
 |
|
|
 |
TuXAPuK
Великий гонщик
Возраст: 26
Знак зодиака: 
Зарегистрирован: 12.09.2005
Сообщения: 714
Откуда: Великий город Рига... =Ъ
|
|
|
Цитата |
|
Всё изза того что в VBScript её просто нету...  VBScript создовался скорее для работы с DHTML чем для работы с мат. функциями... Для мат. функций есть JScript он в этом намного функциональнее...
_________________
 |
|
| В начало |
|
|
McRain
Новичок
Зарегистрирован: 02.12.2006
Сообщения: 10
Откуда: Донецк
|
|
|
Цитата |
|
Спасибо.
А как вызвать JavaScript из VBScript? Если подобное возможно. |
|
| В начало |
|
|
TuXAPuK
Великий гонщик
Возраст: 26
Знак зодиака:
Зарегистрирован: 12.09.2005
Сообщения: 714
Откуда: Великий город Рига... =Ъ
|
|
|
Цитата |
|
А почему ты не можешь всё на JScript написать? Я когдато очень, очень давно тоже на VBS писал, а потом от него отказался, именно изза того что он не настолько функционален...
_________________
|
|
| В начало |
|
|
Ktf
Администратор
Возраст: 32
Знак зодиака: 
Зарегистрирован: 15.05.2005
Сообщения: 1502
Откуда: localhost
|
|
|
Цитата |
|
to McRain
попробуй так:
| Код: | <html>
<head>
<script type="text/javascript">
function js_sha1Hash(msg)
{
// constants [4.2.1]
var K = [0x5a827999, 0x6ed9eba1, 0x8f1bbcdc, 0xca62c1d6];
// PREPROCESSING
msg += String.fromCharCode(0x80); // add trailing '1' bit to string [5.1.1]
// convert string msg into 512-bit/16-integer blocks arrays of ints [5.2.1]
var l = Math.ceil(msg.length/4) + 2; // long enough to contain msg plus 2-word length
var N = Math.ceil(l/16); // in N 16-int blocks
var M = new Array(N);
for (var i=0; i<N; i++) {
M[i] = new Array(16);
for (var j=0; j<16; j++) { // encode 4 chars per integer, big-endian encoding
M[i][j] = (msg.charCodeAt(i*64+j*4)<<24) | (msg.charCodeAt(i*64+j*4+1)<<16) |
(msg.charCodeAt(i*64+j*4+2)<<8) | (msg.charCodeAt(i*64+j*4+3));
} // note running off the end of msg is ok 'cos bitwise ops on NaN return 0
}
// add length (in bits) into final pair of 32-bit integers (big-endian) [5.1.1]
M[N-1][14] = ((msg.length-1) >>> 30) * 8;
M[N-1][15] = ((msg.length-1)*8) & 0xffffffff;
// set initial hash value [5.3.1]
var H0 = 0x67452301;
var H1 = 0xefcdab89;
var H2 = 0x98badcfe;
var H3 = 0x10325476;
var H4 = 0xc3d2e1f0;
// HASH COMPUTATION [6.1.2]
var W = new Array(80); var a, b, c, d, e;
for (var i=0; i<N; i++) {
// 1 - prepare message schedule 'W'
for (var t=0; t<16; t++) W[t] = M[i][t];
for (var t=16; t<80; t++) W[t] = ROTL(W[t-3] ^ W[t-8] ^ W[t-14] ^ W[t-16], 1);
// 2 - initialise five working variables a, b, c, d, e with previous hash value
a = H0; b = H1; c = H2; d = H3; e = H4;
// 3 - main loop
for (var t=0; t<80; t++) {
var s = Math.floor(t/20); // seq for blocks of 'f' functions and 'K' constants
var T = (ROTL(a,5) + f(s,b,c,d) + e + K[s] + W[t]) & 0xffffffff;
e = d;
d = c;
c = ROTL(b, 30);
b = a;
a = T;
}
// 4 - compute the new intermediate hash value
H0 = (H0+a) & 0xffffffff; // note 'addition modulo 2^32'
H1 = (H1+b) & 0xffffffff;
H2 = (H2+c) & 0xffffffff;
H3 = (H3+d) & 0xffffffff;
H4 = (H4+e) & 0xffffffff;
}
return H0.toHexStr() + H1.toHexStr() + H2.toHexStr() + H3.toHexStr() + H4.toHexStr();
}
//
// function 'f' [4.1.1]
//
function f(s, x, y, z)
{
switch (s) {
case 0: return (x & y) ^ (~x & z);
case 1: return x ^ y ^ z;
case 2: return (x & y) ^ (x & z) ^ (y & z);
case 3: return x ^ y ^ z;
}
}
//
// rotate left (circular left shift) value x by n positions [3.2.5]
//
function ROTL(x, n)
{
return (x<<n) | (x>>>(32-n));
}
//
// extend Number class with a tailored hex-string method
// (note toString(16) is implementation-dependant, and
// in IE returns signed numbers when used on full words)
//
Number.prototype.toHexStr = function()
{
var s="", v;
for (var i=7; i>=0; i--) { v = (this>>>(i*4)) & 0xf; s += v.toString(16); }
return s;
}
</script>
<script language="VBScript">
Function vb_sha1Hash(msg)
vb_sha1Hash = js_sha1Hash(msg)
End Function
</script>
</head>
<body>
<form name="f" action="none!">
<table>
<tr>
<td colspan="2">Enter any message to check its SHA-1 hash:</td>
</tr>
<tr>
<td>Message:</td>
<td><input type="text" name="message" size="48" value="abc"></td>
</tr>
<tr>
<td colspan="2">
<input name="button" type="button"
onClick='f.hash.value = vb_sha1Hash(f.message.value)' value="Generate Hash"></td>
</tr>
<tr>
<td>Hash:</td>
<td><input type="text" name="hash" size="48" readonly></td>
</tr>
<tr valign="bottom">
<td style="font-size: smaller"><i>Note SHA-1 hash of ‘abc’ should
be: </i></td>
<td style="font-size: smaller"><i>a9993e364706816aba3e25717850c26c9cd0d89d</i></td>
</tr>
</table>
</form>
</body>
</html> |
_________________
Пойду посплю перед сном. |
|
| В начало |
|
|
McRain
Новичок
Зарегистрирован: 02.12.2006
Сообщения: 10
Откуда: Донецк
|
|
|
Цитата |
|
| TuXAPuK писал(а): | | А почему ты не можешь всё на JScript написать? Я когдато очень, очень давно тоже на VBS писал, а потом от него отказался, именно изза того что он не настолько функционален... |
С БД на JScript не умею. Да и не пишу я практически ни на том ни на другом.
Добавлено спустя 3 минуты 7 секунд:
| Ktf писал(а): | to McRain
попробуй так:
| Код: | <html>
........
</html> |
|
Так тоже не получилось. Все равно спасибо.
Выкрутился так: Создал скрытое поле, куда JScript'ом пишу хеш прочитаный в поле с паролем, а в БД вношу VBScript'ом уже из этого скрытого поля.
Кривая идея, согласен, но работает.
Всем спасибо. |
|
| В начало |
|
|
|
