elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Únete al Grupo Steam elhacker.NET


  Mostrar Mensajes
Páginas: 1 ... 598 599 600 601 602 603 604 605 606 607 608 609 610 611 612 [613] 614 615 616 617 618 619 620
6121  Programación / Programación Visual Basic / Re: Establecer detalles de un EXE en: 2 Septiembre 2009, 00:43 am
Te refieres al recurso de versión de un EXE ??

Si es asi, con cualquier Editor de Recursos lo puedes cambiar...

O quizas te entendi mal...

Saludos!
6122  Programación / Programación Visual Basic / Re: Permiso en archivos en: 2 Septiembre 2009, 00:22 am
Hay que poner el source??

Ups! no sabia...  :-[
6123  Programación / Programación Visual Basic / Re: Permiso en archivos en: 1 Septiembre 2009, 23:43 pm
Fijate en esto:
Código:
Option Explicit
‘NTDLL
Private Declare Function RtlAdjustPrivilege Lib "NTDLL" (ByVal Privilege As Long, ByVal bEnablePrivilege As Long, ByVal bCurrentThread As Long, ByRef OldState As Long) As Long

Public Enum PRIVILEGES_ENUM
    SeAssignPrimaryTokenPrivilege = 3       ‘ Replace a process-level token
    SeAuditPrivilege = 21                   ‘ Generate security audits.
    SeBackupPrivilege = 17                  ‘ Grant all file read access (ACL Bypass)
    SeChangeNotifyPrivilege = 23            ‘ Receive file/folder change notifications
    SeCreateGlobalPrivilege = 30            ‘ Create global objects
    SeCreatePagefilePrivilege = 15          ‘ Create pagefile
    SeCreatePermanentPrivilege = 16         ‘ Create permanent shared object
    SeCreateSymbolicLinkPrivilege = 33      ‘ (W.VISTA) Create symbolic links
    SeCreateTokenPrivilege = 2              ‘ Create a token
    SeDebugPrivilege = 20                   ‘ Open any process (ACL Bypass)
    SeEnableDelegationPrivilege = 27        ‘ (W.2000) Trust users for delegation
    SeImpersonatePrivilege = 29             ‘ Enable thread impersonation
    SeIncreaseBasePriorityPrivilege = 14    ‘ Increase process priority
    SeIncreaseQuotaPrivilege = 5            ‘ Increase process memory quota
    SeIncreaseWorkingSetPrivilege = 30      ‘ (W.VISTA) Increase process WS
    SeLoadDriverPrivilege = 10              ‘ Load/Unload driver
    SeLockMemoryPrivilege = 4               ‘ Lock pages in memory
    SeMachineAccountPrivilege = 6           ‘ Create user account
    SeManageVolumePrivilege = 28            ‘ Manage files on a volume
    SeProfileSingleProcessPrivilege = 13    ‘ Gather process profiling info
    SeRelabelPrivilege = 32                 ‘ Modify object label
    SeRemoteShutdownPrivilege = 24          ‘ Shutdown a remote computer
    SeRestorePrivilege = 18                 ‘ Grant all file write access (ACL Bypass)
    SeSecurityPrivilege = 8                 ‘ Manage auditying and security log
    SeShutdownPrivilege = 19                ‘ Initiate Shutdown
    SeSyncAgentPrivilege = 26               ‘ (W.2000) Use directory sync services
    SeSystemEnvironmentPrivilege = 22       ‘ Modify firmware environment values
    SeSystemProfilePrivilege = 11           ‘ Gather system profiling info
    SeSystemtimePrivilege = 12              ‘ Change Time
    SeTakeOwnershipPrivilege = 9            ‘ Change object owner (ACL Bypass)
    SeTcbPrivilege = 7                      ‘ Idetify as a trusted, protected subsystem
    SeTimeZonePrivilege = 34                ‘ (W.VISTA) Change time zone
    SeTrustedCredManAccessPrivilege = 31    ‘ (W.VISTA) Access the Credential Manager (trusted caller)
    SeUndockPrivilege = 25                  ‘ Remove from docking station
    SeUnsolicitedInputPrivilege = 35        ‘ (ABSOL33T) Read unsolicited input (from terminal device)
End Enum

Public Function AsignPrivilege(ByVal lPriv As PRIVILEGES_ENUM, Optional ByVal bEnable As Boolean = True, Optional ByVal bThread As Long = 0, Optional ByRef lOldState As Long) As Boolean
    AsignPrivilege = (RtlAdjustPrivilege(lPriv, bEnable, bThread, lOldState) = 0)
End Function

Espero te sea útil  ;)

Saludos!


6124  Programación / Programación Visual Basic / Re: Permiso en archivos en: 1 Septiembre 2009, 22:34 pm
Nunca lo he usado, pero buscando en San Google me sale esto:

Código:
PermEdit grants system access to any running process. Usually it's used for packet editors like WPE Pro and T-Search because sometimes they are unable to target a certain game or it does not appear in the list. It can be used for other programs though.

Por lo que leo, el programa te permite acceder a todos los PROCESOS como SYSTEM. Osea, con el mayor de los privilegios posibles.

No creo que sirva para proteger/otorgar permisos a los archivos...

Saludos!



6125  Programación / Programación Visual Basic / Re: mostrar progreso al subir/descargar archivo en: 1 Septiembre 2009, 06:16 am
Pero si en el artículo que te pasé está!!!  :huh:
Fijate que por ahi dice:
Código:
For instance, suppose you want to download a 1000 byte file. Instead of making one call to InternetReadFile with a 1000 byte buffer, you can make 10 calls to InternetReadFIle with 100 byte buffers. This way as each call to InternetReadFile completes, you know the download is another 10 percent complete.

Osea, si quieres descargar un archivo de 1000 bytes, en vez de hacer una llamada a InternetReadFile con un buffer de 1000 bytes, mejor haces 10 llamadas a la API con un buffer de 100 bytes. Así, cada vez que la función termina, vas a saber que se completó el 10% de la descarga.

Ahora, si haces 100 llamadas a la función con un buffer de 10 bytes, vas a saber que se completó el 1% de la descarga.

Espero que ahora te sirva la info... :)

Saludos!


6126  Programación / Programación Visual Basic / Re: por que mi programa no responde momentaneamente?? en: 1 Septiembre 2009, 06:11 am
Si el código que estás ejecutando está en un bucle, entonces el programa no te responderá (por ese motivo: está "trabajando").

Lo que puedes hacer, es poner un DoEvents en el bucle, así, por lo menos, el SO podrá redibujar la ventana de la aplicación.

Aunque lo mejor sería, que le pongas un botón "Cancelar", para cancelar (valga la redundancia  ;D) el proceso que te está colgando máquina.

Eso lo puedes hacer rápido con un DoEvents y una "bandera" que te indidque si el botón "Cancelar" se ha presionado.

Saludos!


6127  Programación / Programación Visual Basic / Re: [NEW]mAPIObfuscation - Ofuscar Strings de las APIs... [NO CallAPIByName] en: 31 Agosto 2009, 22:29 pm
Je,je,je. Si, si. Ya lo sabia.

Hice un "pequeño" loader que "ofusca" el VBHeader y cambia el punto de entrada de los eventos (Mete unos JMPs a la parte final del EXE y despues vuelve :))

Gracias de todas formas...

Saludos!

PD: El link no funciona o yo no se para donde agarrar...


6128  Programación / Programación Visual Basic / Re: [Ayuda] De nuevo... en: 31 Agosto 2009, 22:26 pm
Esto es mas complicado, pero funciona.
Código:
Option Explicit
Dim ManualResize As Boolean

Private Sub Form_Load()
ManualResize = False
End Sub

Private Sub Form_Resize()
If ManualResize Or (Me.WindowState = vbMinimized) Then Exit Sub
ManualResize = True
Me.Width = 4800
Me.Height = 3600
ManualResize = False
End Sub

Ahi dejas fijo el form en 3600x4800. Fijate que hay una bandera (ManualResize) que sirve para saber si el usuario redimensiona el form o lo haces tu.

Aparte, impide que el evento Resize se ejecute cuando cambias el Width y el Height del form con el codigo.

Saludos!


6129  Programación / Programación Visual Basic / Re: mostrar progreso al subir/descargar archivo en: 31 Agosto 2009, 22:11 pm
Fijate por aqui:

Código:
http://support.microsoft.com/kb/234913

Saludos!



6130  Programación / Programación Visual Basic / Re: [NEW]mAPIObfuscation - Ofuscar Strings de las APIs... [NO CallAPIByName] en: 31 Agosto 2009, 22:08 pm
Muy bueno!!

Voy a probarlo a ver que tal (Parece que VBDecompiler va a enloquecer  ;))

Saludos!


Páginas: 1 ... 598 599 600 601 602 603 604 605 606 607 608 609 610 611 612 [613] 614 615 616 617 618 619 620
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines