Вопросы по CLEO-скриптингу

itsLegend

itsLegend

Фонд борьбы за жуков 🐞
Администратор
2,696
1,469
fonarik написал(а):
Как это сделать?
Нажмите для раскрытия...

Код: 
[CODE]{$CLEO}
 
const
    SITE = "legend2360.7ci.ru"
    CHECK_FILE = "sn_check.php"
end
 
0000:
0662: "by legend2360"
0662: "BlastHack - cheating is art"
 
while not SAMP.Available()
    wait 400
end
 
if call @checkSerial 0
then chat "true" -1
end
 
0A93: end_custom_thread
 
:checkSerial
// call @checkSerial 0
ret_false
 
0AA2: 1@ = load_library "wininet.dll"
0AA4: 2@ = get_proc_address "InternetCloseHandle" library 1@
 
0AA4: 3@ = get_proc_address "InternetOpenA" library 1@
0AA7: call_function 3@ num_params 5 pop 0 0 "" "" 0 "CLEO Check SN" retr_to 4@
if 4@ <> 0
then
    0AA4: 3@ = get_proc_address "InternetConnectA" library 1@
    0AA7: call_function 3@ num_params 8 pop 0 0 0 3 "" "" 80 SITE 4@ retr_to 5@
    if 5@ <> 0
    then
        0AA4: 3@ = get_proc_address "HttpOpenRequestA" library 1@
 
        0AA7: call_function 3@ num_params 8 pop 0 0 0x80400100 0 "" "HTTP/1.1" CHECK_FILE "POST" 5@ retr_to 6@
        if 6@ <> 0
        then
            alloc 7@ 32 // buf
            memset 7@ 0 32
            call @GetSN 0 retr_to 8@
            format 7@ = "sn=%d" 8@
            strlen 9@ 7@
 
            0AA4: 3@ = get_proc_address "HttpSendRequestA" library 1@
            0AA7: call_function 3@ num_params 5 pop 0 params 9@ 7@ 47 "Content-Type: application/x-www-form-urlencoded" 6@ to 10@
   
            memset 7@ 0 32
            0AA4: 3@ = get_proc_address "InternetReadFile" library 1@
            0AA5: call_function 3@ num_params 4 pop 0 params 9@v 31 7@ 6@
   
            if 9@ > 0
            then
                if 0C25: strncmp string1 7@ string2 "true" size 4
                then ret_true
                end
            end
 
            free 7@
 
            0AA5: call_function 2@ num_params 1 pop 0 6@
        end
 
        0AA5: call_function 2@ num_params 1 pop 0 5@
    end
 
    0AA5: call_function 2@ num_params 1 pop 0 4@
end
 
0AA3: free_library 1@
ret 0
 
:GetSN
0AA2: 1@ = load_library "kernel32.dll"
0AA4: 2@ = get_proc_address "GetVolumeInformationA" library 1@
0AA5: call 2@ num_params 8 pop 0 params 0 0 0 0 0@v 0 0 0
ret 1 0@

На PHP осталось прикрутить скрипт, который пишется в очень быстро, буквально за 20 минут(если с дб), который будет выводить true если переменная $_POST['sn'] совпала с SN из списка.
 
  • Нравится
Реакции: fonarik
F

fonarik

Известный
206
3
legend2360 написал(а):
Код: 
[CODE]{$CLEO}
 
const
    SITE = "legend2360.7ci.ru"
    CHECK_FILE = "sn_check.php"
end
 
0000:
0662: "by legend2360"
0662: "BlastHack - cheating is art"
 
while not SAMP.Available()
    wait 400
end
 
if call @checkSerial 0
then chat "true" -1
end
 
0A93: end_custom_thread
 
:checkSerial
// call @checkSerial 1 sn 0@
ret_false
 
0AA2: 1@ = load_library "wininet.dll"
0AA4: 2@ = get_proc_address "InternetCloseHandle" library 1@
 
0AA4: 3@ = get_proc_address "InternetOpenA" library 1@
0AA7: call_function 3@ num_params 5 pop 0 0 "" "" 0 "CLEO Check SN" retr_to 4@
if 4@ <> 0
then
    0AA4: 3@ = get_proc_address "InternetConnectA" library 1@
    0AA7: call_function 3@ num_params 8 pop 0 0 0 3 "" "" 80 SITE 4@ retr_to 5@
    if 5@ <> 0
    then
        0AA4: 3@ = get_proc_address "HttpOpenRequestA" library 1@
 
        0AA7: call_function 3@ num_params 8 pop 0 0 0x80400100 0 "" "HTTP/1.1" CHECK_FILE "POST" 5@ retr_to 6@
        if 6@ <> 0
        then
            alloc 7@ 32 // buf
            memset 7@ 0 32
            call @GetSN 0 retr_to 8@
            format 7@ = "sn=%d" 8@
            strlen 9@ 7@
 
            0AA4: 3@ = get_proc_address "HttpSendRequestA" library 1@
            0AA7: call_function 3@ num_params 5 pop 0 params 9@ 7@ 47 "Content-Type: application/x-www-form-urlencoded" 6@ to 10@
   
            memset 7@ 0 32
            0AA4: 3@ = get_proc_address "InternetReadFile" library 1@
            0AA5: call_function 3@ num_params 4 pop 0 params 9@v 31 7@ 6@
   
            if 9@ > 0
            then
                if 0C25: strncmp string1 7@ string2 "true" size 4
                then ret_true
                end
            end
 
            free 7@
 
            0AA5: call_function 2@ num_params 1 pop 0 6@
        end
 
        0AA5: call_function 2@ num_params 1 pop 0 5@
    end
 
    0AA5: call_function 2@ num_params 1 pop 0 4@
end
 
0AA3: free_library 1@
ret 0
 
:GetSN
0AA2: 1@ = load_library "kernel32.dll"
0AA4: 2@ = get_proc_address "GetVolumeInformationA" library 1@
0AA5: call 2@ num_params 8 pop 0 params 0 0 0 0 0@v 0 0 0
ret 1 0@

На PHP осталось прикрутить скрипт, который пишется в очень быстро, буквально за 20 минут(если с дб), который будет выводить true если переменная $_POST['sn'] совпала с SN из списка.
Нажмите для раскрытия...

в принципе,да,осталось простое,но дело в том,что php я вообще не знаю
 
Frixen

Frixen

Известный
131
8
legend2360 написал(а):
Код: 
[CODE]{$CLEO}
 
const
    SITE = "legend2360.7ci.ru"
    CHECK_FILE = "sn_check.php"
end
 
0000:
0662: "by legend2360"
0662: "BlastHack - cheating is art"
 
while not SAMP.Available()
    wait 400
end
 
if call @checkSerial 0
then chat "true" -1
end
 
0A93: end_custom_thread
 
:checkSerial
// call @checkSerial 1 sn 0@
ret_false
 
0AA2: 1@ = load_library "wininet.dll"
0AA4: 2@ = get_proc_address "InternetCloseHandle" library 1@
 
0AA4: 3@ = get_proc_address "InternetOpenA" library 1@
0AA7: call_function 3@ num_params 5 pop 0 0 "" "" 0 "CLEO Check SN" retr_to 4@
if 4@ <> 0
then
    0AA4: 3@ = get_proc_address "InternetConnectA" library 1@
    0AA7: call_function 3@ num_params 8 pop 0 0 0 3 "" "" 80 SITE 4@ retr_to 5@
    if 5@ <> 0
    then
        0AA4: 3@ = get_proc_address "HttpOpenRequestA" library 1@
 
        0AA7: call_function 3@ num_params 8 pop 0 0 0x80400100 0 "" "HTTP/1.1" CHECK_FILE "POST" 5@ retr_to 6@
        if 6@ <> 0
        then
            alloc 7@ 32 // buf
            memset 7@ 0 32
            call @GetSN 0 retr_to 8@
            format 7@ = "sn=%d" 8@
            strlen 9@ 7@
 
            0AA4: 3@ = get_proc_address "HttpSendRequestA" library 1@
            0AA7: call_function 3@ num_params 5 pop 0 params 9@ 7@ 47 "Content-Type: application/x-www-form-urlencoded" 6@ to 10@
 
            memset 7@ 0 32
            0AA4: 3@ = get_proc_address "InternetReadFile" library 1@
            0AA5: call_function 3@ num_params 4 pop 0 params 9@v 31 7@ 6@
 
            if 9@ > 0
            then
                if 0C25: strncmp string1 7@ string2 "true" size 4
                then ret_true
                end
            end
 
            free 7@
 
            0AA5: call_function 2@ num_params 1 pop 0 6@
        end
 
        0AA5: call_function 2@ num_params 1 pop 0 5@
    end
 
    0AA5: call_function 2@ num_params 1 pop 0 4@
