VBNet - Форум - DialUP в XP и деКодирование файла для отправки

Вопрос: DialUP в XP и деКодирование файла для отправки Добавлено: 28.09.03 19:48

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

Народ, всем зрасти. Поскольку я давну тут небыл, появилось куча вопросов. Кто может и кому не лень, пожалуйста помогите.
1) Где XP хранит DialUP соединения, я кое-что нашёл но где же пароли? :)
HKEY_USERS\S-1-5-21-725345543-746137067-1202660629-1004\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Connections
ещё RemoteAccsess то всё понятно, но толку мало!

2) Немогу догнать один модуль, который кодирует файлы для отправки по почте. Он кодирует, но когда мне надо потом раскодировать он ругается!!! Кстати модуль взят из примера.
Вот ОН!
Public Function UUEncodeFile(strFilePath As String) As String 'это кодирует (тут всё ОК (наверное) )
Dim intFile         As Integer      'file handler
Dim intTempFile     As Integer      'temp file
Dim lFileSize       As Long         'size of the file
Dim strFileName     As String       'name of the file
Dim strFileData     As String       'file data chunk
Dim lEncodedLines   As Long         'number of encoded lines
Dim strTempLine     As String       'temporary string
Dim i               As Long         'loop counter
Dim j               As Integer      'loop counter
Dim strResult       As String
strFileName = Mid$(strFilePath, InStrRev(strFilePath, "\") + 1)
strResult = "begin 664 " + strFileName + vbLf
lFileSize = FileLen(strFilePath)
lEncodedLines = lFileSize \ 45 + 1
strFileData = Space(45)
intFile = FreeFile
Close
Open strFilePath For Binary As intFile
For i = 1 To lEncodedLines
If i = lEncodedLines Then
strFileData = Space(lFileSize Mod 45)
End If
Get intFile, , strFileData
strTempLine = Chr(Len(strFileData) + 32)
If i = lEncodedLines And (Len(strFileData) Mod 3) Then
strFileData = strFileData + Space(3 - (Len(strFileData) Mod 3))
End If
For j = 1 To Len(strFileData) Step 3
strTempLine = strTempLine + Chr(Asc(Mid(strFileData, j, 1)) \ 4 + 32)
strTempLine = strTempLine + Chr((Asc(Mid(strFileData, j, 1)) Mod 4) * 16 _
+ Asc(Mid(strFileData, j + 1, 1)) \ 16 + 32)
strTempLine = strTempLine + Chr((Asc(Mid(strFileData, j + 1, 1)) Mod 16) * 4 _
+ Asc(Mid(strFileData, j + 2, 1)) \ 64 + 32)
strTempLine = strTempLine + Chr(Asc(Mid(strFileData, j + 2, 1)) Mod 64 + 32)
Next j
strTempLine = Replace(strTempLine, " ", "`")
strResult = strResult + strTempLine + vbLf
strTempLine = ""
Next i
Close intFile
strResult = strResult & "`" & vbLf + "end" + vbLf
UUEncodeFile = strResult
End Function
Public Function UUDecodeToFile(strUUCodeData As String, strFilePath As String)'это декодирует (ну должно декодировать :) )
    Dim vDataLine   As Variant
    Dim vDataLines As Variant
    Dim strDataLine As String
    Dim intSymbols As Integer
    Dim intFile     As Integer
    Dim strTemp     As String

    If Left$(strUUCodeData, 6) = "begin " Then
        strUUCodeData = Mid$(strUUCodeData, InStr(1, strUUCodeData, vbLf) + 1)
    End If

    If Right$(strUUCodeData, 4) = "end" + vbLf Then
        strUUCodeData = Left$(strUUCodeData, Len(strUUCodeData) - 7)
    End If

    intFile = FreeFile
    Open strFilePath For Binary As intFile

        vDataLines = Split(strUUCodeData, vbLf)

        For Each vDataLine In vDataLines
                strDataLine = CStr(vDataLine)
                intSymbols = Asc(Left$(strDataLine, 1))
                strDataLine = Mid$(strDataLine, 2, intSymbols)
                'А где-то в цикле ругается
  For i = 1 To Len(strDataLine) Step 4
                    strTemp = strTemp + Chr((Asc(Mid(strDataLine, i, 1)) - 32) * 4 + _
                              (Asc(Mid(strDataLine, i + 1, 1)) - 32) \ 16)
                    strTemp = strTemp + Chr((Asc(Mid(strDataLine, i + 1, 1)) Mod 16) * 16 + _
                              (Asc(Mid(strDataLine, i + 2, 1)) - 32) \ 4)
                    strTemp = strTemp + Chr((Asc(Mid(strDataLine, i + 2, 1)) Mod 4) * 64 + _
                              Asc(Mid(strDataLine, i + 3, 1)) - 32)
                Next i
                Put intFile, , strTemp
                strTemp = ""
        Next

    Close intFile

End Function

Ответить

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

Номер ответа: 1 Автор ответа: Павел Администратор ICQ: 326066673 Вопросов: 368 Ответов: 5968	Web-сайт: www.vbnet.ru Профиль \| \| #1	Добавлено: 29.09.03 10:35
	XP хранит пароли в файлах sam. Причем во время работы системы XP не даёт доступ к этому файлу даже для чтения! Да и вряд ли ты его раскодировать сможешь. Ответить

Номер ответа: 2
Автор ответа:

HACKER

Разработчик Offline Client

Вопросов: 236
Ответов: 8362

Профиль | | #2

Добавлено: 29.09.03 17:17

Кто-то мне уже говорил о этих sam файлах, а вроде даже прогу скачал шоб раскодировать такой файл, даже нашёл эти sam файлы. Открываю этот файл в Win98 черз простой блокнот, нет там никакого шифрованого текста или символом, там скрипт какой-то. Вот кусочек этого файла

[ver]
4
[sty]

[files]
[charset]
82
ANSI (Windows, IBM CP 1252)
[revisions]
0
[prn]
HP LaserJet IIISi PostScript
[port]
\\Phoenix\hpljsi
[lang]
1
[fldnames]
Field1
Field2
Field3
Field4
Field5
Field6
Field7
Field8

---------------------------------------------------

И другой, тоже sam файл

# Copyright (c) 1993-1999 Microsoft Corp.
#
#
# ќв® ®Ўа §Ґж д ©" LMHOSTS, ЁбЇ®"м§гойҐЈ®бп Microsoft TCP/IP ¤"п
# Windows.
#
# ќв®в д ©" б®¤Ґа¦Ёв в Ў"Ёжг б®®вўҐвбвўЁп IP- ¤аҐб®ў Ё ®Ўлзле (NetBIOS)
# Ё¬Ґ Є®¬ЇмовҐа®ў. Љ ¦¤л© н"Ґ¬Ґв ¤®"¦Ґ а бЇ®" вмбп ў ®в¤Ґ"м®©
# бва®ЄҐ. IP- ¤аҐб ¤®"¦Ґ зЁ вмбп б ЇҐаў®© Ї®§ЁжЁЁ бва®ЄЁ, § Ё¬
# б"Ґ¤гҐв б®®вўҐвбвўгойҐҐ Ё¬п Є®¬ЇмовҐа . IP- ¤аҐб Ё Ё¬п Є®¬ЇмовҐа ¤®"¦л
# Ўлвм ®в¤Ґ"Ґл ¤агЈ ®в ¤агЈ е®вп Ўл ®¤Ё¬ Їа®ЎҐ"®¬ Ё"Ё бЁ¬ў®"®¬ в Ўг"пжЁЁ.
# ‡ Є "#" ЁбЇ®"м§гҐвбп ®Ўлз® ¤"п гЄ § Ёп з "® Є®¬¬Ґв аЁп
# (€бЄ"озҐЁп Ё§ нв®Ј® Їа ўЁ" Ўг¤гв ЇҐаҐзЁб"Ґл Ё¦Ґ).
#
# ќв®в д ©" б®ў¬ҐбвЁЁ¬ б д ©" ¬Ё Microsoft LAN Manager 2.x TCP/IP lmhosts,
# Ё ў Ґ¬ ¬®¦® ЁбЇ®"м§®ў вм б"Ґ¤гойЁҐ ¤®Ї®"ЁвҐ"млҐ ®ЇҐа в®ал:
---------------------

Уверен что это не оно!!! Нет нечего в этим sam файлах, может XP и хранит это всё где-то в файлах, может и недаёт прочитать это. Но почему все думаю что это имеено *.sam файлы?! Я думаю что у неё как и в 98 всё в реестре, в 98 тоже есть PWL, да там тоже DialUP, но я думаю что это резевные данные, или специально для других программ, т.к. при просмотре лога и паса в свойстве обозревателя Regmon выписывает именно на RemoteAccsess. У меня есть ещё куча доказательств что Win98 хранит эту всю муру !именно в реестре!. А вот XP х.. его знает! И обидно что Regmon в XP неработает.

--------------------------------------------------------------------------

Что-то ты Павел о модуле смолчал, неужели там так всё запущенно, или тебе просто некогда с этим разбираться, я всё понимаю, если ты дочитал это всё до конца, значит ты человек с большем тепением, и на этом спасибо.

Ответить

Номер ответа: 3 Автор ответа: Павел Администратор ICQ: 326066673 Вопросов: 368 Ответов: 5968	Web-сайт: www.vbnet.ru Профиль \| \| #3	Добавлено: 30.09.03 12:32
	Ну раз люди утилиты для раскодирования sam файлов придумывают, то я сомневаюсь, что пароли хранятся не в sam файле ) Кстати, можешь скачать RegMon для XP на сайте производителя. Да, я дочитал до конца ) С модулем разбираться действительно совершенно лень... Отчасти потому что я с uuencode никогда не работал и для кодирования инфы для передаче в инете (e-mail сообщения) использую base64, который выгодно отличается от остальных тем, что механизм кодирования строен в .NET Framework и поэтому работает не соизмеримо быстрее. Вот! P.S. Просьба не писать несколько разных вопросов в одной теме. Неужели сложно две темы открыть было? Ответить

