Visual Basic, .NET, ASP, VBScript
 

   
   
     

Форум - Офф-топ

Страница: 1 | 2 |

 

  Вопрос: Тяга 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
Автор ответа:
 DaSharm



ICQ: 780477 

Вопросов: 72
Ответов: 1297
 Web-сайт: dasharm.com
 Профиль | | #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
Автор ответа:
 DaSharm



ICQ: 780477 

Вопросов: 72
Ответов: 1297
 Web-сайт: dasharm.com
 Профиль | | #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
Автор ответа:
 DaSharm



ICQ: 780477 

Вопросов: 72
Ответов: 1297
 Web-сайт: dasharm.com
 Профиль | | #20
Добавлено: 23.09.06 20:46

а зачем + а не %20 ?

пофиг

Ответить

Страница: 1 | 2 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам