Internet Lab

Pour chercher un ordre caché dans un flot de données qui semblent aléatoires, rien de tel qu'une petite balade dans l'espace des phases:

On visualise (en 3D, merci Blitz) des triplets (x,y,z) de valeurs successives.

Ex, si IntegerArray% contient les valeurs du fichier données:

xx=IntegerArray%(a2*k-b2)-IntegerArray%(a3*k-b3)
yy=IntegerArray%(a1*k-b1)-IntegerArray%(a2*k-b2)
zz=IntegerArray%(a0*k-b0)-IntegerArray%(a1*k-b1)

(ou a1=a2=a3=1 et b1=1,b2=2,b3=3)

Autre variante, ou pseudox et pseudoy parcourent un plan 800x600 quand on balaye les valeurs:

pseudocos=pseudox/Sqr(pseudox^2+pseudoy^2)
pseudosin=pseudoy/Sqr(pseudox^2+pseudoy^2)

xx=IntegerArray%(a2*k-b2)-IntegerArray%(a3*k-b3)
yy=Int(pseudocos*(IntegerArray%(a1*k-b1)-IntegerArray%(a2*k-b2)))
zz=Int(pseudosin*(IntegerArray%(a0*k-b0)-IntegerArray%(a1*k-b1)))

Apres, ce n'est que de la manipulation d'objets 3d en Blitz.

 Exemple de "nebulisation" d'un code source:

Bon c'est un lecteur pour C64, mais il est quand meme plus beau que ceux des PCs.

Encore du OldSchool en QuickBasic: Bidouillage de formats spéciaux et création d'erreurs:

'Implantation de protection

'Sur une D7.

'Formattage non standard

'Uniquement par le BIOS.

'Donc fonctionne sur toute machine.

'A soumettre au scanner ecrit en QB.

'

'Franck Balmer, Janvier 2007.

'Ben oui...

'

'BIOS Sub

DECLARE SUB GetDPT ()

DECLARE SUB SetDPT (sectsize%, nbrsect%)

DECLARE SUB ResetDrive (Drive%)

DECLARE SUB FormatTrack (Drive%, track%, head%, nbrsect%)

DECLARE SUB InitIDTable ()

DECLARE SUB InitIDTable2 ()

'$INCLUDE: 'QB.BI'

DIM reg AS RegTypeX, reg2 AS RegTypeX

DIM databuffer%(9216) '18 Secteurs = 9216

DIM formattable%(72) '18 Secteurs * 4 Octets

'Table pour 18 (max) IDs: Piste/Face/Secteur/Taille

DIM TrackInError%(2, 90) 'Attention sup a maxtrack

DIM SectorInError%(2, 90, 22)

CLS

INPUT "Side (0/1) : ", head%

INPUT "Track (0..79) : ", track%

'INPUT "To Track : ", maxtrack%

maxsect% = 9

size% = 512

nbrsect% = maxsect%

sectsize% = 2

'Always Floppy A:

Drive% = 0

rerr% = 0

GetDPT

CALL SetDPT(sectsize%, nbrsect%)

ResetDrive (Drive%)

InitIDTable2

CALL FormatTrack(Drive%, track%, head%, nbrsect%)

CALL SetDPT(2, 18)

ResetDrive (Drive%)

PRINT "Protection implented (Not Verified :) !"

'Happy New Year

END

SUB FormatTrack (Drive%, track%, head%, nbrsect%)

SHARED formattable%(), rerr%, reg AS RegTypeX, reg2 AS RegTypeX

intnum% = &H13

numsectors% = nbrsect%

reg.ds = -1

reg.es = VARSEG(formattable%(0))

reg.bx = VARPTR(formattable%(0))

reg.cx = 256 * track% + 0

reg.dx = 256 * head% + Drive%

reg.ax = 5 * 256 + numsectors% 'Fonction 5: Format

CALL INTERRUPTX(intnum%, reg, reg2)

reg.ax = &H100

CALL INTERRUPTX(intnum%, reg, reg2)

rerr% = INT((reg2.ax) / 256)

END SUB

SUB GetDPT

SHARED SegDPT, OffDPT

'On calcule adresse DPT

DEF SEG = &H0

OffDPT = PEEK(4 * &H1E) + 256 * PEEK(4 * &H1E + 1)

SegDPT = PEEK(4 * &H1E + 2) + 256 * PEEK(4 * &H1E + 3)

DEF SEG

'PRINT ">>DPT at: "; HEX$(SegDPT); ":"; HEX$(OffDPT)

END SUB

SUB InitIDTable2

SHARED formattable%(), track%, head%, nbrsect%, sectsize%

'On Poke comme des malades

SegIDTable = VARSEG(formattable%(0))

OffIDTable = VARPTR(formattable%(0))

DEF SEG = SegIDTable

'Initialisation (Pseudo) Table

s% = 1

FOR k% = 1 TO 4 * nbrsect% STEP 4

POKE OffIDTable + k% - 1, track%

POKE OffIDTable + k% + 0, head%

POKE OffIDTable + k% + 1, s%

POKE OffIDTable + k% + 2, sectsize%

s% = s% + 1

NEXT k%

'Ici on trafique la table des IDs

'Secteur par secteur

'Secteur 2

POKE OffIDTable + 4, track%

POKE OffIDTable + 5, head%

POKE OffIDTable + 6, 2

POKE OffIDTable + 7, 3

'Secteur 6

'POKE OffIDTable + 20, track%

'POKE OffIDTable + 21, head%

'POKE OffIDTable + 22, 6

'POKE OffIDTable + 23, 0

'Fin des manips...

DEF SEG

END SUB

SUB ResetDrive (Drive%)

DIM reg AS RegTypeX, reg2 AS RegTypeX

reg.ax = &H0 ' function number 0

reg.dx = Drive%

CALL INTERRUPTX(&H13, reg, reg2)

END SUB

SUB SetDPT (sectsize%, nbrsect%)

SHARED SegDPT, OffDPT

'On change des valeurs dans la Table des Params Disk

'Gére maintenant la taille des secteurs

DEF SEG = SegDPT

'Sector Size

POKE OffDPT + &H3, sectsize%

'Number of Sectors

POKE OffDPT + &H4, nbrsect%

DEF SEG

END SUB

Yop !