Объявление


Форум находится в режиме только для чтения, для комментариев есть блог.

#1 28.06.2010 01:32:56

simplix
Administrator
Зарегистрирован: 28.07.2008
Сообщений: 3011
Вебсайт

Исходные коды проектов

В связи с нехваткой времени, а также чтобы сделать все свои проекты независимыми от меня, в этой теме постепенно будут публиковаться (после некоторой доработки) имеющиеся исходники. Практически все они написаны на NSIS, как наиболее простом и удобном для освоения языке.

Однако всё это выкладывается как есть без любых гарантий, также не будет никаких объяснений на вопросы типа "почему так, а не иначе", "как переделать так, чтобы было вот так" или "как реализовать то, что мне нужно" - у NSIS есть подробнейшая справка с массой примеров, а также шайтан-машина - изучайте и осваивайте.

Также нет никаких ограничений по использованию исходников, вы можете их изучать, модифицировать, размещать на других ресурсах, использовать в своих целях и так далее - всё то же самое, что касается сборки системы в целом.


С октября 2018 исходники удалены в связи с сильным устареванием.

 

#2 31.07.2011 01:38:23

MBTY
Профессиональный соучастник
Откуда: ЮФО
Зарегистрирован: 30.04.2009
Сообщений: 1612
Вебсайт

Re: Исходные коды проектов

simplix
Хочется из Mycustom вырезать кусок кода, отвечающий за установку xp rights
Вроде бы это ЭТОТ кусок (раскрыть):


Код:

Pop $0
WriteRegStr HKLM "SYSTEM\CurrentControlSet\Services\SharedAccess\Parameters\FirewallPolicy\StandardProfile\GloballyOpenPorts\List" "139:TCP" "139:TCP:LocalSubNet:Enabled:@xpsp2res.dll,-22004"
WriteRegStr HKLM "SYSTEM\CurrentControlSet\Services\SharedAccess\Parameters\FirewallPolicy\StandardProfile\GloballyOpenPorts\List" "445:TCP" "445:TCP:LocalSubNet:Enabled:@xpsp2res.dll,-22005"
WriteRegStr HKLM "SYSTEM\CurrentControlSet\Services\SharedAccess\Parameters\FirewallPolicy\StandardProfile\GloballyOpenPorts\List" "137:UDP" "137:UDP:LocalSubNet:Enabled:@xpsp2res.dll,-22001"
WriteRegStr HKLM "SYSTEM\CurrentControlSet\Services\SharedAccess\Parameters\FirewallPolicy\StandardProfile\GloballyOpenPorts\List" "138:UDP" "138:UDP:LocalSubNet:Enabled:@xpsp2res.dll,-22002"
WriteRegStr HKLM "SYSTEM\CurrentControlSet\Services\SharedAccess\Parameters\FirewallPolicy\DomainProfile\GloballyOpenPorts\List" "139:TCP" "139:TCP:LocalSubNet:Enabled:@xpsp2res.dll,-22004"
WriteRegStr HKLM "SYSTEM\CurrentControlSet\Services\SharedAccess\Parameters\FirewallPolicy\DomainProfile\GloballyOpenPorts\List" "445:TCP" "445:TCP:LocalSubNet:Enabled:@xpsp2res.dll,-22005"
WriteRegStr HKLM "SYSTEM\CurrentControlSet\Services\SharedAccess\Parameters\FirewallPolicy\DomainProfile\GloballyOpenPorts\List" "137:UDP" "137:UDP:LocalSubNet:Enabled:@xpsp2res.dll,-22001"
WriteRegStr HKLM "SYSTEM\CurrentControlSet\Services\SharedAccess\Parameters\FirewallPolicy\DomainProfile\GloballyOpenPorts\List" "138:UDP" "138:UDP:LocalSubNet:Enabled:@xpsp2res.dll,-22002"
IfFileExists "$SYSDIR\syssetup.dll" 0 +11
Rename "$SYSDIR\syssetup.dll" "$SYSDIR\syssetup.dll.bak"
IfErrors +8
File "/oname=$PLUGINSDIR\syssetup.pat" syssetup.pat
vpatch::vpatchfile "$PLUGINSDIR\syssetup.pat" "$SYSDIR\syssetup.dll.bak" "$SYSDIR\syssetup.dll"
Pop $R0
StrCpy $R0 $R0 2
StrCmp $R0 "OK" +2
Rename "$SYSDIR\syssetup.dll.bak" "$SYSDIR\syssetup.dll"
Delete /rebootok "$SYSDIR\syssetup.dll.bak"
ClearErrors


Я прав?

 

#3 06.08.2011 09:18:51

simplix
Administrator
Зарегистрирован: 28.07.2008
Сообщений: 3011
Вебсайт

Re: Исходные коды проектов

MBTY


Код:

