Mensajes

[IsUserAnAdmin]

La función IsUserAnAdmin solo funciona desde XP a vista. Te recomiendo que uses CheckTokenMembership, que funciona desde XP hasta 8.

http://msdn.microsoft.com/en-us/library/windows/desktop/aa376389%28v=vs.85%29.aspx

Ejemplo de la msdn en C++

Código (cpp) [Seleccionar] Expandir

BOOL IsUserAdmin(VOID)
/*++
Routine Description: This routine returns TRUE if the caller's
process is a member of the Administrators local group. Caller is NOT
expected to be impersonating anyone and is expected to be able to
open its own process and process token.
Arguments: None.
Return Value:
   TRUE - Caller has Administrators local group.
   FALSE - Caller does not have Administrators local group. --
*/
{
BOOL b;
SID_IDENTIFIER_AUTHORITY NtAuthority = SECURITY_NT_AUTHORITY;
PSID AdministratorsGroup;
b = AllocateAndInitializeSid(
    &NtAuthority,
    2,
    SECURITY_BUILTIN_DOMAIN_RID,
    DOMAIN_ALIAS_RID_ADMINS,
    0, 0, 0, 0, 0, 0,
    &AdministratorsGroup);
if(b)
{
    if (!CheckTokenMembership( NULL, AdministratorsGroup, &b))
    {
         b = FALSE;
    }
    FreeSid(AdministratorsGroup);
}

return(b);
}


Un saludo.

Igualmente 

Aquí te dejo un ejemplo que he hecho, funciona solo con números de una cifra:

Código (cpp) [Seleccionar] Expandir

#include <iostream>

using namespace std;

int main()
{
    char _numero = NULL;

    cout << "Introduce un numero: ";
    cin >> _numero;

    int numero = (int)(_numero-0x30);

    if (numero < 0x0 || numero > 0x9)
    {
        cout << endl <<"Error, el digito intrucido no es un numero" << endl;

        return 1;
    }

    cout << "El numero introducido es: " << numero << endl;
    return 0;
}


[ImageBase]

Esa dirección depende del ImageBase del ejecutable... No tienen porque tener todas las aplicaciones la misma dirección.

No me había dado cuenta de que habías editado el mensaje... 

6- En Perl no hacen falta punteros para nada...

7- Que yo sepa no se puede dar alias a los parámetros, yo lo que hago es hacer la declaración en C como comentario:

Código (perl) [Seleccionar] Expandir

use feature 'say';

fun1("Pepe","Martinez");

exit;

sub fun1 # void fun1(char * Nombre, char * Apellido)
{
    say "Mi Nombre es $_[0] y mi apelido $_[1]";
}

En respuesta concreta hay diferentes aplicaciones que te permiten reparar un sector o clúster  defectuoso sin perder datos, como el HDD Regenerator, HDD Recovery, o bootear desde Linux y usar el badblocks con la opción –n, etc.

Sí se puede reparar y recuperar, pero también se puede desfragmentar para que la información que tienes en ese clúster o sector se mueve a algún otro.

Cierto, me contradije... 

No sabía de la existencia de esos programas, es bueno saberlo, ¡gracias!.

[Kakashi20]

Hola amigo Kakashi20, te dejo la documentación para implementarlo en tu web:

https://developers.facebook.com/docs

¡un saludo!



Hay personas que están en todos lados y poca ayuda acaban prestando  No quiero señalar a nadie pero tener 2000 post no es ningún merito si son 2000 post absurdos.

[Constance]

Hola de nuevo Constance, espero que esta vez, si me puedas responder exclusivamente, sin irte mucho de lo que pregunto.

No has pensado por casualidad que  no tenemos garras o colmillos porque no nos hace falta?

Si puedo matar un animal con un hacha por que voy a estar penando pegandole un mordisco?

De hecho aunque seamos familia del mono no tenemos por que tener su misma dieta ni mucho menos, sino mira en el reino animal como entre dos razas de animales muy semejantes uno puede ser carnívoro y otro no...

Ademas, si hay animales que saltan reglas de la evolución como por ejemplo que los mamíferos no nazcan del huevo... porque no va a haber carnívoros con mandíbula de vegetarianos?

[strict]

1- strict te obliga a declarar las variables y es bueno su uso, lo que no te recomiendo yo es usar variables declaradas con local.

2- Sí.

3- Con my declaras variables, pueden ser locales (si las declaras dentro de una funcion), o globales, si las declaras fuera, ej de variable local con my:

Código (perl) [Seleccionar] Expandir

use feature 'say';

my $numero = 10;

fun();

say $numero;

exit;

sub fun
{
    my $numero = 2;
}

4- Una variable dentro de esos bloques no se considera como privada.

5- my ($var1,$var2,$var3,$var4,$var5);

[Perl]

Ya te di el código en Perl, pero me imagino que no te sirve, viendo que no te contesto nadie el otro dia, supongo que esta vez tampoco asique lo mas practico que te puedo dejar para ayudarte a solucionar tu problema es esto:

http://docs.python.org/2/howto/regex.html

Otra solución es hacerlo sin expreisones regulares, que me supongo que te tambien te servira...