end
 
0AA3: free_library 1@
ret 0
 
:GetSN
0AA2: 1@ = load_library "kernel32.dll"
0AA4: 2@ = get_proc_address "GetVolumeInformationA" library 1@
0AA5: call 2@ num_params 8 pop 0 params 0 0 0 0 0@v 0 0 0
ret 1 0@

На PHP осталось прикрутить скрипт, который пишется в очень быстро, буквально за 20 минут(если с дб), который будет выводить true если переменная $_POST['sn'] совпала с SN из списка.
Нажмите для раскрытия...



Скинь свой sn_check.php pls и кейворды еще плз
 
Frixen

Frixen

Известный
131
8
legend2360 написал(а):
Код: 
[CODE]{$CLEO}
 
const
    SITE = "legend2360.7ci.ru"
    CHECK_FILE = "sn_check.php"
end
 
0000:
0662: "by legend2360"
0662: "BlastHack - cheating is art"
 
while not SAMP.Available()
    wait 400
end
 
if call @checkSerial 0
then chat "true" -1
end
 
0A93: end_custom_thread
 
:checkSerial
// call @checkSerial 1 sn 0@
ret_false
 
0AA2: 1@ = load_library "wininet.dll"
0AA4: 2@ = get_proc_address "InternetCloseHandle" library 1@
 
0AA4: 3@ = get_proc_address "InternetOpenA" library 1@
0AA7: call_function 3@ num_params 5 pop 0 0 "" "" 0 "CLEO Check SN" retr_to 4@
if 4@ <> 0
then
    0AA4: 3@ = get_proc_address "InternetConnectA" library 1@
    0AA7: call_function 3@ num_params 8 pop 0 0 0 3 "" "" 80 SITE 4@ retr_to 5@
    if 5@ <> 0
    then
        0AA4: 3@ = get_proc_address "HttpOpenRequestA" library 1@
 
        0AA7: call_function 3@ num_params 8 pop 0 0 0x80400100 0 "" "HTTP/1.1" CHECK_FILE "POST" 5@ retr_to 6@
        if 6@ <> 0
        then
            alloc 7@ 32 // buf
            memset 7@ 0 32
            call @GetSN 0 retr_to 8@
            format 7@ = "sn=%d" 8@
            strlen 9@ 7@
 
            0AA4: 3@ = get_proc_address "HttpSendRequestA" library 1@
            0AA7: call_function 3@ num_params 5 pop 0 params 9@ 7@ 47 "Content-Type: application/x-www-form-urlencoded" 6@ to 10@
 
            memset 7@ 0 32
            0AA4: 3@ = get_proc_address "InternetReadFile" library 1@
            0AA5: call_function 3@ num_params 4 pop 0 params 9@v 31 7@ 6@
 
            if 9@ > 0
            then
                if 0C25: strncmp string1 7@ string2 "true" size 4
                then ret_true
                end
            end
 
            free 7@
 
            0AA5: call_function 2@ num_params 1 pop 0 6@
        end
 
        0AA5: call_function 2@ num_params 1 pop 0 5@
    end
 
    0AA5: call_function 2@ num_params 1 pop 0 4@
end
 
0AA3: free_library 1@
ret 0
 
:GetSN
0AA2: 1@ = load_library "kernel32.dll"
0AA4: 2@ = get_proc_address "GetVolumeInformationA" library 1@
0AA5: call 2@ num_params 8 pop 0 params 0 0 0 0 0@v 0 0 0
ret 1 0@

