J'y avais pensé, mais winzip est une passoire au niveau protection et je crois aussi que l'on peut cracker winrar.
Je voulais quelque chose de plus simple et bien a moi.
Creer en fait un webbrowser perso qui etait capable de lire ds fichiers codé sur une page et me les retranscrire en clair.
J'ai bien créé ce petit code qui marcjhe avec un fichier sur le DD, mais comment faire si le fichier source est sur un site ????
Sur cet exemple, je ne fais que lire bit a bit et ecrire sur un autre fichier sans coder, mais je pense que modifier au passage chaque bit doit pas etre trop compliqué ??????
En fait je n'y connais rien car j'ai toujours travaillé avec de l'ASCII et ds fichiers TXT, donc la pas de probleme pour rajouter par exemple "3" a chaque valeur ASCII et donc obtenir un fichier illisble.
Code : Tout sélectionner
; Fichier qui serait codé et déposé sur un site (.doc,mp3,rtf,etc ...)
OpenFile(1, "c:\site.doc")
; fichier que j'ecrirais sur mon DD
OpenFile(2, "c:\CopieSite.doc")
Repeat
UseFile(1)
Caractere.b = ReadByte()
Debug Caractere.b
UseFile(2)
WriteByte(Caractere.b)
Until Eof(1) = -1
CloseFile(1)
CloseFile(2)
Dans la fenetre debug je n'obtiens que des chiffres negatif et 0 quelques positif, c'est ça un bit ?????
J'ai vraiment besoin de vos lumieres pour le bit a bit ......
J'ai trouvé ce code génial qui lit la source d'une page internet, mais pour un fichier .doc il me retourne des hieroglyphes
Code : Tout sélectionner
; German forum: http://robsite.de/php/pureboard/viewtopic.php?t=1691&highlight=
; Author: Pille
; Date: 14. July 2003
;
; by Pille, 14.07.2003
;
; 31-Oct-2003: constants declaration changed to Enumeration by Andre
Enumeration
#gIndex
#Window
#Editor
#Url
#cmdOpenUrl
EndEnumeration
defaultUrl.s="http://www.google.de/index.html"
Procedure.s OpenURL(URL.s, OpenType.b)
;?OpenType [1 = IOTPreconfig | 2 = IOTDirect | 3 = IOTProxy]
;content.s = OpenURL("http://www.google.de/index.html", 1)
isLoop.b=1
INET_RELOAD.l = $80000000
hInet.l=0
hURL.l=0
Bytes.l=0
Buffer.s=Space(2048)
res.s=""
hInet = InternetOpen_("PB@INET", OpenType, #Null, #Null, 0)
hURL = InternetOpenUrl_(hInet, URL, #Null, 0, INET_RELOAD, 0)
Repeat
InternetReadFile_(hURL,@Buffer, Len(Buffer), @Bytes)
If Bytes = 0
isLoop=0
Else
res = res + Left(Buffer, Bytes)
EndIf
Until isLoop=0
InternetCloseHandle_(hURL)
InternetCloseHandle_(hInet)
ProcedureReturn res
EndProcedure
If OpenWindow(#Window, 0, 0, 500, 500, #PB_Window_SystemMenu | #PB_Window_TitleBar | #PB_Window_ScreenCentered , "OpenUrl")
If CreateGadgetList(WindowID())
EditorGadget(#Url, 5, 5, 410, 20)
EditorGadget(#Editor, 5, 30, 490, 465)
ButtonGadget(#cmdOpenUrl, 420, 5, 75, 20, "Get Source!")
EndIf
SetGadgetText(#Url, defaultUrl)
Repeat
EventID.l = WaitWindowEvent()
If EventID = #PB_EventGadget
Select EventGadgetID()
Case #cmdOpenUrl
SetGadgetText(#Editor, OpenUrl(GetGadgetText(#Url),1))
EndSelect
EndIf
Until EventID = #PB_EventCloseWindow
EndIf
End
Je sais pas si je suis bien clair, c'est vrai quand on a une idée tordue c'est pas facile de la faire partager.
Je vous remercie de votre aide
oui on peut cracker un zip si, par exemple, tu as un mdp ayant 10 caractères alphanumérique, il te faut 150 ans pour le cracker 