Ahora se entiende mucho mejor. Intentas hacer un crackeador para el winrar (espero que sepas que ya hay algunos). Pues para ponerlo en el cuadro que te pide el winrar puedes hacerlo con API usando sendmessage y buscando el handle de la ventana, etc. etc. O quizas puedas buscar algun modulo o API para winrar que te permita hacerlo de una forma mas limpia.
Viendo que las claves por defecto que pones son "1234, 0000, 8888,etc." , todas las claves o pin son de 4 digitos? Y si ese es el caso no se podria programar un brute force?
Te interesa comparar los saltos de lineas? En caso de que no pues seria algo asi:
Código:
function isalphanumeric(txt as string) as boolean
dim validos() as string validos = 'todos los caracteres que consideres validos txt = str_replace(txt,vbnewline,"") ' para eliminar los salto de lineas for i = 0 to len(txt) for x = 0 to ubound(validos)
if not mid(str,i,1) = validos(x) then return false end if
next x next i
end function
No se el codigo lo hice rapido y se nota que hace mucho que no programo en vb Pero es para que tengas una idea de como hacerlo.
Puedes crear tu propia funcion que vaya comparando todos los caracteres de la palabra o string que le indiques con los caracteres invalido y si encuentra uno invalido pues que retorne false.
Mostrar Mensajes
Pero es para que tengas una idea de como hacerlo.