На PHP осталось прикрутить скрипт, который пишется в очень быстро, буквально за 20 минут(если с дб), который будет выводить true если переменная $_POST['sn'] совпала с SN из списка.
Нажмите для раскрытия...

Как я понял этот код записывает hwid в переменную 8@, потом отправляет hwid post запросом в файл sn_check.php, в файле sn_checl.php сравнивается post запрос с массивом(или хз с чем), и если условие верно выдается true, а как потом этот код определит прошла ли проверку лицензия или нет? и если нет то завершит ли он thread

Разобрался, теперь возникла проблема как написать PHP файл, точнее как сравнить там переменные, пишу
PHP: 
$serial = $_GET['sn']; // HWID
if ($serial == $cod)
echo "true";

Как в $cod записать все HWID пользователей? или как сделать иначе, чтобы $serial сравнивался со всеми и в случае равенства хотябы с одним значение выдавало true
 
itsLegend

itsLegend

Фонд борьбы за жуков 🐞
Администратор
2,696
1,469
Frixen написал(а):
Скинь свой sn_check.php pls и кейворды еще плз
Нажмите для раскрытия...

PHP: 
true

Код: 
0001=wait
0002=goto
0002=jump
0003=shake_camera
004f=create_thread
004d=else_jump
004d=jf
004e=end_thread
00d6=if
0051=return
0050=gosub
016B=fading
00d7=create_thread_wb
016a=fade
01B6=set_weather
03a4=thread
04BB=select_interior
0112=wasted_or_busted
0417=start_mission
00d8=mission_cleanup
0317=increment_mission_attempts
0459=end_thread_named
0a92=run
0ab0=key
0ab0=key_down
0ab1=call
0ab2=ret
0ac8=alloc
0ac9=free
0acd=print
0ad1=printf
0ad3=format
0b43=cmdret
0b78=log
0a93=ect
0af8=chat
0af9=say
0c11=memset
0c10=memcpy
0c14=strcmp
0b34=reg_cmd
0b63=unreg_cmd
0485=ret_true
059A=ret_false
0c17=strlen
0ac6=lo
0ac6=loffset
0c1a=atoi
0B35=gcp
0AD4=sstring
0BFC=global_var_set
0BFD=global_var_get
0C34=global_func_reg
0C35=global_func_call
0C36=global_func_ret
0BFC=gvar_set
0BFD=gvar_get
0C34=gfunc_reg
0C35=gfunc_call
0C36=gfunc_ret
0BDE=pause_thread
0BDF=resume_thread
0C0D=struct_write
0C0C=struct_read
 
itsLegend

itsLegend

Фонд борьбы за жуков 🐞
Администратор
2,696
1,469
Frixen написал(а):
Как я понял этот код записывает hwid в переменную 8@, потом отправляет hwid post запросом в файл sn_check.php, в файле sn_checl.php сравнивается post запрос с массивом(или хз с чем), и если условие верно выдается true, а как потом этот код определит прошла ли проверку лицензия или нет? и если нет то завершит ли он thread

Разобрался, теперь возникла проблема как написать PHP файл, точнее как сравнить там переменные, пишу
PHP: 
$serial = $_GET['sn']; // HWID
if ($serial == $cod)
echo "true";

Как в $cod записать все HWID пользователей? или как сделать иначе, чтобы $serial сравнивался со всеми и в случае равенства хотябы с одним значение выдавало true
Нажмите для раскрытия...
На твоем месте, я бы подключил mysql базу, но никак не файлами. Сделай тогда через массивы:
PHP: 
<?   
    if (isset($_POST['sn']))
    {
        $user_sn = $_POST['sn'];
        $access = false;
   
        $array_sns = array("-441", "-22123123", "11233444");
        $elements = count($array_sns);
       
        for ($i = 0; $i <= $elements; $i++)
        {
            if ($array_sns[$i] == $user_sn)
            {
                $access = true;
                break;
            }
        }
 
        echo $access ? "true" : "false";
    }
