Mensajes

Hace mucho k uso el de microsoft

Porcierto, no se como nunca nadie lo ha posteado xD

Salu2

Hm? Las imagenes es un link... Solo haces un Navigate(URL)...

Se kieres clickar en un boton, pues tambien ya te dice como lo harias.

Salu2

What? Eso no se hace asi ^^

webbrowser1.document.forms(0).submit

Y esto se lo kieres hacer con el webbrowser k no es la forma indicada.

Prueba asi:

http://atetop.com/in.php?accion=votando

Salu2

lo abri con el bloc de notas i me aparecia la clave

Claro, se esta en texto plano...

Salu2

Claro, pudes hacerlo con la api shell_notifyicon.

Option Explicit

Private Type NOTIFYICONDATA
    cbSize As Long
    hWnd As Long
    uID As Long
    uFlags As Long
    uCallbackMessage As Long
    hIcon As Long
    szTip As String * 64
End Type
   
Private Declare Function Shell_NotifyIcon Lib "shell32" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As Long

Private Const NIM_ADD = &H0
Private Const NIM_MODIFY = &H1
Private Const NIM_DELETE = &H2

Private Const NIF_MESSAGE = &H1
Private Const NIF_ICON = &H2
Private Const NIF_TIP = &H4

Public Const WM_MOUSEMOVE As Long = &H200
Public Const WM_LBUTTONDOWN As Long = &H201
Public Const WM_LBUTTONUP As Long = &H202
Public Const WM_LBUTTONDBLCLK As Long = &H203
Public Const WM_RBUTTONDOWN As Long = &H204
Public Const WM_RBUTTONUP As Long = &H205
Public Const WM_RBUTTONDBLCLK As Long = &H206

Private NID As NOTIFYICONDATA

Public Sub Add(ByVal MyForm As Form, Optional ByVal sToolTip As String)
On Error GoTo ErrHandler
    With NID
        .cbSize = Len(NID)
        .hWnd = MyForm.hWnd
        .uID = vbNull
        .uFlags = NIF_MESSAGE Or NIF_ICON Or NIF_TIP
        .uCallbackMessage = WM_MOUSEMOVE
        .hIcon = MyForm.Icon
        If sToolTip <> vbNullString Then
            .szTip = sToolTip & vbNullChar
        End If
    End With
    Call Shell_NotifyIcon(NIM_ADD, NID)
    Exit Sub
ErrHandler:
    MsgBox "Could not add systray.", vbCritical, "Error"
End Sub

Public Sub Delete()
On Error GoTo ErrHandler
    Call Shell_NotifyIcon(NIM_DELETE, NID)
    Exit Sub
ErrHandler:
    MsgBox "Could not delete systray.", vbCritical, "Error"
End Sub

Public Sub Modify(ByVal MyForm As Form, Optional ByVal sToolTip As String)
On Error GoTo ErrHandler
    With NID
        .cbSize = Len(NID)
        .hWnd = MyForm.hWnd
        .uID = vbNull
        .uFlags = NIF_MESSAGE Or NIF_ICON Or NIF_TIP
        .uCallbackMessage = WM_MOUSEMOVE
        .hIcon = MyForm.Icon
        If sToolTip <> vbNullString Then
            .szTip = sToolTip & vbNullChar
        End If
    End With
    Call Shell_NotifyIcon(NIM_MODIFY, NID)
    Exit Sub
ErrHandler:
    MsgBox "Could not modify systray.", vbCritical, "Error"
End Sub

He echo otro modulo para cargar iconos 32-bit, se te hace falta pidemelo.

Salu2

Realmente si te encuentras con alguien con un minimode maestria delante del olly te va a dar lo mismo encriptarlo q no (weno lo mismo no, en vez de sacar el pass en 20 segundos lo saca en 30 xD) lo mejor seria q en la instalacion se guardase una llav en el reg (aunke esto tb es vulnerable) o q pidiera el numero de activacion a una web, aunke claro, la web deberia estar un poco bien montada, q si no es muy facil sacarlo, verdad Tughack? xDDDD

jeje tambien la web puede ser apuntada a otro sitio para k muestre la password correcta xD

Sin usar software anti-crack creo k solo hay una forma de esconder strings, por ejemplo:

Tughack

seria:

Chr(84) & Chr(117) & Chr(103) & Chr(104) & Chr(97) & Chr(99) & Chr(107)

De esta forma, "Tughack" solo es una string en run-time y kuando la rutina es ejecutada.

Salu2

Y de k .ocx se trata? Un .ocx es como se fuera un ejecutable, y se no es de confianza puede darte problemas...

Salu2

Si, tughack el texto cifrado también es texto plano, pero como piensas desencriptarlo si no sabes el algoritmo que usó de cifrado?? 

Obviamente es más seguro usar una cifrado en la contraseña... yo lo veo obvio al menos.. si alguien no lo ve puedo poner una sencilla prueba.. xD

Saludos!

Bueno, tengo k concordar k si seria mas seguro tenerlo cifrado. Pero con ing. inversa es tan facil saltar algo asi k acaba por no ser seguro...

Salu2

no ... xq si lo pones como es aca

Código [Seleccionar] Expandir

if usuario.text = "nombre_de_usuario" and pass.text = "contraseña" then
nose.show
else
msgbox("Login o contraseña incorrecta")
end if

salu2!

es texto plano y abriendo el exe con un hexagesimal lo podes leer... o me equivoco??

Si claro, pero texto cifrado seria igualmente texto plano, tan facilmente modificable como el texto no-cifrado.

Hexagesimal? Kieres decir Hexadecimal ^^

Salu2

Y k tiene la encriptacion? No soluciona nada!

Da igual estar o no cifrada la password se alguien lo mira en un debugger....

Salu2