ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
 |
|
17.09.2009, 17:16
|
|
Reservists Of Antichat - Level 6
Регистрация: 12.02.2006
Сообщений: 891
Провел на форуме:
1892597
Репутация:
836
|
|
хакеры =(
winexec('ping -n 350 -l 10000 yandex.ru', SW_SHOW);
нафига вообще cmd???
__________________
*********************************
*Я не волшебник ٩(๏̯͡๏)۶, только учусь...*
*********************************
Программы на заказ
Times to fly...
|
|
|
17.09.2009, 18:50
|
|
Banned
Регистрация: 08.11.2007
Сообщений: 2
Провел на форуме:
45059
Репутация:
0
|
|
Сообщение от Logan22
Не компилит!(
ты помойму забыл закрыть кавычку как бы! после +edit1.text ) я закрыл серовно не компилит, не так не так!
Вот что пишит как ошибку в твоем варианте
" [Error] Unit1.pas(31): Incompatible types: 'String' and 'PAnsiChar' "
Если так то
winexec('cmd /c ping -n 350 -l 10000 '+edit1.text', SW_SHOW);
такая ошибка
[Error] Unit1.pas(31): Unterminated string
Вот так надо
winexec('ping -n 350 -l 10000 '+pchar(edit1.text), SW_SHOW);
|
|
|
|
17.09.2009, 19:19
|
|
Участник форума
Регистрация: 18.04.2009
Сообщений: 120
Провел на форуме:
435863
Репутация:
80
|
|
Неа, не так.
Вот так!
winexec(PChar('ping -n 350 -l 10000 ' + edit1.text), SW_SHOW);
Только что пробовал, работает.
|
|
|
|
17.09.2009, 20:27
|
|
Участник форума
Регистрация: 29.07.2008
Сообщений: 128
Провел на форуме:
225836
Репутация:
34
|
|
А почему бы тебе не использовать winsock? А фаерволы отключать програмно? Вполне рабочий вариант. Если нужны какието советы и помощь стучи в асю 194826нулёк
|
|
|
|
17.09.2009, 22:54
|
|
Познающий
Регистрация: 11.09.2009
Сообщений: 34
Провел на форуме:
102243
Репутация:
8
|
|
Да действительно работает))) Душевное спасибо Sams и всем людям что помогают новичкам)
|
|
|
|
18.09.2009, 02:08
|
|
Познающий
Регистрация: 11.09.2009
Сообщений: 34
Провел на форуме:
102243
Репутация:
8
|
|
Сообщение от Sams
Неа, не так.
Вот так!
winexec(PChar('ping -n 350 -l 10000 ' + edit1.text), SW_SHOW);
Только что пробовал, работает.
Дозрел ещё один вопросичег)
Если создать на форме ещё два Edit и расположить так чтоб это было 350 количество пакетов и вписываемым в Edit2, и соответственно количество байт в Edit3 =)
Как осуществить?
Логически если подумать то както так чтоли
winexec(PChar('ping -n +edit2.text -l +edit3.text ' + edit1.text), SW_SHOW);
Но чтото не так! Оно компилирует но толку 0!
И ещё вопрос...
Вот если использовать этот код
"winexec(PChar('ping -n 350 -l 10000 ' + edit1.text), SW_SHOW);"
При нажатии на кнопку откроется cmd и будет писатся о обмене пакетов, а как это можно ликвидировать?
|
|
|
|
18.09.2009, 03:38
|
|
Постоянный
Регистрация: 12.05.2009
Сообщений: 395
Провел на форуме:
4761503
Репутация:
229
|
|
Сообщение от Logan22
Дозрел ещё один вопросичег)
Если создать на форме ещё два Edit и расположить так чтоб это было 350 количество пакетов и вписываемым в Edit2, и соответственно количество байт в Edit3 =)
Как осуществить?
Логически если подумать то както так чтоли
winexec(PChar('ping -n +edit2.text -l +edit3.text ' + edit1.text), SW_SHOW);
Но чтото не так! Оно компилирует но толку 0!
И ещё вопрос...
Вот если использовать этот код
"winexec(PChar('ping -n 350 -l 10000 ' + edit1.text), SW_SHOW);"
При нажатии на кнопку откроется cmd и будет писатся о обмене пакетов, а как это можно ликвидировать?
http://www.google.ru/search?hl=ru&client=opera&rls=en&hs=3H6&newwindow= 1&q=Скачать учебник по делфи&lr=&aq=f&oq=
winexec(PChar('ping -n '+edit2.text+' -l '+edit3.text+' '+edit1.text), SW_SHOW);
|
|
|
|
18.09.2009, 04:42
|
|
Познающий
Регистрация: 11.09.2009
Сообщений: 34
Провел на форуме:
102243
Репутация:
8
|
|
)))СПасибо большое wolmer =)
Пока меня за наглость не забанели воспользуюсь случаем и спрошу ещё коечто по этой теме)
Как сделать так что при нажатии на кнопку врубалось это (это текст батника), но нужно чтоб при нажтии кнопки был тот же эффект что и если я открыл бы БАТник), только не нужно говорить типо укажи путь к батнику)
@echo off
color 071
set check="w:\usr\local\mysql\bin\mysql.exe"
set mysqlPath="w:\usr\local\mysql\bin\mysql"
set gsuser=admin
set gspass=la2offline
set gsdb=l2jdb
set gshost=127.0.0.1
if NOT EXIST %check% goto error
%mysqlPath% -h %gshost% -u %gsuser% --password=%gspass% -D %gsdb% < del.sql
%mysqlPath% -h %gshost% -u %gsuser% --password=%gspass% -D %gsdb% < server\sql\accounts.sql
%mysqlPath% -h %gshost% -u %gsuser% --password=%gspass% -D %gsdb% < server\sql\access_levels.sql
%mysqlPath% -h %gshost% -u %gsuser% --password=%gspass% -D %gsdb% < server\sql\account_data.sql
%mysqlPath% -h %gshost% -u %gsuser% --password=%gspass% -D %gsdb% < server\sql\admin_command_access_rights.sql
%mysqlPath% -h %gshost% -u %gsuser% --password=%gspass% -D %gsdb% < server\sql\auction.sql
%mysqlPath% -h %gshost% -u %gsuser% --password=%gspass% -D %gsdb% < server\sql\auction_bid.sql
%mysqlPath% -h %gshost% -u %gsuser% --password=%gspass% -D %gsdb% < server\sql\auction_watch.sql
%mysqlPath% -h %gshost% -u %gsuser% --password=%gspass% -D %gsdb% < server\sql\augmentations.sql
%mysqlPath% -h %gshost% -u %gsuser% --password=%gspass% -D %gsdb% < server\sql\boxaccess.sql
%mysqlPath% -h %gshost% -u %gsuser% --password=%gspass% -D %gsdb% < server\sql\castle.sql
%mysqlPath% -h %gshost% -u %gsuser% --password=%gspass% -D %gsdb% < server\sql\castle_manor_procure.sql
%mysqlPath% -h %gshost% -u %gsuser% --password=%gspass% -D %gsdb% < server\sql\castle_manor_production.sql
%mysqlPath% -h %gshost% -u %gsuser% --password=%gspass% -D %gsdb% < server\sql\char_templates.sql
%mysqlPath% -h %gshost% -u %gsuser% --password=%gspass% -D %gsdb% < server\sql\character_friends.sql
%mysqlPath% -h %gshost% -u %gsuser% --password=%gspass% -D %gsdb% < server\sql\character_hennas.sql
%mysqlPath% -h %gshost% -u %gsuser% --password=%gspass% -D %gsdb% < server\sql\character_macroses.sql
%mysqlPath% -h %gshost% -u %gsuser% --password=%gspass% -D %gsdb% < server\sql\character_quests.sql
%mysqlPath% -h %gshost% -u %gsuser% --password=%gspass% -D %gsdb% < server\sql\character_recipebook.sql
%mysqlPath% -h %gshost% -u %gsuser% --password=%gspass% -D %gsdb% < server\sql\character_recommends.sql
%mysqlPath% -h %gshost% -u %gsuser% --password=%gspass% -D %gsdb% < server\sql\character_shortcuts.sql
%mysqlPath% -h %gshost% -u %gsuser% --password=%gspass% -D %gsdb% < server\sql\character_skills.sql
%mysqlPath% -h %gshost% -u %gsuser% --password=%gspass% -D %gsdb% < server\sql\character_skills_save.sql
%mysqlPath% -h %gshost% -u %gsuser% --password=%gspass% -D %gsdb% < server\sql\character_subclasses.sql
%mysqlPath% -h %gshost% -u %gsuser% --password=%gspass% -D %gsdb% < server\sql\characters.sql
%mysqlPath% -h %gshost% -u %gsuser% --password=%gspass% -D %gsdb% < server\sql\clan_data.sql
%mysqlPath% -h %gshost% -u %gsuser% --password=%gspass% -D %gsdb% < server\sql\clan_privs.sql
%mysqlPath% -h %gshost% -u %gsuser% --password=%gspass% -D %gsdb% < server\sql\clan_skills.sql
%mysqlPath% -h %gshost% -u %gsuser% --password=%gspass% -D %gsdb% < server\sql\clan_subpledges.sql
%mysqlPath% -h %gshost% -u %gsuser% --password=%gspass% -D %gsdb% < server\sql\clan_wars.sql
%mysqlPath% -h %gshost% -u %gsuser% --password=%gspass% -D %gsdb% < server\sql\clanhall.sql
%mysqlPath% -h %gshost% -u %gsuser% --password=%gspass% -D %gsdb% < server\sql\clanhall_functions.sql
%mysqlPath% -h %gshost% -u %gsuser% --password=%gspass% -D %gsdb% < server\sql\class_list.sql
%mysqlPath% -h %gshost% -u %gsuser% --password=%gspass% -D %gsdb% < server\sql\cursed_weapons.sql
%mysqlPath% -h %gshost% -u %gsuser% --password=%gspass% -D %gsdb% < server\sql\fortsiege_clans.sql
%mysqlPath% -h %gshost% -u %gsuser% --password=%gspass% -D %gsdb% < server\sql\forums.sql
%mysqlPath% -h %gshost% -u %gsuser% --password=%gspass% -D %gsdb% < server\sql\heroes.sql
%mysqlPath% -h %gshost% -u %gsuser% --password=%gspass% -D %gsdb% < server\sql\items.sql
%mysqlPath% -h %gshost% -u %gsuser% --password=%gspass% -D %gsdb% < server\sql\olympiad_nobles.sql
%mysqlPath% -h %gshost% -u %gsuser% --password=%gspass% -D %gsdb% < server\sql\pets.sql
%mysqlPath% -h %gshost% -u %gsuser% --password=%gspass% -D %gsdb% < server\sql\posts.sql
%mysqlPath% -h %gshost% -u %gsuser% --password=%gspass% -D %gsdb% < server\sql\seven_signs.sql
%mysqlPath% -h %gshost% -u %gsuser% --password=%gspass% -D %gsdb% < server\sql\seven_signs_festival.sql
%mysqlPath% -h %gshost% -u %gsuser% --password=%gspass% -D %gsdb% < server\sql\seven_signs_status.sql
%mysqlPath% -h %gshost% -u %gsuser% --password=%gspass% -D %gsdb% < server\sql\siege_clans.sql
%mysqlPath% -h %gshost% -u %gsuser% --password=%gspass% -D %gsdb% < server\sql\topic.sql
echo.
echo.
echo ############################
echo # #
echo # Installation complete: #
echo # #
echo ############################
echo.
pause
exit
:error
echo.
echo.
echo ##################################
echo. # #
echo # Yo need run "DataBase & Site" #
echo. # #
echo ##################################
echo.
pause
exit
|
|
|
|
18.09.2009, 05:27
|
|
Постоянный
Регистрация: 12.05.2009
Сообщений: 395
Провел на форуме:
4761503
Репутация:
229
|
|
только не нужно говорить типо укажи путь к батнику)
А как еще? Это самый выгодный и простой способ, или же можно положить батник вместе с программой и потом из программы запустить батник (он же у нас будет находится вместе с программой)(могу написать такой код как я описал если хочешь)
|
|
|
|
18.09.2009, 07:17
|
|
Познающий
Регистрация: 11.09.2009
Сообщений: 34
Провел на форуме:
102243
Репутация:
8
|
|
НУ сейчас постараюсь обьяснить поставленую себе задачу!
Хочу сделать чтоб через программу можно было изменять "число" в таблицах БД! В конкретной таблице!
Решил сделать сразу запрос sql, но потом подумал также не сделаешь чтоб "приложение дельфи" изменяло конкретный параметр в .sql, и за этим инъектировало в БД... Как мне показалось самый оптимальный вариант, это сделать bat'ник в проге как бы, в котором остается лишь вписать в edit "число" и подтвердить кнопкой... И запросом таким в базе данных конкретный парамерт был изменен!
SQL запрос на повышение нужным мне числе выглядит так
UPDATE `accounts` SET `access_level`='127' WHERE (`login`='logan22')
Можешь посоветовать чтото, чтоб в проге в Edit можно было на выбор ставить числа, в этом запросе нужное число 127...
Кстати понадобится ещё edit2 для вводи логина, так как в таблице ID логинов разные, а определить access_level нужно одному!
Вот прикреплю скрин
Последний раз редактировалось Logan22; 18.09.2009 в 07:24..
|
|
|
|
|
|
|
Похожие темы
|
| Тема |
Автор |
Раздел |
Ответов |
Последнее сообщение |
|
Скачать Delphi 7, помощь.
|
_casper_ |
С/С++, C#, Delphi, .NET, Asm |
20 |
08.12.2009 04:54 |
|
Virus.Win32.Induc.a – новый вирус для Delphi
|
ErrorNeo |
Уязвимости |
37 |
26.08.2009 00:33 |
|
Virus.Win32.Induc.a или "Снова записки новичка"
|
_=(mac)=_ |
Защита ОС: вирусы, антивирусы, файрволы. |
5 |
24.08.2009 23:34 |
|
Интересные вопросы по Delphi и не только
|
CeHoKoC |
С/С++, C#, Delphi, .NET, Asm |
4 |
20.04.2009 10:33 |
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Линейный вид
