Code facile mais le code de décryptage comporte un piège. Etes vous assez logique pour le trouver ?????
Code : Tout sélectionner
txt$="..."
cle.b=...
RandomSeed(cle)
a$="Data.b "
For i=1 To Len(txt$)
b.b=Asc(Mid(txt$,i,1))
b!Random(255)
b+Random(150)
b!Random(244)
b-Random(200)
a$+Str(b)
If Len(a$)> 150
Debug a$
a$="Data.b "
Else
a$+","
EndIf
Debug a$
Data.b -50,97,-92,126,95,20,-5,-63,-83,-8,-119,98,-66,-35,68,-122,112,-84,80,-111,-37,-52,-88,-103,108,-17,119,21,12,-76,-29,94,13,-102,-49,56,-88,106,-54
Data.b -1,-92,-94,-92,-107,-80,-42,24,-19,-86,-68,-26,88,86,6,-122,-17,81,2,-47,-39,113,87,49,17,9,-118,44,83,97,110,91,101,55,-22,95,-94,71,-79,58,-49
Data.b -68,37,54,28,52,-85,4,76,-95,22,22,-12,117,-41,68,4,0,93,87,16,72,32,85,-111,99,23,83,-49,41,-45,-8,31,119,18,-109,97,21,49,-31,-7,7,-26,88,3,-118
Data.b -128,-105,-35,-72,-121,-10,-72,109,-102,101,83,-46,62,19,-65,-56,-28,-95,-95,-55,-18,125,-50,-75,-29,120,-116,17,27,47,-43,-116,-7,11,58,118,-48
Data.b 48,66,-113,-110,50,14,-122,80,-11,63,40,31,23,-106,58,71,-90,30,-104,-116,89,43,-29,38,-12,67,-2,-16,-79,-65,-35,-94,-53,53,-13,7,49,61,97,118,-89
Data.b -104,-44,122,-127,103,-8,-127,5,75,-34,8,23,22,94,106,-17,-104,37,87,30,123,-118,114,80,94,25,47,47,-38,-34,-85,-30,79,-59,93,39,15,106,-79,123,97
Data.b 87,-107,75,-91,-32,45,97,-61,-56,-6,64,-46,-108