promotion image of download ymail app
Promoted
Saverio ha chiesto in Computer e InternetSoftware · 2 mesi fa

Questo codice scritto in FreeBASIC perchè mi da un risultato strano ?

Dovrebbe essere uno script in grado di decifrare del testo ma invece mi da un risultato strano, c'è qualcosa di scritto sbagliato ?

--------

 dim as integer bx = 0, cx = 0, lp = 0

 dim as string by = "", cy(7)

 

 cy(1) = chr(97): cy(2) = chr(99): cy(3) = chr(102)

 cy(4) = chr(108): cy(5) = chr(110): cy(6) = chr(111): cy(7) = chr(117)

 

 cls

 

 cx = csrlin

 lp = pos

 

 

 for bx = 0 to 7 step 1

 

    if bx = 1 then by = cy(bx):print cy(bx)

    if bx = 2 then by = by & cy(bx) :print cy(bx) & " " & asc(cy(bx))

    if bx = 3 then by = cy(bx) & by :print cy(bx) & " " & asc(cy(bx))

    if bx = 4 then by = by & cy(bx) :print cy(bx) & " " & asc(cy(bx))

    if bx = 5 then by = mid(by,1,2) & cy(bx) & mid(by,3,2) :print cy(bx) & " " & asc(cy(bx))

    if bx = 6 then by = by & cy(bx) :print cy(bx) & " " & asc(cy(bx))

    if bx = 7 then by = mid(by,1,4) & cy(bx) & mid(by,5,2) :print cy(bx) & " " & asc(cy(bx))

    sleep 300

    locate cx ,lp : Print str(bx) & ":" & by

next bx

for bx = 1 to 10 step 1

 Print  by & " " & by & " " & by & " " & by & " " & by & " " & by & " " & by

next bx 

 

-----------

 

Ancora nessuna risposta.
Rispondi prima di tutti a questa domanda.