Cómo crear un servidor de inicio de sesión y de inicio de sesión en un lenguaje sencillo

Con el control de servidor y cliente, puede crear un sistema de inicio de sesión y control para su red de área local

El código fuente es el siguiente:

Versión

2.

. Biblioteca de soporte

sock

.Assembly

Ensamblaje de ventana 1

.Variables de ensamblaje

Usuario ,

Texto

. Variables de ensamblaje

Contraseña,

Textual

.Subrutina

__Ventana de inicio_creada

.Variables locales

>

IP,

Tipo de texto,

,

"0"

IP

=

Obtener IP local

()

Cuadro de edición 1. Contenido

=

IP

[1]

.Subrutina

_Server_Data_Arrival

. Variable local

Datos,

Textual

Datos

=

Eliminar el primer y el último nulo

(a texto

(Servidor.Obtener datos

()))

Usuario

=

Buscar texto a la izquierda

(datos,

Buscar texto

(datos,

"#",

,

,

verdadero)<

-

1)

Contraseña

=

Toma el lado derecho del texto

(datos,

Obtén la longitud del texto

( datos)

-

Buscar texto

( Datos,

"#",

,

,

Verdadero))

Infobox

("Hay un usuario conectado:"

+

# Carácter de nueva línea

+

Usuario

+

# Carácter de nueva línea

+

Contraseña,

0,

)

Subrutina

_Button1_is_clicked

Cliente. Conexión

(cuadro de edición 1.Contenidos,

19730)

Cliente. Enviar datos

(al conjunto de bytes

(cuadro de edición 2. contenido

+

"#"

+

Cuadro de edición 3. Contenido))

. Subrutina

_Server_Client_Enter

Texto de depuración de salida

(Server.Get client

())