nsExec::Exec "net user Guest /active:yes"
Pop $0
WriteRegStr HKLM "SYSTEM\CurrentControlSet\Services\SharedAccess\Parameters\FirewallPolicy\StandardProfile\GloballyOpenPorts\List" "139:TCP" "139:TCP:LocalSubNet:Enabled:@xpsp2res.dll,-22004"
WriteRegStr HKLM "SYSTEM\CurrentControlSet\Services\SharedAccess\Parameters\FirewallPolicy\StandardProfile\GloballyOpenPorts\List" "445:TCP" "445:TCP:LocalSubNet:Enabled:@xpsp2res.dll,-22005"
WriteRegStr HKLM "SYSTEM\CurrentControlSet\Services\SharedAccess\Parameters\FirewallPolicy\StandardProfile\GloballyOpenPorts\List" "137:UDP" "137:UDP:LocalSubNet:Enabled:@xpsp2res.dll,-22001"
WriteRegStr HKLM "SYSTEM\CurrentControlSet\Services\SharedAccess\Parameters\FirewallPolicy\StandardProfile\GloballyOpenPorts\List" "138:UDP" "138:UDP:LocalSubNet:Enabled:@xpsp2res.dll,-22002"
WriteRegStr HKLM "SYSTEM\CurrentControlSet\Services\SharedAccess\Parameters\FirewallPolicy\DomainProfile\GloballyOpenPorts\List" "139:TCP" "139:TCP:LocalSubNet:Enabled:@xpsp2res.dll,-22004"
WriteRegStr HKLM "SYSTEM\CurrentControlSet\Services\SharedAccess\Parameters\FirewallPolicy\DomainProfile\GloballyOpenPorts\List" "445:TCP" "445:TCP:LocalSubNet:Enabled:@xpsp2res.dll,-22005"
WriteRegStr HKLM "SYSTEM\CurrentControlSet\Services\SharedAccess\Parameters\FirewallPolicy\DomainProfile\GloballyOpenPorts\List" "137:UDP" "137:UDP:LocalSubNet:Enabled:@xpsp2res.dll,-22001"
WriteRegStr HKLM "SYSTEM\CurrentControlSet\Services\SharedAccess\Parameters\FirewallPolicy\DomainProfile\GloballyOpenPorts\List" "138:UDP" "138:UDP:LocalSubNet:Enabled:@xpsp2res.dll,-22002"

 

#4 04.11.2011 00:50:47

MBTY
Профессиональный соучастник
Откуда: ЮФО
Зарегистрирован: 30.04.2009
Сообщений: 1612
Вебсайт

Re: Исходные коды проектов

simplix, исходник MyCustom свежий?

 

#5 04.11.2011 03:37:49

Waterclo
Пø}{@бь)4
Откуда: Лампа Аллавбздина
Зарегистрирован: 24.09.2008
Сообщений: 1918

Re: Исходные коды проектов

MBTY
Не, исходник старый - сейчас Unlocker из MyCustom уехал в отдельный файл, а може чё и добавилось. Точно не скажу, но похоже часть скрипта, относящегося к XPrights - команда

nsExec::Exec "net user Guest /active:yes"

чего-то ещё запускает из MYCUSTOM упаковки, тут нужен свежий исходник. Учётка Гостя и модель доступа по 20.12.2008 добавлялась/скрывалась с помощью NTRights, а проблемы в домене получались примерно как здесь и возни хватило, видать из-за нестыковки гостевой модели и настроек сервера, к-рый был далече. В связи с этим возникает фактор собственного лохотронства от спешки - перед переустановкой системы надо внимательно изучить настройки в Групповых политиках, чтоб не чесать затыльник и не терять время в последствии.
Вот лучше бы оно запускалось по требованию, чтоб в случае необходимости оставались стандартные настройки оригинального дистрибутива и вылазило бы сообщение с пояснением, что установка Гостя может создать проблемы, при работе в домене из-за настроек сервера (M$ Active Directory c интерактивным доступом, например) или ослабить безопасность домашнего компьютера не входящего в состав сети или домена.
В принципе - посмотреть изменения, к-рые скрипт вносит в систему можно с помощью Regshot-а, если запустить MYCUSTOM.EXE на абсолютно чистой системе. Порты в реестре открываются так:
Скрытый текст (раскрыть):


Код:

Windows Registry Editor Version 5.00

[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\SharedAccess\Parameters\FirewallPolicy\StandardProfile\GloballyOpenPorts\List]
"139:TCP"="139:TCP:LocalSubNet:Enabled:@xpsp2res.dll,-22004"
"445:TCP"="445:TCP:LocalSubNet:Enabled:@xpsp2res.dll,-22005"
"137:UDP"="137:UDP:LocalSubNet:Enabled:@xpsp2res.dll,-22001"
"138:UDP"="138:UDP:LocalSubNet:Enabled:@xpsp2res.dll,-22002"

[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\SharedAccess\Parameters\FirewallPolicy\DomainProfile\GloballyOpenPorts\List]
"139:TCP"="139:TCP:LocalSubNet:Enabled:@xpsp2res.dll,-22004"
"445:TCP"="445:TCP:LocalSubNet:Enabled:@xpsp2res.dll,-22005"
"137:UDP"="137:UDP:LocalSubNet:Enabled:@xpsp2res.dll,-22001"
"138:UDP"="138:UDP:LocalSubNet:Enabled:@xpsp2res.dll,-22002"


