| Вопрос: Тяга Server | Добавлено: 27.01.04 14:17 |
Автор вопроса:  NeForm@t | Web-сайт: g--k.newmail.ru | ICQ: 252999255 |
| Ответы | Всего ответов: 20 |
|
Номер ответа: 16 Автор ответа:  HACKER Разработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #16 | Добавлено: 19.09.06 23:33 |
|
напиши тогда парсер
Могу сначала только счет выписать  )))
принцип циклом, instr до первого "%", от предыдущего от полученной позиции + 2 символа, это и будет 20... потом исходная_стрка = исходная_стрка + mid (от предыдущей позиции до только что найденного "%"  + asc(val("&H<найденный символ>") )
|
||
|
Номер ответа: 17 Автор ответа: DaSharmICQ: 780477 Вопросов: 72 Ответов: 1297 |
Web-сайт: Профиль | | #17 | Добавлено: 20.09.06 21:14 |
|
' valid HTML encoding for POST Public Function EncodeText(strText As String) As String '© DaSharm Dim CodeASC strText = Replace(strText, " ", "+"
CodeASC = Array(&H21, &H22, &H23, &H24, &H25, &H26, &H27, &H28, &H29, &H2C, &H26, &H2F, _ &H3A, &H3B, &H3C, &H3D, &H3E, &H5B, &H5C, &H5D, &H5E, &H5F, &H60, &H7B, &H7C, &H7D, &H7E) For i = 1 To Len(strText) For m = 0 To UBound(CodeASC) If Asc(Mid(strText, i, 1)) = CodeASC(m) Then EncodeText = EncodeText & "%" & Hex(CodeASC(m)): GoTo NI Next m EncodeText = EncodeText & Mid(strText, i, 1) NI: Next i End Function |
||
|
Номер ответа: 18 Автор ответа: DaSharmICQ: 780477 Вопросов: 72 Ответов: 1297 |
Web-сайт: Профиль | | #18 | Добавлено: 20.09.06 21:17 |
|
А теперь напиши обратную ф-цию
|
||
|
Номер ответа: 19 Автор ответа: HACKERРазработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #19 | Добавлено: 20.09.06 23:37 |
|
strText = Replace(strText, " ", "+"
а зачем + а не %20 ? А теперь напиши обратную ф-цию
Private Function Crypt(ByVal text As String, Optional DeCrypt As Boolean = False) As String Dim s1 As String * 151 Dim s2 As String * 151 If DeCrypt = False Then s1 = "\ЪhjюLёT.UяCЙжЭIгmyвs4talшОZъ1EЬфkWВЁЮ8,wODKpЛА9хeтgыИТЕМЯСРAаF/ЧG`SсN-цi2fльиBчкxRуШ" & Chr$(34) & "Х[КЖмoVщЦдЩcзdГЗHНбйqФрБоY_|Ыu+%э@$*}^{)(Mz:><Пv~#!?&=n5;0Xпе]3rД" s2 = "абвгдеёжзиклмнопрстуфхчшщьъыюяАБВГДЕЁЖЗИКЛМНОПРСТУФХЧШЩЬЪЫЮЯABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz-_/\+%" & Chr$(34) & "@$*}^{)(][:><.,~#!?&;=0123456789" Else s2 = "\ЪhjюLёT.UяCЙжЭIгmyвs4talшОZъ1EЬфkWВЁЮ8,wODKpЛА9хeтgыИТЕМЯСРAаF/ЧG`SсN-цi2fльиBчкxRуШ" & Chr$(34) & "Х[КЖмoVщЦдЩcзdГЗHНбйqФрБоY_|Ыu+%э@$*}^{)(Mz:><Пv~#!?&=n5;0Xпе]3rД" s1 = "абвгдеёжзиклмнопрстуфхчшщьъыюяАБВГДЕЁЖЗИКЛМНОПРСТУФХЧШЩЬЪЫЮЯABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz-_/\+%" & Chr$(34) & "@$*}^{)(][:><.,~#!?&;=0123456789" End If Dim i As Long, pos As Long Dim result As String For i = 1 To Len(text) pos = InStr(1, s2, Mid(text, i, 1), 1) If pos <> 0 Then result = result & Mid$(s1, pos, 1) Next i Crypt = result End Function '© HACKER
))
Ну только алфавит правельный подставить ))))))
|
||
|
Номер ответа: 20 Автор ответа: DaSharmICQ: 780477 Вопросов: 72 Ответов: 1297 |
Web-сайт: Профиль | | #20 | Добавлено: 23.09.06 20:46 |
|
а зачем + а не %20 ?
пофиг |
||