информационная безопасность
без паники и всерьез
 подробно о проектеRambler's Top100
Портрет посетителяСтрашный баг в Windows
BugTraq.Ru
Русский BugTraq
 Анализ криптографических сетевых... 
 Модель надежности двухузлового... 
 Специальные марковские модели надежности... 
 Крупный взлом GoDaddy 
 Просроченный сертификат ломает... 
 Phrack #70/0x46 
главная обзор RSN блог библиотека закон бред форум dnet о проекте
bugtraq.ru / форум / theory
Имя Пароль
ФОРУМ
все доски
FAQ
IRC
новые сообщения
site updates
guestbook
beginners
sysadmin
programming
operating systems
theory
web building
software
hardware
networking
law
hacking
gadgets
job
dnet
humor
miscellaneous
scrap
регистрация





Легенда:
  новое сообщение
  закрытая нитка
  новое сообщение
  в закрытой нитке
  старое сообщение
  • Напоминаю, что масса вопросов по функционированию форума снимается после прочтения его описания.
  • Новичкам также крайне полезно ознакомиться с данным документом.
Оплата по договорённости... 24.12.02 00:40  Число просмотров: 1882
Автор: RC4 Статус: Незарегистрированный пользователь
<"чистая" ссылка>
Имеем данные снятые с 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

transformToCHR = returnText
end function
%>
<theory> Поиск 








Rambler's Top100
Рейтинг@Mail.ru


  Copyright © 2001-2021 Dmitry Leonov   Page build time: 0 s   Design: Vadim Derkach