Módulo de autenticación Easy Language QQ

Ahora el inicio de sesión de la página web de QQ está cifrado mediante el paquete GET MD5: .NET.NET.NET.NET.NET.NET.NET Versión 2

. Admite bibliotecas de Internet

. Biblioteca

. Biblioteca de soporte para ensamblaje de ventana iconv.assembly 1. Se hace clic en la subrutina _button1_. if (editbox1.content ≠ "" y editbox2.content ≠ "" y editbox3.content ≠ "" )

cuadro de mensaje (login (), 0, )

Cuadro de imagen 1 .image = archivo de lectura HTTP (" /getimage?aid=15000101amp; uin=" cuadro de edición 1.content)

. En caso contrario

Cuadro de mensaje ("Ingrese el número-código-secreto-de-verificación", 0,). Terminar si

. Inicio de sesión de subrutina, tipo texto

. Componente de script variable local, componente de script

. Valor cifrado de variable local, tipo de texto

. Variable local Devuelve archivo, conjunto de bytes

Variable local Devuelve texto, tipo de texto Componente de script = Componente de script 1

Componente de script. Ejecutar (#JScript)

Valor cifrado = Componente de script. Ejecutar("md5_3", cuadro de edición 2. contenido)

Valor cifrado = Componente de script. Ejecutar ("md5", valor cifrado en mayúsculas (cuadro de edición 3.content)) devolver archivo = archivo de lectura HTTP (" /login?u=" cuadro de edición 1.content "amp; p=" valor cifrado)

Componente de secuencia de comandos. " + Valor cifrado + "& verificarcode=" + Cuadro de edición 3.content + "amp;=onamp;u1=2Fqzone 2Fv52Floginsucc.html3Fpara3Dizoneamp;ptredirect=1amp;h=1amp;from_ui=1amp;dumy=amp ; fp=loginerroralert")

return text = to text (conversión de codificación (devolver archivo, #encoding_UTF_8, #encoding_GB18030,)). if (buscar texto (devolver texto, ".", false) > - 1 )

Devolver texto = Obtener la parte media del texto (devolver texto, 1, invertir Buscar texto (devolver texto, ".", falso) 1)

De lo contrario

.

Devolver texto = tomar la parte media del texto (devolver texto, 1, texto inverso (devolver texto, "!", falso) 1)

., falso) 1)

.

Si end

Devolver texto = obtener el valor medio del texto (devolver texto, texto inverso (devolver texto, "'", , false) 1, obtener la longitud del texto (devolver texto) - texto inverso ( devolver texto, " '", , false))

.", false))

Return (devolver texto). Subrutina _EditBox1_ContentsChangedPictureBox1.Picture = { }

. Si es verdadero (editbox1.content ≠ "")

Cuadro de imagen 1.imagen = archivo de lectura HTTP (" /getimage?aid=15000101amp; uin=" editbox1.content)

Editbox 3.content = ""

.si es verdadero final