VBNet - Форум - Дешифрование XOR)

Вопрос: Дешифрование XOR) Добавлено: 22.06.08 18:27

Автор вопроса: JacK | Web-сайт: idiot.ru | ICQ: 9580088

Ломаем всё тот же qip!
Всём известно, что пароли для icq протокола шифруется ф-цией xor)))
Сбственно вот она:

Private Function CalcPass(ByVal Pass As String) As String
Dim passarr(1 To 16) As Byte
Dim i As Byte
passarr(1) = &HF3
passarr(2) = &H26
passarr(3) = &H81
passarr(4) = &HC4
passarr(5) = &H39
passarr(6) = &H86
passarr(7) = &HDB
passarr(8) = &H92
passarr(9) = &H71
passarr(10) = &HA3
passarr(11) = &HB9
passarr(12) = &HE6
passarr(13) = &H53
passarr(14) = &H7A
passarr(15) = &H95
passarr(16) = &H7C
CalcPass = ""
For i = 1 To Len(Pass)
CalcPass = CalcPass & Chr(Asc(Mid$(Pass, i, 1)) Xor passarr(i))
Next i
End Function

Private Sub Command1_Click()
Text1.Text = CalcPass("pass")
End Sub

А как дешифровать xor-пароля по этой же маске?
Ответить

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

Номер ответа: 1 Автор ответа: JacK ICQ: 9580088 Вопросов: 13 Ответов: 1078	Web-сайт: idiot.ru Профиль \| \| #1	Добавлено: 22.06.08 18:32
	Ой протупил)) Ответить

Номер ответа: 2 Автор ответа: JacK ICQ: 9580088 Вопросов: 13 Ответов: 1078	Web-сайт: idiot.ru Профиль \| \| #2	Добавлено: 22.06.08 18:34
	Для тех кто также много курит как и я)) Если "a xor b = c" то "a xor c = b" и "c xor b = a" гы гы Ответить

Номер ответа: 3 Автор ответа: Artyom Разработчик Вопросов: 130 Ответов: 6602	Профиль \| \| #3	Добавлено: 22.06.08 18:58
	Гонишь! Ни за что не поверю! Ответить

Номер ответа: 4 Автор ответа: HACKER Разработчик Offline Client Вопросов: 236 Ответов: 8362	Профиль \| \| #4	Добавлено: 22.06.08 21:00
	JacK, веб сайт я так понимаю твой? Ответить

Страница: 1 |