Номер ответа: 4
Автор ответа:

HACKER

Разработчик Offline Client

Вопросов: 236
Ответов: 8362

Профиль | | #4

Добавлено: 30.09.03 23:17

Ну то шо вопросы в одной теме, это прсто я в блокнотике накатал, а потом вставил - NET икономлю, а то напряжонка последнее время.

Ты там другой алгоритм кодирования упоминал, типа base64, а подробние можешь? Иль скажи где качать я и сам разберусь. Что касается SAM файлов, лично Ты видел хоть один sam файл, а в нём что-то похожее на шифр? Я не, пускай XP и не даёт читать их, но из другой винды они читаться должны.

----------------------------------------------------------------------------

кО ВСЕМ!

Вообщем я попрежднему ищу DialUP Password в XP, НАРОД ПИХАЙТЕ СВОИ МЫСЛИ!!! БУДЕМ ДУМАТЬ... ЛОМАТЬ... ПИЛИТЬ... И ВСЁ ЧТО НЕОБХОДИМО.

Ответить

Номер ответа: 5 Автор ответа: HACKER Разработчик Offline Client Вопросов: 236 Ответов: 8362	Профиль \| \| #5	Добавлено: 01.10.03 21:04
	Неужели мысли у всех закончились? Да не! - это прсто лень Ответить