А вот остальное посмотреть не в силах - нет пока чистой системы.

 

#6 26.08.2012 18:10:19

sov44
Member
Зарегистрирован: 26.02.2012
Сообщений: 43

Re: Исходные коды проектов

хотелось бы взглянуть на исходник AntiDust

 

#7 23.09.2013 13:46:17

matrix
Member
Зарегистрирован: 29.09.2010
Сообщений: 30

Re: Исходные коды проектов

simplix
Если Вас не затруднит, выложите, пожалуйста, последний исходник MyCustom.exe. Тот, который  в сборке GRTMPVOL_RU_20.02.13.iso.

 

#8 13.03.2014 07:24:47

korsak
Member
Зарегистрирован: 21.06.2010
Сообщений: 65

Re: Исходные коды проектов

sov44 сообщает:

хотелось бы взглянуть на исходник AntiDust

поддерживаю

 

#9 14.03.2014 02:16:52

onis
New member
Зарегистрирован: 11.01.2014
Сообщений: 7

Re: Исходные коды проектов

Подскажите пожалуйста что я не так делаю. Хочу сам собрать vcredist для своей сборки
вырезал код


Код:

!define PRODUCT_NAME "vcredist"
!define PRODUCT_VERSION "14.03.14"
!define PRODUCT_PUBLISHER "onis, LLC."


SetCompressor /SOLID lzma
SetCompressorDictSize 170
SilentInstall silent

Name "${PRODUCT_NAME} ${PRODUCT_VERSION}"
Icon vcredist.ico
OutFile vcredist.exe
!include FileFunc.nsh
!insertmacro RefreshShellIcons
Section Main
System::Call 'kernel32::CreateMutexA(i 0, i 0, t "DllsFullSIM") i .r1 ?e'
Pop $R0
StrCmp $R0 0 +2
Quit
SetOutPath "$TEMP\vcredist"
File /r DllsFull\vcredist\*
ExecWait '"$SYSDIR\msiexec.exe" /i "$OUTDIR\2005\vcredist.msi" /qn' $0
StrCmp $0 0 0 +6
WriteRegDWORD HKLM "SOFTWARE\Microsoft\DevDiv\atl80sp1\Servicing\9.0\kb973923\1033" "Install" 0x00000001
WriteRegStr HKLM "SOFTWARE\Microsoft\DevDiv\atl80sp1\Servicing\9.0\kb973923\1033" "InstallerType" "MSI"
WriteRegDWORD HKLM "SOFTWARE\Microsoft\DevDiv\atl80sp1\Servicing\9.0\kb973923\1033" "SP" 0x00000001
WriteRegDWORD HKLM "SOFTWARE\Microsoft\DevDiv\atl80sp1\Servicing\9.0\kb973923\1033" "SPIndex" 0x00000001
WriteRegStr HKLM "SOFTWARE\Microsoft\DevDiv\atl80sp1\Servicing\9.0\kb973923\1033" "SPName" "SP1"
ExecWait '"$SYSDIR\msiexec.exe" /i "$OUTDIR\2008\vc_red.msi" /qn' $0
StrCmp $0 0 0 +6
WriteRegDWORD HKLM "SOFTWARE\Microsoft\DevDiv\atl90sp1\Servicing\9.0\kb973924\1033" "Install" 0x00000001
WriteRegStr HKLM "SOFTWARE\Microsoft\DevDiv\atl90sp1\Servicing\9.0\kb973924\1033" "InstallerType" "MSI"
WriteRegDWORD HKLM "SOFTWARE\Microsoft\DevDiv\atl90sp1\Servicing\9.0\kb973924\1033" "SP" 0x00000001
WriteRegDWORD HKLM "SOFTWARE\Microsoft\DevDiv\atl90sp1\Servicing\9.0\kb973924\1033" "SPIndex" 0x00000001
WriteRegStr HKLM "SOFTWARE\Microsoft\DevDiv\atl90sp1\Servicing\9.0\kb973924\1033" "SPName" "SP1"
ExecWait '"$SYSDIR\msiexec.exe" /i "$OUTDIR\2010\vc_red.msi" /qn'
SetOutPath "$SYSDIR"
RMDir /r /rebootok "$TEMP\vcredist"
${RefreshShellIcons}
SectionEnd

компеляция проходит нормально но не ставиться

 

#10 18.09.2014 13:20:59

popt2t
New member
Откуда: Украина, Каланчак
Зарегистрирован: 07.08.2014
Сообщений: 1

Re: Исходные коды проектов

simplix, не могли бы Вы актуализировать исходники Flash и Google Chrome? Спасибо!!!

 

#11 13.07.2020 18:07:00

onis
New member
Зарегистрирован: 11.01.2014
Сообщений: 7

Re: Исходные коды проектов

Здравствуйте хочу сделать обновление AHCI MassStorage  под свои нужды может у кого то есть исходник этого проекта скиньте в личку ссылку на облоко. Спасибо больше

 

Board footer


© simplix