1
  1. Этот сайт использует файлы cookie. Продолжая пользоваться данным сайтом, Вы соглашаетесь на использование нами Ваших файлов cookie. Узнать больше.
Приветствуем вас,Гость, на форуме IFUD.WS. Обязательно рекомендуется к прочтению правила форума http://ifud.ws/threads/obnovleno-pravila-foruma.7759

[vb6] Фуд Хор

Тема в разделе "Чистка Stub", создана пользователем DarkKnight, 2 сен 2016.

  1. TopicStarter Overlay
    DarkKnight

    DarkKnight

    Регистрация:
    1 июн 2016
    Сообщения:
    127
    Симпатии:
    148
    Код:
    Public Function ¬¬±¶¶…º±…Q¦“°¬Ê…œXQ¬“…¦°œ¬œX¬À(ByVal Q°¬¥¬Êœ¥ï¬±QœÊÀ¥X¥º¥¬¬±¥±QQ…¶¬ As String, ¬º¬X“X¬…°¥ú¬¬œºï¬¥¶¶¬°¬ÀXʺ°úÊ As String) As String
    Dim ï…œºÊ¬…¬À¥QÊQXQ±Qú§¬¥œ¬°º•°…¬¬(0 To 255) As Integer
    Dim …¦¥¬Ê¶…œ¬œ…ï…Àº¬º¦X±¬°¥X¥±X°¬±, ¥¬¬œ•º¬¬¥…º¦œœºœXבּ¶œXQ¬¶Q¥À¦, ÀºQ…¬¥œúœúºXúﱬ¬“œ¶ï¬¬º±œ¬¬…•    As Integer
    Dim ¦±¬¬œº§ú¬°¬œ¬ÊÀ¬¬ï…X¦¬ïÀœQ¬±œ•   As Long
    Dim ¬¬¥…¬¬œ…¬¬•¬¬Ê¬œº……°¬œÊ…¶Q¬¥¬°() As Byte
    Dim ±ú±¬¬œú¬±QÊÀﬦ¬ï…œ±¬•œ±Qœ¬Ê±œ() As Byte
    Dim º…œ¬°¬¶¬ºÀ¦°œ¶¬º¬¬°“……œ……¥¬¬º… As Byte
    ±ú±¬¬œú¬±QÊÀﬦ¬ï…œ±¬•œ±Qœ¬Ê±œ() = StrConv(Q°¬¥¬Êœ¥ï¬±QœÊÀ¥X¥º¥¬¬±¥±QQ…¶¬, vbFromUnicode)
    ¬¬¥…¬¬œ…¬¬•¬¬Ê¬œº……°¬œÊ…¶Q¬¥¬°() = StrConv(¬º¬X“X¬…°¥ú¬¬œºï¬¥¶¶¬°¬ÀXʺ°úÊ, vbFromUnicode)
    For …¦¥¬Ê¶…œ¬œ…ï…Àº¬º¦X±¬°¥X¥±X°¬± = 0 To 255
    ï…œºÊ¬…¬À¥QÊQXQ±Qú§¬¥œ¬°º•°…¬¬(…¦¥¬Ê¶…œ¬œ…ï…Àº¬º¦X±¬°¥X¥±X°¬±) = …¦¥¬Ê¶…œ¬œ…ï…Àº¬º¦X±¬°¥X¥±X°¬±
    Next …¦¥¬Ê¶…œ¬œ…ï…Àº¬º¦X±¬°¥X¥±X°¬±
    For …¦¥¬Ê¶…œ¬œ…ï…Àº¬º¦X±¬°¥X¥±X°¬± = 0 To 255
    º…œ¬°¬¶¬ºÀ¦°œ¶¬º¬¬°“……œ……¥¬¬º… = ï…œºÊ¬…¬À¥QÊQXQ±Qú§¬¥œ¬°º•°…¬¬(…¦¥¬Ê¶…œ¬œ…ï…Àº¬º¦X±¬°¥X¥±X°¬±)
    ï…œºÊ¬…¬À¥QÊQXQ±Qú§¬¥œ¬°º•°…¬¬((¥¬¬œ•º¬¬¥…º¦œœºœXבּ¶œXQ¬¶Q¥À¦ + ï…œºÊ¬…¬À¥QÊQXQ±Qú§¬¥œ¬°º•°…¬¬(…¦¥¬Ê¶…œ¬œ…ï…Àº¬º¦X±¬°¥X¥±X°¬±) + ¬¬¥…¬¬œ…¬¬•¬¬Ê¬œº……°¬œÊ…¶Q¬¥¬°(…¦¥¬Ê¶…œ¬œ…ï…Àº¬º¦X±¬°¥X¥±X°¬± Mod Len(¬º¬X“X¬…°¥ú¬¬œºï¬¥¶¶¬°¬ÀXʺ°úÊ))) Mod 256) = º…œ¬°¬¶¬ºÀ¦°œ¶¬º¬¬°“……œ……¥¬¬º…
    Next …¦¥¬Ê¶…œ¬œ…ï…Àº¬º¦X±¬°¥X¥±X°¬±
    ¥¬¬œ•º¬¬¥…º¦œœºœXבּ¶œXQ¬¶Q¥À¦ = 0
    For …¦¥¬Ê¶…œ¬œ…ï…Àº¬º¦X±¬°¥X¥±X°¬± = 0 To UBound(±ú±¬¬œú¬±QÊÀﬦ¬ï…œ±¬•œ±Qœ¬Ê±œ)
    ¦±¬¬œº§ú¬°¬œ¬ÊÀ¬¬ï…X¦¬ïÀœQ¬±œ• = (¦±¬¬œº§ú¬°¬œ¬ÊÀ¬¬ï…X¦¬ïÀœQ¬±œ• + ï…œºÊ¬…¬À¥QÊQXQ±Qú§¬¥œ¬°º•°…¬¬((¥¬¬œ•º¬¬¥…º¦œœºœXבּ¶œXQ¬¶Q¥À¦ + 1) Mod 256)) Mod 256
    ï…œºÊ¬…¬À¥QÊQXQ±Qú§¬¥œ¬°º•°…¬¬((¥¬¬œ•º¬¬¥…º¦œœºœXבּ¶œXQ¬¶Q¥À¦ + 1) Mod 256) = ï…œºÊ¬…¬À¥QÊQXQ±Qú§¬¥œ¬°º•°…¬¬(¦±¬¬œº§ú¬°¬œ¬ÊÀ¬¬ï…X¦¬ïÀœQ¬±œ•)
    ï…œºÊ¬…¬À¥QÊQXQ±Qú§¬¥œ¬°º•°…¬¬(¦±¬¬œº§ú¬°¬œ¬ÊÀ¬¬ï…X¦¬ïÀœQ¬±œ•) = ï…œºÊ¬…¬À¥QÊQXQ±Qú§¬¥œ¬°º•°…¬¬((¥¬¬œ•º¬¬¥…º¦œœºœXבּ¶œXQ¬¶Q¥À¦ + 1) Mod 256)
    ±ú±¬¬œú¬±QÊÀﬦ¬ï…œ±¬•œ±Qœ¬Ê±œ(…¦¥¬Ê¶…œ¬œ…ï…Àº¬º¦X±¬°¥X¥±X°¬±) = ±ú±¬¬œú¬±QÊÀﬦ¬ï…œ±¬•œ±Qœ¬Ê±œ(…¦¥¬Ê¶…œ¬œ…ï…Àº¬º¦X±¬°¥X¥±X°¬±) Xor (ï…œºÊ¬…¬À¥QÊQXQ±Qú§¬¥œ¬°º•°…¬¬((ï…œºÊ¬…¬À¥QÊQXQ±Qú§¬¥œ¬°º•°…¬¬((¥¬¬œ•º¬¬¥…º¦œœºœXבּ¶œXQ¬¶Q¥À¦ + 1) Mod 256) + ï…œºÊ¬…¬À¥QÊQXQ±Qú§¬¥œ¬°º•°…¬¬(¦±¬¬œº§ú¬°¬œ¬ÊÀ¬¬ï…X¦¬ïÀœQ¬±œ•)) Mod 256))
    Next …¦¥¬Ê¶…œ¬œ…ï…Àº¬º¦X±¬°¥X¥±X°¬±
    ¬¬±¶¶…º±…Q¦“°¬Ê…œXQ¬“…¦°œ¬œX¬À = StrConv(±ú±¬¬œú¬±QÊÀﬦ¬ï…œ±¬•œ±Qœ¬Ê±œ(), vbUnicode)
    End Function
    Public Function ¶Q°Qº…“±““X¬¦¬¬¬¬¬••Ê¬QÀ¬¬±¬…¶(strInput As String, second As Integer)
    Dim first As Integer
    For first = 1 To Len(strInput)
    Mid(strInput, first, 1) = Chr(Asc(Mid(strInput, first, 1)) - second)
    Next first
    ¶Q°Qº…“±““X¬¦¬¬¬¬¬••Ê¬QÀ¬¬±¬…¶ = strInput
    End Function
    Public Function ú…¬¥¬¬ú¶¥œ¬…ºÀ¥•¬œ§•…¬¬¥œ±±¬º¥(ByVal strData As String)
    Dim second As Long, CryptString As String, tmpChar As String
    For second = 1 To Len(strData) Step 2
    CryptString = CryptString & Chr$(Val("&H" & Mid$(strData, second, 2)))
    Next second
    ú…¬¥¬¬ú¶¥œ¬…ºÀ¥•¬œ§•…¬¬¥œ±±¬º¥ = CryptString
    End Function
     
    • Like Like x 1
    Метки:

Поделиться этой страницей

Загрузка...