hola vieron el permedit que le da permisos a los archivos? alguien tiene idea como funciona para poder hacerlo en visual basic 6?
Nunca lo he usado, pero buscando en San Google me sale esto:
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!
Cita de: MCKSys Argentina en 1 Septiembre 2009, 22:34 PM
Nunca lo he usado, pero buscando en San Google me sale esto:
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!
el programa ese le da permisos al proceso que quieras, cuando lo abris te salen todos los procesos y vos elegis, yo quisiera que mi programita en vb tenga esos permisos sin necesisas de darlos con ese programa el permedit
Fijate en esto:
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!
muchas gracias
@MCKSys Argentina: Creditos? Enlace? Nada?
'---------------------------------------------------------------------------------------
' Module : mNativeTokens
' Author : Karcrack
' Now$ : 18/08/2009 17:18
' Used for? : Get Privileges using Native API (RtlAdjustPrivilege)
' Reference :
' http://forum.sysinternals.com/forum_posts.asp?TID=15745
'---------------------------------------------------------------------------------------
http://foro.elhacker.net/programacion_vb/snippet_mnativetokens_rtladjustprivilege_api_nativa-t264555.0.html
Hay que poner el source??
Ups! no sabia... :-[
Cita de: MCKSys Argentina en 2 Septiembre 2009, 00:22 AM
Hay que poner el source??
Ups! no sabia... :-[
No es obligatorio, pero siempre es bueno :P Sobretodo si el autor soy yo :¬¬ :laugh: :laugh:
No te preocupues hombre :P
jaja si es bueno ;D
Jajajajaja.. Me causo risa eso... Buenisimo Karcrack... Y grande tú codigo...
Es que lo bueno está del Option Explicit, para abajo... ;D
Cita de: MCKSys Argentina en 2 Septiembre 2009, 22:04 PM
Es que lo bueno está del Option Explicit, para abajo... ;D
Jajajajaja esto me hizo reir más... jajajajaja
Ya se me hacia raro conocer el codigo y sin creditos
Cita de: MCKSys Argentina en 2 Septiembre 2009, 22:04 PM
Es que lo bueno está del Option Explicit, para abajo... ;D
Intenta usar estos codigos usando solo de Option Explicit para abajo:
'CREDITOS xD
Option Base 1
Option Explicit
Private Sub Form_Load()
On Error GoTo Fail
Dim bv(3) As Long
If bv(0) = 0 Then MsgBox "Ves como hay cosas importantes antes del Option Explicit???", vbCritical + vbOKOnly
Exit Sub
Fail:
MsgBox "Buen chico =D", vbInformation + vbOKOnly
End Sub
'CREDITOS xD
Option Compare Text
Option Explicit
Private Sub Form_Load()
If "listillo" = "LISTILLO" Then
MsgBox "Buen chico =D", vbInformation + vbOKOnly
Else
MsgBox "CHICO MALO!", vbCritical + vbOKOnly
End If
End Sub :xD :xD :laugh:
y peor de todo he visto codigos con las variables arriba del option explicit... :xD
Cita de: seba123neo en 3 Septiembre 2009, 01:42 AM
y peor de todo he visto codigos con las variables arriba del option explicit... :xD
Que feo queda eso :xD :xD
A partir de hoy en mis codes el
Option Explicit ira siempre encima de los creditos/comentarios, en la primera linea :P
Cita de: seba123neo en 3 Septiembre 2009, 01:42 AM
y peor de todo he visto codigos con las variables arriba del option explicit... :xD
Dim hola(0 To 3) As Byte
Option Explicit
Private Sub Form_Load()
If hola(1) = 0 Then
MsgBox "Niño bueno =D"
End If
End Sub
Cita de: Karcrack en 3 Septiembre 2009, 01:49 AM
Cita de: seba123neo en 3 Septiembre 2009, 01:42 AM
y peor de todo he visto codigos con las variables arriba del option explicit... :xD
Que feo queda eso :xD :xD
A partir de hoy en mis codes el Option Explicit ira siempre encima de los creditos/comentarios, en la primera linea :P
A partir de hoy empiezo a poner links y no más fuentes :laugh: