Decrypte jpg

Télécharger le projet
Commenter

Description

permet de decrypter des jpg crypter avec du xor
comme on en trouve dans certain CDs

-il faut suivre les indicatons des msgbox
du script qui sont de se mettre dans le meme
repertoire que le repertoire contenant les sous repertoire
ayant les photos( quoi t'a rien compris?) car en generale le
genre de cd dans je parle sont structuré de la sorte!
sinon vous arrangez le code a votre sauce

-il met donc les photos en clair dans d'autre repertoire
et qui seront accessible via des pages html qui seront
crée par le script

Source / Exemple : 


'----------------------------------------------------------------------------
'Auteur    : racattac13
'Version   : 2.0
'Date      : 17/07/2004
'Programme : niquejpeg.vbs decrypte les fichier jpeg des idcode et lance une page htm presentant les photos
'----------------------------------------------------------------------------
On error resume next
Dim fs,reperp,Folder,sourep,Folder2,files2,fil,fs2,ci,cp,fwi
ci=0
cp=2

temp1="<A href="&CHR(34)
temp2=CHR(34)&"><IMG height=100 src="&CHR(34)
temp3=CHR(34)&"width=100></A>"

conf=Msgbox("Ce script doit se trouver dans le meme repertoire que "&CHR(34)&"idcode "&CHR(34)&"CONTINUEZ???",4,"by racattac13")

if conf=6 then

reperp = InputBox("Entrez le nom du repertoire","by racattac13","i....e")
if reperp <>"" then
Set fs = CreateObject("Scripting.FileSystemObject")
Set fol = fs.CreateFolder("image_decrypt")
Set Folder = fs.GetFolder(reperp)
Folder.attributes=0
Set sourep =Folder.SubFolders
Set soufil =Folder.Files

for each fil in soufil
Set fs4 = CreateObject("Scripting.FileSystemObject")
Set Fich = fs4.GetFile(reperp&"\"&fil.Name)
Fich.attributes=0
next

Set fwi=fs.OpenTextFile("photo1.htm",2,True,0)
for each fil in sourep
Set fs2 = CreateObject("Scripting.FileSystemObject")
 Set Folder2 = fs2.GetFolder(reperp&"\"&fil.Name)
 Folder2.attributes=0
 Set files2 = Folder2.Files
Set fol = fs.CreateFolder("image_decrypt\"&Folder2.Name)
  For each fil2 in files2
   Set f = fs2.GetFile(fil2)
   f.attributes=0
  
   charac=165
   
 set fr=fs2.OpenTextFile(reperp&"\"&Folder2.Name&"\"&fil2.Name,1,True,0)
 set fw=fs2.OpenTextFile("image_decrypt\"&Folder2.Name&"\"&fil2.Name,2,True,0)
   i=i+1 
   Do While fr.AtEndOfStream <> True
    temp=fr.Read(1)   
    result=ASC(temp) Xor charac 
    fw.Write(Chr(result))  
   Loop
   ci=ci+1
   fwi.WriteLine(temp1&"image_decrypt\"&Folder2.Name&"\"&fil2.Name&temp2&"image_decrypt\"&Folder2.Name&"\"&fil2.Name&temp3)
   fr.Close
   fw.Close
   if ci=49 then
    Call pageie()
   end if

Next

  fs2.DeleteFolder(reperp&"\"&Folder2.Name)

Next       
fs.DeleteFolder(reperp)

Set WshShell=WScript.CreateObject("WScript.Shell")
fwi.WriteLine(temp1&"photo"&cp-2&".htm"&CHR(34)&"><center>PRECEDENT</center></A>")
fwi.Close
Msgbox "si des photos ne s'affiche pas changer la derniere valeur hexadecimale par la valeur D9 a l'aide d'un editeur hexadecimale. Allez! bonne s...!",4096,"By racattac13"
WshShell.Run "photo1.htm"

else
Msgbox "pas de repertoire",4096,"by racattac13"
end if

else
Msgbox "A plus",4096,"by racattac13"
end if
Sub pageie()
ci=0
fwi.WriteBlankLines(3)
if cp=2 then
fwi.WriteLine(temp1&"photo"&cp&".htm"&CHR(34)&"><center>SUIVANT</center></A>")
else
fwi.WriteLine(temp1&"photo"&cp-2&".htm"&CHR(34)&"><center>PRECEDENT</center></A>")
fwi.WriteLine(temp1&"photo"&cp&".htm"&CHR(34)&"><center> SUIVANT</center></A>")
end if
fwi.Close
Set fwi=fs.OpenTextFile("photo"&cp&".htm",2,True,0)
cp=cp+1
End Sub

Conclusion :


Le seul bug qui pourrait avoir est clairement indiqué
a la fin de l'execution du script:
certaine photos pourrait etre mal decrypter, il leur
suffirat de changer la derniere valeur hexadecimale
par la valeur "D9" biensur avec un editeur hexa.
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (racattac13)