> Имеем данные снятые с mssql - вида : > 133|177|138|40|151|183|61|81|69|54|122|67|152|216|213|233 > в одной графе таблицы (конечный результат - тоже 16 цифр > получается) > > Так вот : нужно превратить это всё в человеческий вид . > Жду предложений . Пишите на мыло
Имеем данные снятые с mssql - вида : 133|177|138|40|151|183|61|81|69|54|122|67|152|216|213|233
в одной графе таблицы (конечный результат - тоже 16 цифр получается)
Имеем : файлик RC4.asp через который проходит инфа и превращается в вышенаписанное .
Имеем : private const pEncryptionPassword ="HGSDYGDSLWREIUCJD938439402342" из другого файлика .
Так вот : нужно превратить это всё в человеческий вид .
Жду предложений . Пишите на мыло , оставляйте icq - получится намного быстрее .
Возможно дальнейшее сотрудничество , - ну никак я не шарю в этой криптографии , хоть тресни ....
Дабы не тратить не моё не ваше время привожу всю инфу по которой всё это "распаковывается" , кто получит результат - свистите .
Ниже RC4.asp ----
<%
' 3.80
' Details: RC4 encryption functions based on a script writed by Mike Shaffer
' Modifications for database storage by Rodrigo S. Alhadeff
%>
<%
' This script performs 'RC4' Stream Encryption (Based on what is widely thought to be RSA's RC4
' algorithm. It produces output streams that are identical to the commercial products)
' This script is Copyright ? 1999 by Mike Shaffer ALL RIGHTS RESERVED WORLDWIDE
Dim sbox(255)
Dim key(255)
Sub RC4Initialize(strPwd)
' this routine called by EnDeCrypt function. Initializes the sbox and the key array
dim tempSwap, a, b
' get length of the key
intLength = len(strPwd)
' iterate through all characters contained in key repeating number of characters is 255
for a = 0 To 255
' load ANSI for each char contained in the key
key(a) = asc(mid(strpwd, (a mod intLength)+1, 1))
' load numbers from 0 to 255
sbox(a) = a
next
b = 0
' iterate through arrays
for a = 0 To 255
b = (b + sbox(a) + key(a)) Mod 256
tempSwap = sbox(a)
sbox(a) = sbox(b)
sbox(b) = tempSwap
Next
End Sub
function EnDeCrypt(plaintxt, psw)
dim temp, a, i, j, k, cipherby, cipher
i = 0
j = 0
RC4Initialize psw
for a = 1 To Len(plaintxt)
i = (i + 1) Mod 256
j = (j + sbox(i)) Mod 256
temp = sbox(i)
sbox(i)= sbox(j)
sbox(j)= temp
k = sbox((sbox(i) + sbox(j)) Mod 256)
cipherby = Asc(Mid(plaintxt, a, 1)) Xor k
cipher = cipher & Chr(cipherby)
next
enDeCrypt = cipher
end function
function RC4EnCryptASC(plaintxt, psw)
dim temp, a, i, j, k, cipherby, cipher
i = 0
j = 0
RC4Initialize psw
for a = 1 To Len(plaintxt)
i = (i + 1) Mod 256
j = (j + sbox(i)) Mod 256
temp = sbox(i)
sbox(i)= sbox(j)
sbox(j)= temp
k = sbox((sbox(i) + sbox(j)) Mod 256)
cipherby = Asc(Mid(plaintxt, a, 1)) Xor k
cipher = cipher &"& cipherby
next
RC4EnCryptASC = cipher
end function
function RC4DeCryptASC(plaintxt, psw)
plaintxt = transformToCHR(plaintxt)
dim temp, a, i, j, k, cipherby, cipher
i = 0
j = 0
dim arrayEncrypted
RC4Initialize psw
for a = 1 To Len(plaintxt)
i = (i + 1) Mod 256
j = (j + sbox(i)) Mod 256
temp = sbox(i)
sbox(i)= sbox(j)
sbox(j)= temp
k = sbox((sbox(i) + sbox(j)) Mod 256)
cipherby = Asc(Mid(plaintxt, a, 1)) Xor k
cipher = cipher & Chr(cipherby)
next
RC4DeCryptASC = cipher
end function
function transformToCHR(plaintxt)
' transform to CHR, insert into array
dim returnText, arrayEncrypted
arrayEncrypted = split(plaintxt,")
returnText=""
' transform to CHR
for a = 1 to ubound(arrayEncrypted)
returnText=returnText&CHR(arrayEncrypted(a))
next
> Имеем данные снятые с mssql - вида : > 133|177|138|40|151|183|61|81|69|54|122|67|152|216|213|233 > в одной графе таблицы (конечный результат - тоже 16 цифр > получается) > > Так вот : нужно превратить это всё в человеческий вид . > Жду предложений . Пишите на мыло
подробно о проекте
Анализ криптографических сетевых...
новое сообщение
закрытая нитка
новое сообщение
в закрытой нитке
старое сообщение
