Traces internet

LABEL Dbl, Histor, Suph, Supcook
DIM fh$, fb$, i%,a$,n$,t$,d$,l$,s$,e$
fh$ = "C:\TEMP\ipcfg.txt": ' fichier de manoeuvre
fb$ = "C:\TEMP\Supcook.bat": ' fichier de manoeuvre

' Suppression des cookies sur différents navigateurs, voir:
'       http://www.catonmat.net/blog/clear-privacy-ie-firefox-opera-chrome-safari/
DATA "@echo off"
DATA "set DataDir=C:\Users\%USERNAME%\AppData\Local\Mozilla\Firefox\Profiles"
DATA "del /q /s /f "+CHR$(34)+"%DataDir%"+CHR$(34)+"
DATA "rd /s /q "+CHR$(34)+"%DataDir%"+CHR$(34)+"
DATA "for /d %%x in (C:\Users\%USERNAME%\AppData\Roaming\Mozilla\Firefox\Profiles\*) do del /q /s /f %%x\*sqlite"
DATA "F"
IF FILE_EXISTS(fb$) = 1 THEN FILE_DELETE fb$
FILE_OPEN_WRITE 1,fb$: ' création du fichier batch
    READ a$
    WHILE a$<>"F": FILE_WRITELN 1,a$: READ a$: END_WHILE
FILE_CLOSE 1

WIDTH 0,660: HEIGHT 0,450
CAPTION 0," -   IPCONFIG :   HISTORIQUE   DES   CONNEXIONS   INTERNET   -"
COLOR 0,180,255,255
MEMO 10: WIDTH 10,600: HIDE 10
LIST 20: WIDTH 20,WIDTH(0)-16: HEIGHT 20,HEIGHT(0)-70
COLOR 20,255,255,200: FONT_NAME 20,"Lucida Console": FONT_SIZE 20,10
BUTTON 30: TOP 30,HEIGHT(0)-65: LEFT 30,100: WIDTH 30,200: FONT_BOLD 30
CAPTION 30,"Supprimer tout l'historique": ON_CLICK 30,Suph
BUTTON 40: TOP 40,TOP(30): LEFT 40,350: WIDTH 40,200: FONT_BOLD 40
CAPTION 40,"Supprimer tous les cookies": ON_CLICK 40,Supcook

GOSUB Histor
End
' ==============================================================================
Histor:
' Affichage des connexions archivées
EXECUTE_WAIT "CMD.exe /c C:\Windows\System32\ipconfig.exe /displaydns >Z:\ipcfg.txt"
CLEAR 10: FILE_LOAD 10,"Z:\ipcfg.txt"
CLEAR 20
a$ = "NOM D'ENREGISTREMENT"+STRING$(20," ")+" TYPE  DURÉE  LGR  SECTION   ENREG."
ITEM_ADD 20,a$
a$ = "===================="+STRING$(20," ")+" ====  =====  ===  =======  ========="
ITEM_ADD 20,a$
i% = 1
Dbl:
a$ = ITEM_READ$(10,i%)
WHILE LEFT$(a$,10)<>"    Nom d'"
    i% = i%+1: IF i%>=COUNT(10) THEN RETURN
    a$ = ITEM_READ$(10,i%)
END_WHILE
n$ = RIGHT_POS$(a$,29)
i%=i%+1: a$ = ITEM_READ$(10,i%): t$ = RIGHT_POS$(a$,29)
i%=i%+1: a$ = ITEM_READ$(10,i%): d$ = RIGHT_POS$(a$,29)
i%=i%+1: a$ = ITEM_READ$(10,i%): l$ = RIGHT_POS$(a$,29)
i%=i%+1: a$ = ITEM_READ$(10,i%): s$ = RIGHT_POS$(a$,29)
i%=i%+1: a$ = ITEM_READ$(10,i%): e$ = RIGHT_POS$(a$,29)
IF s$ = "R‚ponse" THEN s$ = "Réponse"
IF LEN(n$)>39 THEN n$ = LEFT$(n$,39)
a$ = n$+STRING$(40-LEN(n$)," ")
a$ = a$+STRING$(4-LEN(t$)," ")+t$
a$ = a$+STRING$(8-LEN(d$)," ")+d$
a$ = a$+STRING$(4-LEN(l$)," ")+l$
a$ = a$+STRING$(10-LEN(s$)," ")+s$
a$ = a$+"  "+e$
ITEM_ADD 20,a$
i%=i%+1
GOTO Dbl
RETURN
' ==============================================================================
Suph:
' Suppression de l'historique
EXECUTE_WAIT "CMD.exe /c C:\Windows\System32\ipconfig.exe /flushdns >"+fh$
GOSUB Histor
RETURN
' ==============================================================================
Supcook:
' Suppression des cookies
EXECUTE_WAIT "CMD.exe /C " + fb$
RETURN
' ==============================================================================

erase "%TEMP%\*.*" /f /s /q
for /D %%i in ("%TEMP%\*") do RD /S /Q "%%i"

erase "%TMP%\*.*" /f /s /q
for /D %%i in ("%TMP%\*") do RD /S /Q "%%i"

erase "%ALLUSERSPROFILE%\TEMP\*.*" /f /s /q
for /D %%i in ("%ALLUSERSPROFILE%\TEMP\*") do RD /S /Q "%%i"

erase "%SystemRoot%\TEMP\*.*" /f /s /q
for /D %%i in ("%SystemRoot%\TEMP\*") do RD /S /Q "%%i"


@rem Clear IE cache -  (Deletes Temporary Internet Files Only)
RunDll32.exe InetCpl.cpl,ClearMyTracksByProcess 8
erase "%LOCALAPPDATA%\Microsoft\Windows\Tempor~1\*.*" /f /s /q
for /D %%i in ("%LOCALAPPDATA%\Microsoft\Windows\Tempor~1\*") do RD /S /Q "%%i"

@rem Clear Google Chrome cache
erase "%LOCALAPPDATA%\Google\Chrome\User Data\*.*" /f /s /q
for /D %%i in ("%LOCALAPPDATA%\Google\Chrome\User Data\*") do RD /S /Q "%%i"


@rem Clear Firefox cache
erase "%LOCALAPPDATA%\Mozilla\Firefox\Profiles\*.*" /f /s /q
for /D %%i in ("%LOCALAPPDATA%\Mozilla\Firefox\Profiles\*") do RD /S /Q "%%i"

pause