Re: Challenge Crypto
Publié : dim. 11/juil./2010 12:13
CHALLENGE N°2
Code facile mais le code de décryptage comporte un piège. Etes vous assez logique pour le trouver ?????
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