Hack98.Erase a Skype User Account
Hack 98. Erase a Skype User Account
This hack will clear all histories, overwrite data in your personal profile, and otherwise delete all personal data associated with a Skype account. Works with: Windows version of Skype. Whether you've been running Skype on a borrowed machine, or you simply no longer need a Skype user account, wipe it off the face of the Earth (actually, the hard disk and the Skype network) using this collection of scripts:
All of the preceding scripts operate on the user currently logged onto Skype, except for erase_folders_and_files.vbs, which allows you to delete the Skype files and folders for a named Skype user. Most run silently, meaning that they don't notify you of what they've done, or when they're done; they just do what's asked of them and finish. You can combine these scripts in different ways to fine-tune the erasure process. For example, if you want to erase all your voicemail and chat histories, you can run this command from the run line or a shortcut: erase_vm_history.vbs ; erase_chat_history.vbs. This command assumes you've put your VBScripts somewhere on your execution path; otherwise, you will have to include folder paths and possibly have to use quotes to encase the VBScripts. By making the erasure process divisible through small scripts, with each script designed to perform one simple task, you gain a good deal of flexibility over what you keep, and what you throw away, in terms of Skype user data on a machine. Lastly, you should be aware that Skype names persist forever and are never recycled or reused. So, in a sense, you can never truly erase a Skype name. However, by erasing all the databoth online and on the hard diskassociated with a Skype name, you have totally disassociated yourself from the Skype name. 12.9.1. erase_profile_from_network.vbs. ' File: erase_profile_from_network.vbs Dim objSkypeAPI Set objSkypeAPI = WScript.CreateObject("SkypeAPI.Access") objSkypeAPI.ConnectAndWait 15000 objSkypeAPI.SendBlockingCommand("SET PROFILE FULLNAME ") objSkypeAPI.SendBlockingCommand("SET PROFILE BIRTHDAY 19000101") objSkypeAPI.SendBlockingCommand("SET PROFILE SEX UNKNOWN") objSkypeAPI.SendBlockingCommand("SET PROFILE LANGUAGES ab") objSkypeAPI.SendBlockingCommand("SET PROFILE COUNTRY ") objSkypeAPI.SendBlockingCommand("SET PROFILE PROVINCE ") objSkypeAPI.SendBlockingCommand("SET PROFILE CITY ") objSkypeAPI.SendBlockingCommand("SET PROFILE PHONE_HOME ") objSkypeAPI.SendBlockingCommand("SET PROFILE PHONE_OFFICE ") objSkypeAPI.SendBlockingCommand("SET PROFILE PHONE_MOBILE ") objSkypeAPI.SendBlockingCommand("SET PROFILE HOMEPAGE ") objSkypeAPI.SendBlockingCommand("SET PROFILE ABOUT ") objSkypeAPI.SendBlockingCommand("SET PROFILE MOOD_TEXT ") objSkypeAPI.SendBlockingCommand("SET PROFILE TIMEZONE 0") ' This code is needed to erase e-mail address and ' avatar picture, as these can't be set using the API. Dim objShell, keysequence, keystrokes, keys, pause Set objShell = WScript.CreateObject("WScript.Shell") keysequence = "^+S|%(FM)|{TAB}|{TAB}|{TAB}|{TAB}|{TAB}|" & _ "{TAB}|{TAB}|{TAB}|{TAB}|{TAB}|{TAB}|{TAB}|" & _ "{TAB}|{TAB}|{TAB}|{ENTER}|{TAB}|{DEL}|" & _ "{TAB}|{ENTER}" keystrokes = Split(keysequence, "|") pause = 1500 For Each keys In keystrokes objShell.SendKeys keys WScript.Sleep pause If pause>100 Then pause=100 End If Next 12.9.2. erase_vm_history.vbs. ' File: erase_vm_history.vbs Dim objSkypeAPI Set objSkypeAPI = WScript.CreateObject("SkypeAPI.Access") objSkypeAPI.ConnectAndWait 15000 objSkypeAPI.SendBlockingCommand("CLEAR VOICEMAILHISTORY") 12.9.3. erase_chat_history.vbs. ' File: erase_chat_history.vbs Dim objSkypeAPI Set objSkypeAPI = WScript.CreateObject("SkypeAPI.Access") objSkypeAPI.ConnectAndWait 15000 objSkypeAPI.SendBlockingCommand("CLEAR CHATHISTORY") 12.9.4. erase_call_history.vbs. ' File: erase_call_history.vbs Dim objSkypeAPI Set objSkypeAPI = WScript.CreateObject("SkypeAPI.Access") objSkypeAPI.ConnectAndWait 15000 objSkypeAPI.SendBlockingCommand("CLEAR CALLHISTORY ALL") 12.9.5. erase_folders_and_files.vbs. ' File: erase_folders_and_files.vbs ' Invoke like this from the command-line: ' erase_folders_and_files skypeuser ' ' Parameters: ' skypeuser is the Skype user name for which ' you want to erase Skype folders and files. ' Variables Dim objShell ' Scripting shell object Dim objFSO ' File system object Dim objArgs ' Command line arguments Dim strSkypeUser ' Skype user name passed on the command-line Dim strHomePath ' Path to home folder of current user Dim strSkypePath ' Path to Skype folder of strSkypeUser ' Main script begins here Set objShell = WScript.CreateObject("WScript.Shell") Set objFSO = WScript.CreateObject("Scripting.FileSystemObject") ' Count how many users are passed Set objArgs = WScript.Arguments If objArgs.Count <> 1 Then objShell.Popup "Parameter 1: Handle of Skype user to delete" & _ vbCr & vbCr & "Skype should be closed before " & _ "running this script", 0, _ "Erase Skype folders and files", 64 Else strSkypeUser = objArgs(0) ' Get the location of the "Documents and Settings" folder ' First, get the system drive and profiles directory strHomePath = objShell.Environment("PROCESS")("HOMEDRIVE") & _ objShell.Environment("PROCESS")("HOMEPATH") strSkypePath = strHomePath & "\Application Data\Skype\" & _ strSkypeUser If Not objFSO.FolderExists(strSkypePath) Then objShell.Popup "Skype profile path """ & strSkypePath & _ """ not found", 0, "Unable to continue", 16 Else ' Try to delete the folder, if there is an error, Skype ' is probably open On Error Resume Next objFSO.DeleteFolder strSkypePath, True If Err.Number = 0 Then objShell.Popup "Folder: " & strSkypePath & vbCr & _ "has been erased!", 0, "Skype folders" & _ " and files for " & strSkypeUser & _ " erased!", 64 Else objShell.Popup "Skype is probably open, you need to " & _ "close Skype before running this script", _ 0, "Unable to delete Skype folders " & _ "and files", 48 End If End If End If |
EAN: 2147483647
Pages: 168