Posté par
caylus caylus
Bonjour Minkus,
Pour vous éviter de perdre votre temps en correction !
' crypto4
DIM c AS STRING, d AS STRING, f AS STRING
c = " WSRTOUYGDIEQKFHPALZXJVCBMN"
f = " ERAIUSNTOLMDJCPBHVQFGXYZKW"
'd = "-EANSTIRLUODCPMVFGHBQJXYZKW"
DIM nb AS INTEGER: nb = 13
DIM a(nb) AS STRING, b(nb) AS STRING, ch AS STRING, g AS STRING, h AS STRING
DIM i AS INTEGER, j AS INTEGER, x AS INTEGER
DATA "BONJOUR MINKUS LE POEME DEMAIN DES L AUBE EST TIRE DES CONTEMPLATIONS DE VICTOR HUGO SANS RANCUNE CAYLUS"
DATA "QWERTY QWU I ROPW R I AWOSW DO PIRYFATG IR FREHRJYW"
DATA "KW HRSGTSRT LDTU GO KW URTU ZOW GO E RGGWYQU"
DATA "K TSRT HRS IR XDSWG K TSRT HRS IR EDYGRJYW"
DATA "KW YW HOTU QWEWOSWS IDTY QW GDT HIOU IDYJGWEHU"
DATA "KW ERSFAWSRT IWU CWOV XTVWU UOS EWU HWYUWWU"
DATA "URYU STWY LDTS RO QWADSU URU WYGWYQSW ROFOY PSOTG"
DATA "UWOI TYFDYYO IW QDU FDOSPW IWU ERTYU FSDTUWWU"
DATA "GSTUGW WG IW KDOS HDOS EDT UWSR FDEEW IR YOTG
DATA "KW YW SWJRSQWSRT YT I DS QO UDTS ZOT GDEPW"
DATA "YT IWU LDTIWU RO IDTY QWUFWYQRYG LWSU ARSXIWOS"
DATA "WG ZORYQ K RSSTLWSRT KW EWGGSRT UOS GR GDEPW"
DATA "OY PDOZOWG QW ADOV LWSG WG QW PSOCWSW WY XIWOS"
'Demain, dès l'aube
'Paroles: Victor Hugo
'Musique : Henri Tachan
'Demain, dès l'aube, à l'heure où blanchit la campagne,
'Je partirai. Vois-tu, je sais que tu m'attends,
'J'irai par la forêt, j'irai par la montagne,
'Je ne puis demeurer loin de toi plus longtemps,
'Je marcherai les yeux fixés sur mes pensées,
'Sans rien voir au dehors, sans entendre aucun bruit,
'Seul, inconnu, le dos courbé, les mains croisées,
'Triste, et le jour pour moi sera comme la nuit,
'Demain, dès l'aube, à l'heure où blanchit la campagne,
'Je partirai. Vois-tu, je sais que tu m'attends,
'J'irai par la forêt, j'irai par la montagne,
'Je ne puis demeurer loin de toi plus longtemps,
'Je ne regarderai ni l'or du soir qui tombe
'Ni les voiles au loin descendant vers Harfleur,
'Et quand j'arriverai, je mettrai sur ta tombe
'Un bouquet de houx vert et de bruyère en fleur,
'Un bouquet de houx vert et de bruyère en fleur.
'Demain, dès l'aube, à l'heure où blanchit la campagne,
'Je partirai. Vois-tu, je sais que tu m'attends.
RESTORE: FOR i = 1 TO nb: READ a(i): NEXT i
CLS
OPEN "c:\crypto4.txt" FOR OUTPUT AS #1
FOR i = 1 TO nb
h = ""
g = a(i)
FOR j = 1 TO LEN(g)
ch = MID$(g, j, 1)
x = INSTR(c, ch)
h = h + MID$(f, x, 1)
NEXT j
PRINT h
PRINT #1, h
NEXT i
CLOSE #1
END