Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: DC++ i Lock2Key
anonim




Typ: Nie zarejestrowany
DC++ i Lock2Key

DC++ połączenie

by ktoś mógł podac kod kturym bm mógł się połaczyć z dc++

---------

Function Lock2Key(StrLock As String) As String
    Dim TLock2Key As String, TChar As Integer
    If Len(StrLock) < 3 Then
      Lock2Key = Left$("BROKENCLIENT", Len(StrLock))
      Exit Function
    End If
    TLock2Key = Chr$(Asc(Left$(StrLock, 1)) Xor Asc(Right$(StrLock, 1)) Xor Asc(Mid$(StrLock, Len(StrLock) - 1, 1)) Xor 5)
    For i = 2 To Len(StrLock)
        TLock2Key = TLock2Key & Chr$(Asc(Mid$(StrLock, i, 1)) Xor Asc(Mid$(StrLock, i - 1, 1)))
    Next i
    For i = 1 To Len(TLock2Key)
        TChar = Asc(Mid$(TLock2Key, i, 1))
        TChar = TChar * 16 + TChar  16 'Swap bits 11110000 -> 00001111
        TChar = TChar Mod 256
        If TChar = 0 Or TChar = 5 Or TChar = 36 Or TChar = 96 Or TChar = 124 Or TChar = 126 Then
            Lock2Key = Lock2Key & "/%DCN" & Right$("000" & TChar,3) & "%/"
        Else
            Lock2Key = Lock2Key & Chr$(TChar)
        End If
    Next i
End Function

Help pomuście co z tym zrobć jak gdzie to umieścić wypowiadajcie się pleas

[Post edytowany dnia 25-03-2005 10:33 przez hicks]

24-03-2005 11:30
  
Wszystkich odpowiedzi: 0 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1