?>
Если честно, я не знаю, оптимизировано ли это, правильно ли вообще применяем, но код работает, и это, наверно, пока самое главное.
$array_sns = array("-441", "-22123123", "11233444"); сюда заносим серийники через запятую в ковычках.
 
  • Нравится
Реакции: Frixen
А

АндрейЧотак

Известный
80
10
Почему не работает?Желательно сказать где проблема а не называть меня криворуким.
Код: 
{$CLEO .cs}
0000:
 
wait 1500
 
0AF8: samp add_message_to_chat "" color -1
0AF8: samp add_message_to_chat "==========================" color 0x666666
0AF8: samp add_message_to_chat "Speedhack - çàãðóæåí" color -228
0AF8: samp add_message_to_chat "Author: Bri" color -228
0AF8: samp add_message_to_chat "==========================" color 0x666666
0AF8: samp add_message_to_chat "" color -1
0B63: samp unregister_client_command "Speedhack"
0B34: samp register_client_command "Speedhack" to_label @sh1
While True
wait 0
  if and
  12@ == true
  key_down 90
  key_down 87
  Actor.Driving($PLAYER_ACTOR)
  then
  0@ = Actor.CurrentCar($PLAYER_ACTOR)
  var
  3@: Float
  2@: Float
  end
  02E3: 2@ = car 0@ speed
  2@ *= 1.15
  2@ += 3@
  Car.SetSpeedInstantly(0@, 2@)
  end
end
:sh1
if 12@ == false
then
0B35: samp 1@ = get_last_command_params
if 0AD4: 7@ = scan_string 1@ format "%d" 3@
then
12@ = true
0AF8: samp add_message_to_chat "Speed hack - on" color 0x00CC00
0AF8: samp add_message_to_chat "Àêòèâàöèÿ: z" color 0x00CC00
0AF8: samp add_message_to_chat "Àâòîð: Bri" color 0x00CC00
else
0AF8: samp add_message_to_chat "Error! Íå óêàçàíà ñêîðîñòü!" color 0xFF0000
end
else
12@ = false
0AF8: samp add_message_to_chat "Speed hack - off" color 0xFF0000
0AF8: samp add_message_to_chat "Àâòîð: Bri" color 0xFF0000
end
SAMP.CmdRet()
 
S

SPARTA

Новичок
53
2
АндрейЧотак написал(а):
Почему не работает?Желательно сказать где проблема а не называть меня криворуким.
Код: 
{$CLEO .cs}
0000:
 
wait 1500
 
0AF8: samp add_message_to_chat "" color -1
0AF8: samp add_message_to_chat "==========================" color 0x666666
0AF8: samp add_message_to_chat "Speedhack - çàãðóæåí" color -228
0AF8: samp add_message_to_chat "Author: Bri" color -228
0AF8: samp add_message_to_chat "==========================" color 0x666666
0AF8: samp add_message_to_chat "" color -1
0B63: samp unregister_client_command "Speedhack"
0B34: samp register_client_command "Speedhack" to_label @sh1
While True
wait 0
  if and
  12@ == true
  key_down 90
  key_down 87
  Actor.Driving($PLAYER_ACTOR)
  then
  0@ = Actor.CurrentCar($PLAYER_ACTOR)
  var
  3@: Float
  2@: Float
  end
  02E3: 2@ = car 0@ speed
  2@ *= 1.15
  2@ += 3@
  Car.SetSpeedInstantly(0@, 2@)
  end
end
:sh1
if 12@ == false
then
0B35: samp 1@ = get_last_command_params
if 0AD4: 7@ = scan_string 1@ format "%d" 3@
then
12@ = true
0AF8: samp add_message_to_chat "Speed hack - on" color 0x00CC00
0AF8: samp add_message_to_chat "Àêòèâàöèÿ: z" color 0x00CC00
0AF8: samp add_message_to_chat "Àâòîð: Bri" color 0x00CC00
else
0AF8: samp add_message_to_chat "Error! Íå óêàçàíà ñêîðîñòü!" color 0xFF0000
end
else
12@ = false
0AF8: samp add_message_to_chat "Speed hack - off" color 0xFF0000
0AF8: samp add_message_to_chat "Àâòîð: Bri" color 0xFF0000
end
SAMP.CmdRet()
Нажмите для раскрытия...

