Differences

This shows you the differences between two versions of the page.

--- blog:captcha_amb_cobol [2020/11/19 22:57] – falken
+++ blog:captcha_amb_cobol [2020/11/20 11:37] (current) – falken
@@ Line 1: / Line 1: @@
 ====== CAPTCHA amb COBOL ======
-Degut a la [[https://www.youtube.com/watch?v=dQw4w9WgXcQ|gran expansió que actualment pren el llenguatge COBOL i la interfície de terminal de text]] he pensat que és molt necessària l'aplicació de la tecnologia CAPTCHA als logins de les aplicacions Cobol.
+Degut a la [[https://media.giphy.com/media/Ju7l5y9osyymQ/giphy.gif|gran expansió que actualment pren el llenguatge COBOL i la interfície de terminal de text]] he pensat que és molt necessària l'aplicació de la tecnologia CAPTCHA als logins de les aplicacions Cobol.
 {{:blog:cobcaptcha1.png?600|}}
@@ Line 40: / Line 40: @@
 En la WORKING-STORAGE SECTION afegirem les variables que utilitzem per al Captcha:
-  CAPTCHA-Y        PIC 9(2) VALUE 1.
   captchafilename  PIC X(25) VALUE SPACES.
   BANNERCMD        PIC x(22) value "/usr/bin/figlet-figlet".
@@ Line 53: / Line 51: @@
            ACCEPT random-number FROM ENVIRONMENT "RANDOM2".
-Aquesta sentència pren un nombre al·leatori de la variable d'entorn (de la shell Unix) $RANDOM2.
+☝ Aquesta sentència pren un nombre al·leatori de la variable d'entorn (de la shell Unix) $RANDOM2.
            IF random-number = SPACE OR random-number = LOW-VALUE THEN
@@ Line 61: / Line 59: @@
            END-IF
-Aquest bloc controla que s'hagi rebut un nombre des de la variable d'entorn $RANDOM2.
+☝ Aquest bloc controla que s'hagi rebut un nombre des de la variable d'entorn $RANDOM2.
@@ Line 67: / Line 65: @@
             FUNCTION CONCATENATE(BANNERCMD " " random-number " > /tmp/.rnd-" random-number)
            END-CALL.
            MOVE FUNCTION CONCATENATE("/tmp/.rnd-" random-number) TO captchafilename
            OPEN INPUT captchafile
            READ captchafile
@@ Line 90: / Line 88: @@
            ACCEPT CAPTCHA AT 2026 WITH TIMEOUT AFTER 20 ON EXCEPTION STOP RUN.
-Aquí demanem a l'usuari que escrigui el nombre que apareix al Captcha i ho desem dins la variable CAPTCHA.
+☝ Aquí demanem a l'usuari que escrigui el nombre que apareix al Captcha i ho desem dins la variable CAPTCHA.
            IF CAPTCHA IS NOT EQUAL TO random-number THEN
@@ Line 101: / Line 99: @@
            END-IF.
-I en el bloc de dalt controlem si l'usuari ha entrat correctament el codi o no. Segons el resultat, el programa agafa un camí (continuar l'execució) o l'altre (STOP RUN).
+☝ I en el bloc de dalt controlem si l'usuari ha entrat correctament el codi o no. Segons el resultat, el programa agafa un camí (continuar l'execució) o l'altre (STOP RUN).
+Aquest procediment és molt millorable. Per exemple, hauriem de poder realitzar programàticament, en Cobol, el següent:
+  - Obtenir el número al·leatori sense recórrer a la variable d'entorn.
+  - Representar-lo amb ascii-art sense fer servir el programa //figlet//.
+Qui s'anima a fer-ho?
+Notes:
+Fem servir una variable d'entorn $RANDOM2 ja que el programa de Cobol no és capaç de llegir la variable $RANDOM, per tant, abans de la seva execució, assignem el valor de $RANDOM a $RANDOM2 i llavors el programa sí que és capaç de llegir aquesta nova variable.

Site Tools

Differences

User Tools

Page Tools

Site Tools