Internet Lab

Et pour finir, le programme en lui meme.

Il reste deux ou trois petites choses à coder:

rem Prog
rem Bourrin: On charge le premier Ko du fichier en RAM
rem On taille large
rem C Rapide
dim fimg$(16382)
rem Tableau pour stocker la tentative
rem de decryptage
dim dimg$(16382)
rem Tableau copie
dim simg$(16382)

rem On tente le Brute Force
rem Par la suite: Input
try=1

color 7
cls
input "Filename :",infile$
open infile$ for BINARY as #1
rem Stats
print "File length--> ";lof(1);" Bytes"
rem On charge le fichier
idx=0

rem On notera le goto elegant :)
while not eof(1)
get$ #1,1,fimg$(idx)
idx=idx+1
if (idx>1024) then
rem Ach...
goto wexit:
end if
wend
wexit:
close (1)
print "Octets lus: ";idx-1
rem OK, le debut du fichier est charge

rem Analyse

rem Pas de crypto
cryptoalgo$="Aucun"
cryptokey=0
call detect

if (try=1) then
rem On fait une copie du tableau
rem simg$=original
for k=0 to idx-1
simg$(k)=fimg$(k)
next k

rem Essais avec differentes representations
rem des donnes.
rem Encodage Motorola

rem Base64

rem UUEncode

rem Essais avec des algos de crypto/scramble
rem triviaux.

rem On tente le brouillage XOR 8bits
cryptoalgo$="XOR"
for cryptokey=1 to 255
rem call xordecrypt(cryptokey)
for k=0 to idx-1
fimg$(k)=chr$(asc(simg$(k)) xor cryptokey)
next k
call detect
next cryptokey

rem Brouillage ADD
cryptoalgo$="ADD"
for cryptokey=1 to 127
for k=0 to idx-1
addtmp=asc(simg$(k))+cryptokey
if (addtmp>255) then
addtmp=addtmp-255
end if
fimg$(k)=chr$(addtmp)
next k
call detect
next cryptokey

rem Brouillage SUB
cryptoalgo$="SUB"
for cryptokey=1 to 127
for k=0 to idx-1
subtmp=asc(simg$(k))-cryptokey
if (subtmp<0) then
subtmp=subtmp+255
end if
fimg$(k)=chr$(subtmp)
next k
call detect
next cryptokey

rem Brouillage Right Shift

rem Brouillage Left Shift

rem Nibble Scrambling

end if
rem de try=1

print "Done"

end

Voila !

Encore du Turbo Basic, cette fois pour essayer de détecter des types de fichiers en se basant sur des structures de données et headers connus (style commande file d'Unix).

La touche en plus étant de voir si il n'y a pas un brouillage (Xor/Add/Sub) du fichier d'origine.

Pour ça rien de tel qu'un Brutal Force.

Par contre: Plein de faux positifs, il faut faire le tri des patates...

rem Obscure File Analyzer
rem Franck Balmer
rem 22 Avril 2007
rem Max 16k

rem Flag Identification
id=0
pshift=512
rem pshift=128

rem Flags ID particuliers
rem isexe=0

rem Fonctions

DEF FNpattern20 (off1,off2,val1,val2,mesg$)
shared fimg$()
local pidx,check1
check1=0
pidx=0
if ((fimg$(pidx+off1)=chr$(val1)) and (fimg$(pidx+off2)=chr$(val2))) then
check1=1
color 10
print mesg$;" (Offset[FiXed]=";pidx;" -2 Bytes Signature, be carefull-)"
color 7
call cryptocheck
end if
FNpattern20=check1
END DEF

DEF FNpattern2 (off1,off2,val1,val2,mesg$)
shared fimg$()
local pidx,check1
check1=0
for pidx=0 to pshift
if ((fimg$(pidx+off1)=chr$(val1)) and (fimg$(pidx+off2)=chr$(val2))) then
check1=1
color 2
print mesg$;" (Offset=";pidx;" -2 Bytes Signature, be carefull-)"
color 7
call cryptocheck
goto fin2:
end if
next pidx
fin2:
FNpattern2=check1
END DEF

DEF FNpattern30 (off1,off2,off3,val1,val2,val3,mesg$)
shared fimg$()
local pidx,check1,check2,check3
check1=0:check2=0:check3=0
pidx=0
if ((fimg$(pidx+off1)=chr$(val1)) and (fimg$(pidx+off2)=chr$(val2))) then
check1=1
end if
if (fimg$(pidx+off3)=chr$(val3)) then
check2=1
end if
if ((check1=1) and (check2=1)) then
check3=1
color 10
print mesg$;" (Offset[FiXed]=";pidx;"-3 Bytes Signature)"
color 7
call cryptocheck
end if
FNpattern30=check3
END DEF

Juste pour des tests, "(de)cryptage" par les opérations logiques:

Rem Logical (De)crypter
Rem 8 bits
Rem Mini Tools Serie
Rem Franck Balmer
Rem May 2007

Rem Constantes
outfile$="dlogic.out"

Rem Prog
input "Fichier :",infile$
print "Operation Logique :"
print "1->AND"
print "2->OR"
print "3->XOR"
input "Choix   :",logical

input "Clef    :",clef

open infile$  for BINARY as #1
open outfile$ for BINARY as #2
longueur=lof(1)
idx=1
while not eof(1)
rem Lecture 1 Octet
get$ #1,1,octet1$

rem DeScramble
select case logical
case 1
octet2$=chr$(asc(octet1$) and clef)
case 2
octet2$=chr$(asc(octet1$) or clef)
case 3
octet2$=chr$(asc(octet1$) xor clef)
case else
rem Copie simple
octet2$=octet1$
end select

rem Ecritue 1 Octet
put$ #2,octet2$
wend
close(2)
close(1)
end