Он у меня так летать начинает :D
PHP: 
{$CLEO .cs}
0000:
 
wait 1500
 
0B34: samp register_client_command "Speedhack" to_label @sh1
 
While True
wait 0
  if and
  12@ == 1
  Actor.Driving($PLAYER_ACTOR)
  then
  0@ = Actor.CurrentCar($PLAYER_ACTOR)
  var
  3@: Float
  2@: Float
    end
  02E3: 2@ = car 0@ speed
  2@ *= 1.2
  2@ += 3@
  Car.SetSpeedInstantly(0@, 2@)
  end
end
 
:sh1
if 12@ == 0
then
0B35: samp 1@ = get_last_command_params
if 0AD4: 1@ = scan_string 1@ format "%d" 3@
then
12@ = 1
0AF8: samp add_message_to_chat "Speed hack - on" color 0x00CC00
0AF8: samp add_message_to_chat "Àêòèâàöèÿ: z" color 0x00CC00
else
0AF8: samp add_message_to_chat "Error! Íå óêàçàíà ñêîðîñòü!" color 0xFF0000
end
else
12@ = 0
0AF8: samp add_message_to_chat "Speed hack - off" color 0xFF0000
end
SAMP.CmdRet()

2@ *= 1.15
Меняй значения, например 1.3 ух офигеешь
 
А

АндрейЧотак

Известный
80
10
SPARTA написал(а):
Он у меня так летать начинает :D
PHP: 
{$CLEO .cs}
0000:
 
wait 1500
 
0B34: samp register_client_command "Speedhack" to_label @sh1
 
While True
wait 0
  if and
  12@ == 1
  Actor.Driving($PLAYER_ACTOR)
  then
  0@ = Actor.CurrentCar($PLAYER_ACTOR)
  var
  3@: Float
  2@: Float
    end
  02E3: 2@ = car 0@ speed
  2@ *= 1.2
  2@ += 3@
  Car.SetSpeedInstantly(0@, 2@)
  end
end
 
:sh1
if 12@ == 0
then
0B35: samp 1@ = get_last_command_params
if 0AD4: 1@ = scan_string 1@ format "%d" 3@
then
12@ = 1
0AF8: samp add_message_to_chat "Speed hack - on" color 0x00CC00
0AF8: samp add_message_to_chat "Àêòèâàöèÿ: z" color 0x00CC00
else
0AF8: samp add_message_to_chat "Error! Íå óêàçàíà ñêîðîñòü!" color 0xFF0000
end
else
12@ = 0
0AF8: samp add_message_to_chat "Speed hack - off" color 0xFF0000
end
SAMP.CmdRet()

2@ *= 1.15
Меняй значения, например 1.3 ух офигеешь
Нажмите для раскрытия...

Вполне нормальный спидках если поставить так:
2@ *= 1.15
2@ += 4.0
 
Войдите или зарегистрируйтесь для ответа.

Похожие темы

  1. YarikVL
    [Перезапуск] Интервью с ARMOR
      • Bug
      • Нравится
      • Ха-ха
    Ответы
    25
    Просмотры
    4K
    Общение
    Арсений Пиво
    Арсений Пиво
  2. G
    • Закрыта
    [CLEO] Счётчик убийств/смертей.
      • Нравится
    Ответы
    15
    Просмотры
    21K
    Другое
    Забавный Бандит
    З
  3. iTz_WEEZY
    • Закрыта
    Помогите сделать [Авто Викторина]
    Ответы
    6
    Просмотры
    2K
    Архив
    iTz_WEEZY
    iTz_WEEZY
  4. PanSeek
    Интервью с DarkP1xel
      • Нравится
      • Влюблен
      • Злость
    Ответы
    55
    Просмотры
    11K
    Общение
    nikusyaxxs
    nikusyaxxs
  5. PanSeek
    Интервью с chapo
      • Нравится
      • Клоун
    Ответы
    16
    Просмотры
    4K
    Общение
    Стэнфорд
    Стэнфорд
Сверху Снизу