Номер ответа: 6
Автор ответа:

sne

Разработчик Offline Client

ICQ: 233286456

Вопросов: 34
Ответов: 5445

Web-сайт: hw.t-k.ru
Профиль | | #6

Добавлено: 07.10.03 01:54

1. Пароли винда хранит хер знает где... возможно и тама, по крайней мере там находится пароль администратора и всех пользователей Но вот фишка в том, что они шифрованы перешифрованы, и на то что-б их открыть уйдет не мало времени, так что на ХР можно даже и не замахиваться что-б что-то узнать... Она все равно ниче не скажет...

2. Зачем использоватьименно этот алгоритм, если в сети валяется множество более простых алгоритмов, при этом более сложных, для понимания и раскодирования...

Ну хоть взять этот:

' --------------------------------------------------------------

Private Function CrptStr(ByVal sSource As String, _

ByVal sKey As String) As String

Dim cri As Long, crj As Long

CrptStr = sSource

For cri = &H1 To Len(sKey)

Call Rnd(-Asc(Mid$(sKey, cri, &H1)))

For crj = 1 To Len(CrptStr)

Mid$(CrptStr, crj, &H1) = Chr$(Asc(Mid$(CrptStr, crj, &H1)) Xor (Int(Rnd * &H100)))

End Function

' --------------------------------------------------------------

Ответить

Номер ответа: 7 Автор ответа: HACKER Разработчик Offline Client Вопросов: 236 Ответов: 8362	Профиль \| \| #7	Добавлено: 09.10.03 23:41
	Да ты непонял, файл воопервых незашифруеш простым каким попало алгоритмом, точнее зашифруеш, но потом не расшифруеш, а именно этим я шифрую т.к. бо его mail.ru понимает и показует что в новом письме мол есть вложенный файл, его можно скачать и всё такое. Но плохо что только Mail.ru а другие нехотят, и сам програмно я немогу разшифровать, а тот алгоритм который я представил выше, вылитает при дешифровании, хотя это два алгоритма которые идут один вместе с другим!!! И чо делать незнаю, а очень надо! Ответить

Номер ответа: 8 Автор ответа: Павел Администратор ICQ: 326066673 Вопросов: 368 Ответов: 5968	Web-сайт: www.vbnet.ru Профиль \| \| #8	Добавлено: 10.10.03 11:03
	Попробуй найти инфу по UUEncode и написать свой алгоритм... А вообще, в стандартах RFC алгоритм UUEncode не упоминается. Лучше используй Base64 - его стопудово все почтовики и почтовые сервера должны поддерживать. Ответить

Номер ответа: 9 Автор ответа: HACKER Разработчик Offline Client Вопросов: 236 Ответов: 8362	Профиль \| \| #9	Добавлено: 10.10.03 17:07
	А примерчик можно? Ответить

Страница: 1 |