gary_gray
молодец
я же говорил что крякми легкий... просто он отпугисает нелюбителей VM... а VM там в читабельном виде
Вот исходник:
;Загрузка Формы
Объект.загрузить Форма
Объект.размер Форма, 3000, 480, 3035, 4425
Объект.цвет Форма, -2147483630, -2147483633
Объект.стиль Форма, 1
Объект.текст Форма, CrackMe 6 by GPcH
;Загрузка Текстового поля 1
Объект.загрузить Текст1
Объект.размер Текст1, 465, 210, 705, 3405
Объект.цвет Текст1, -2147483640, -2147483633
Объект.текст Текст1, To register this program pay $9 to author of this program or crack this shit!!!
Protected by GPcH. Protectors can not used!!!
Объект.стиль Текст1, 0
Объект.шрифт Текст1, MS Sans Serif, 8,25
;Загрузка Текстового поля 2
Объект.загрузить Текст2
Объект.размер Текст2, 225, 1185, 285, 1650
Объект.цвет Текст2, -2147483640, -2147483633
Объект.текст Текст2, User name:
Объект.стиль Текст2, 0
Объект.шрифт Текст2, MS Sans Serif, 8,25
;Загрузка Текстового поля 3
Объект.загрузить Текст3
Объект.размер Текст3, 240, 1635, 285, 1650
Объект.цвет Текст3, -2147483640, -2147483633
Объект.текст Текст3, Password:
Объект.стиль Текст3, 0
Объект.шрифт Текст3, MS Sans Serif, 8,25
;Загрузка Текстового поля 4
Объект.загрузить Текст4
Объект.размер Текст4, 1950, 1110, 285, 1650
Объект.цвет Текст4, -2147483640, -2147483643
Объект.текст Текст4, GPcH
Объект.стиль Текст4, 1
Объект.шрифт Текст4, MS Sans Serif, 8,25
;Загрузка Текстового поля 5
Объект.загрузить Текст5
Объект.размер Текст5, 1950, 1545, 285, 1650
Объект.цвет Текст5, -2147483640, -2147483643
Объект.текст Текст5,
Объект.стиль Текст5, 1
Объект.шрифт Текст5, MS Sans Serif, 8,25
;Загрузка Win Кнопки 1
Объект.загрузить WinКнопка1
Объект.размер WinКнопка1, 360, 2010, 330, 1455
Объект.цвет WinКнопка1, , -2147483633
Объект.текст WinКнопка1, Register
Объект.шрифт WinКнопка1, MS Sans Serif, 8,25
;Загрузка Win Кнопки 2
Объект.загрузить WinКнопка2
Объект.размер WinКнопка2, 2505, 2010, 330, 1455
Объект.цвет WinКнопка2, , -2147483633
Объект.текст WinКнопка2, Exit
Объект.шрифт WinКнопка2, MS Sans Serif, 8,25
;Сделать все объекты видимыми
Объект.показать Форма
Объект.показать Текст1
Объект.показать Текст2
Объект.показать Текст3
Объект.показать Текст4
Объект.показать Текст5
Объект.показать WinКнопка1
Объект.показать WinКнопка2
Процедура_WinКнопка_1
;Начало вашего кода WinКнопка1
переменная 10,ецеикс
переменная @Форма.Текст4.Caption@,имя
объединить @имя@@имя@,@имя@@имя@,имя
длина @имя@,длина
перейти ошибка, если длина < 1
Метка ключ_a
выдернуть @имя@,@ецеикс@,1,байт
код @байт@,число
сложить @число@,@ецеикс@,число
символ @число@,байт
объединить @пасс@,@байт@,пасс
вычесть @ецеикс@,1,ецеикс
перейти ключ_a, если ецеикс > 0
перейти всекруто, если Форма.Текст5.Caption = @пасс@
;обнуляем переменные
переменная ,пасс
переменная ,байт
переменная ,число
переменная ,ецеикс
перейти отстойныйключдляпроги
перейти выход
Метка ошибка
мессага Слишком маленькое имя пользователя@CrLf@Введите имя юзера еще раз ,64,Регистрация
перейти выход
Метка всекруто
мессага Ну ты крут! Реально прогу зарегал@CrLf@Пошли свой ник и пароль мне на мыло для@CrLf@подтверждения регистрации,64,Регистрация
перейти выход
Метка отстойныйключдляпроги
мессага Пароль то пади херовый!!!,16,Регистрация
перейти выход
Метка выход
;Конец вашего кода WinКнопка1
Конец_Процедура_WinКнопка_1
Процедура_WinКнопка_2
;Начало вашего кода WinКнопка2
завершить
;Конец вашего кода WinКнопка2
Конец_Процедура_WinКнопка_2
PS: Исходник компилить в GPScript'е
-----
Никогда не делай то, что возможно. Стремись сделать то что невозможно впринципе!
| Сообщение посчитали полезным: 
Для печати