Salinan kode adalah sebagai berikut:
<%
'////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////Y
'//
'//1.c:/windows/system32/cmd.exe
'// Salin jalur di mana file ini berada
'//
'//2.change c: /program/winrar/rar.exe
'// Salin jalur di mana file ini berada dan ganti nama menjadi winrar.exe
'//
'////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////Y
'//
'// Compresspath (Byvals)
'// Path to Compressed File | String Varian
'//
'// decompresspath (byvals)
'// mendekompres folder file | string varian
'//
'//kompres
'// Kompresi online
'//
'// Decompress
'// dekompresi online
'//
'// powynever-online
'//
'//Email:bluedestinyendiri ATatace126.com
'//
'////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////Y
OptionExplicit
classcompress_decompress_files
Privateversion, hak cipta
Privateowshell, Ofso
PrivatesCompresspath, SDecompresspath
privatesubclass_initialize
Versi = "compress_decompress_filesbuilder20051015"
Hak Cipta = "PowerbyMiracle (Bluedestiny)"
SetOfSO = server.CreateObject ("Scripting.FilesystemObject")
Setowshell = server.createObject ("wscript.shell")
writeln (versi+"<br>"+hak cipta)
endsub
privatesubclass_terminate
ifosObject (owshshell) thensetowshels = tidak ada
ifosObject (OFSO) thensetOfSO = tidak ada
endsub
PrivateFunctionPhysicalPath (Byvals)
FisikPath = server.mappath
fungsi endfungsi
PrivatesUbvalidateFile (Byvals)
IfofSo.FileExists (s) Thenexitsub
ifofso.Folderexists (s) lalu ExitSubs
Callerr "File (Folder) Notexists!"
endsub
PrivatesubCreateFolder (Byvals)
ifofso.Folderexists (s) lalu ExitSubs
Ofso.createFolder (s)
endsub
Privatesubwriteln (Byvals)
response.write "<p>"+s+"</p>"+vbcrlf
endsub
privatesubcallerr (byvals)
writeln "<p> <b> kesalahan: </b> </p>"+s
respons.end
endsub
privatesubcallsucc (byvals)
Writeln "<p> <b> Sukses: </b> </p>"+s
endsub
PublicSubCompress
ValidateFile (Scompresspath)
Owshshell.run ("Winrara"+Scompresspath+""+Sdecompresspath & "")