Вобщем наваял я еще один КрякМи3. Писал на все том же Visual Basic 6.0, выглядит он гламурненько (но это конечно же не главное Весит всего 40кб, скачать можно здесь dump.ru/files/4/412471099/. Это ссылка на сайт где нужно нажать кнопочку скачать. Сразу предупреждаю: он для новичков, так что Gambit я думаю всё понял.

P.S. кому не впадло попробуйте без патчинга.

| Сообщение посчитали полезным:

vitalya2903
объясни в чём смысл написания твоих тупых крякмисов? их любой дурак может навалять вечером
за 5 минут, надо писать то что могло бы чем то научить других. а клонировать тупость по 100 раз это
дебилизм имхо

| Сообщение посчитали полезным:

vitalya2903 пишет:
Сразу предупреждаю: он для новичков
Уже обсуждалось. Для новичков надо писать на асме. А на VB - это практика рытья в помойке. Ты не обижайся, но я в чем-то согласен с Godzilla

-----
программистом не рождаются - им умирают

| Сообщение посчитали полезным:

Аффтар, сходи пару раз ударься ап стену!
Ты сам-то видел, сколько дерьма выдает твой любимый VBasic?

| Сообщение посчитали полезным:

скоро будут такое писать:
input a;
let b=666;
if a=b*2 then print "ты супермегакрякер" else print "лошок тупой"
end.


| Сообщение посчитали полезным:

Dr3d пишет:
Аффтар, сходи пару раз ударься ап стену!
Ты сам-то видел, сколько дерьма выдает твой любимый VBasic?
ещё надо виртуальную машину на это убожество прицепить,тогда даже за 100 баксов никто
ломать не станет супер мега защита..

| Сообщение посчитали полезным:

Godzilla пишет:
а клонировать тупость по 100 раз это
дебилизм имхо
Не такие уж они и клоны. Я с каждым разом что-то меняю и как-то пытаюсь усложнять, учусь типа.
Ты хоть скачивал этот, смотрел его.

Dr3d пишет:
Аффтар, сходи пару раз ударься ап стену!
Млин... ты запарил уже хамить.

Dr3d пишет:
Ты сам-то видел, сколько дерьма выдает твой любимый VBasic?
А тебе что всё должно быть в блюдечке с белой каёмочкой.

| Сообщение посчитали полезным:

Godzilla пишет:
скоро будут такое писать:
input a;
let b=666;
if a=b*2 then print "ты супермегакрякер" else print "лошок тупой"
end.
Ну это ты уже вобще загнул

| Сообщение посчитали полезным:

Godzilla пишет:
ещё надо виртуальную машину на это убожество прицепить,тогда даже за 100 баксов никто
ломать не станет супер мега защита..

Гг...

| Сообщение посчитали полезным:

vitalya2903, кто запарил, дак это ты со своими тупыми поделками на коленке.
Крякмисы делаются для того, чтоб научиться чему-то новому и интересному.
Разбор же кода басика это издевательство!
Объясни, чем твой крякмис так интересен и оригинален?

З.Ы. Учи серьёзные языки, а детсадовский забудь как страшный сон!

| Сообщение посчитали полезным:

vitalya2903 пишет:
Ты хоть скачивал этот, смотрел его
да,у меня шароваров 40 гигов почти на винте,ломать некому,а я твои крякмисы буду исследовать
vitalya2903 пишет:
А тебе что всё должно быть в блюдечке с белой каёмочкой.
любишь ли ты отделять зёрна от плевел? крекеры вот не любят это дело

| Сообщение посчитали полезным:

Dr3d пишет:
Учи серьёзные языки, а детсадивсий забудь как страшный сон!
угу, Делфи и Visual C+ учи
Dr3d пишет:
кто запарил, дак это ты со своими тупыми поделками на коленке.
Крякмисы делаются для того, чтоб научиться чуме-то новому и интересному.
Разбор же кода басика это издевательство!
гавноаффтар хочет всем показать какой умный что научился писать проги на VB вроде тех
что в 5 классе церковно-приходской школы изучают на лабораторных по информатике

| Сообщение посчитали полезным:

Dr3d пишет:
Объясни, чем твой крякмис так интересен и оригинален?
Посмотри на его код.

Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long
Private Declare Function SetPixel Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal crColor As Long) As Long
Dim Color As Long
Dim R, G, B As Byte
Dim t As Long
Dim k As Long
Dim cont As Integer

Private Sub Command1_Click()
If Len(Text1.Text) = 13 And Mid(Text1.Text, 5, 1) = Chr(45) And Mid(Text1.Text, 7, 7) = (Chr(118) + Chr(105) + Chr(116) + Chr(97) + Chr(108) + Chr(121) + Chr(97)) Then
cont = cont + 1
If cont = 1 Then
k = 0
t = 0
i = 0
u = 0
Picture1.Refresh
For u = 1 To Len(Text1.Text) - 7
If u <> 5 Then
i = Mid(Text1.Text, u, 1)
t = t + i
End If
Next
For a = 1 To Picture1.ScaleWidth
For c = 1 To Picture1.ScaleHeight
Color = GetPixel(Picture1.hdc, a, c)
R = Color And &HFF
G = (Color \ 256) And &HFF
B = (Color \ 65536) And &HFF
SetPixel Picture1.hdc, a, c, RGB(G + t, G + 2 * t, B + 3 * t)
Next
Next
Color = GetPixel(Picture1.hdc, 25, 25)
R = Color And &HFF
G = (Color \ 256) And &HFF
B = (Color \ 65536) And &HFF
k = R + G + B
Text2.Enabled = True
Command1.Height = 615
Command1.Top = 1080
Command1.Caption = Chr(199) + Chr(224) + Chr(240) + Chr(229) + Chr(227) + Chr(232) + Chr(241) + Chr(242) + Chr(240) + Chr(232) + Chr(240) + Chr(238) + Chr(226) + Chr(224) + Chr(242) + Chr(252)
End If
If cont = 2 Then
Color = GetPixel(Picture1.hdc, 25, 25)
R = Color And &HFF
G = (Color \ 256) And &HFF
B = (Color \ 65536) And &HFF
If Text2.Text = (R + G + B) & (Chr(67) + Chr(82) + Chr(65) + Chr(67) + Chr(75)) Then
MsgBox (Chr(207) + Chr(238) + Chr(231) + Chr(228) + Chr(240) + Chr(224) + Chr(226) + Chr(235) + Chr(255) + Chr(254) + Chr(32) + Chr(242) + Chr(251) + Chr(32) + Chr(237) + Chr(224) + Chr(241) + Chr(242) + Chr(238) + Chr(255) + Chr(249) + Chr(232) + Chr(233) + Chr(32) + Chr(234) + Chr(240) + Chr(253) + Chr(234) + Chr(229) + Chr(240))
Command1.Caption = Chr(211) + Chr(230) + Chr(229) + Chr(32) + Chr(226) + Chr(231) + Chr(235) + Chr(238) + Chr(236) + Chr(224) + Chr(237) + Chr(238)
Command1.Enabled = False
Text1.Enabled = False
Text2.Enabled = False
Else
cont = 0
Command1.Caption = Chr(207) + Chr(240) + Chr(232) + Chr(237) + Chr(255) + Chr(242) + Chr(252)
Text1.Text = ""
Text2.Text = ""
Text2.Enabled = False
Command1.Top = 600
Command1.Height = 1095
Picture1.Refresh
MsgBox (Chr(205) + Chr(229) + Chr(32) + Chr(239) + Chr(240) + Chr(224) + Chr(226) + Chr(232) + Chr(235) + Chr(252) + Chr(237) + Chr(238) + Chr(44) + Chr(32) + Chr(235) + Chr(238) + Chr(236) + Chr(224) + Chr(233) + Chr(32) + Chr(228) + Chr(224) + Chr(235) + Chr(252) + Chr(248) + Chr(229))
End If
End If
Else: MsgBox (Chr(215) + Chr(243) + Chr(242) + Chr(252) + Chr(45) + Chr(247) + Chr(243) + Chr(242) + Chr(252) + Chr(32) + Chr(237) + Chr(229) + Chr(32) + Chr(242) + Chr(238) + Chr(32) + Chr(237) + Chr(224) + Chr(228) + Chr(238) + Chr(32) + Chr(226) + Chr(226) + Chr(238) + Chr(228) + Chr(232) + Chr(242) + Chr(252))
End If
End Sub

Private Sub Form_Load()
Form1.Caption = Chr(202) + Chr(240) + Chr(255) + Chr(234) + Chr(204) + Chr(232)
Command1.Caption = Chr(207) + Chr(240) + Chr(232) + Chr(237) + Chr(255) + Chr(242) + Chr(252)
End Sub

| Сообщение посчитали полезным:

Вот, расфлудились
Godzilla, Dr3d - действительно, хорош свой француский гнать - модеры не дремлют

vitalya2903, тебе тоже грозит бан, если будешь и дальше дурака валять..

vitalya2903 пишет:
Млин... ты запарил уже хамить.
Согласен, но сам ведь напрашиваешься

vitalya2903 пишет:
Я с каждым разом что-то меняю и как-то пытаюсь усложнять, учусь типа.
Ну да, он стал теперь, как ты говоришь, гламурненько выглядеть. Но этого ты добился, всего лишь вставив картинку (которую, наверное и не ты рисовал). А в остальном...

vitalya2903 пишет:
А тебе что всё должно быть в блюдечке с белой каёмочкой.
Пойми, что сложность крякмиса - не твоя заслуга, а заслуга вижуаловского компилятора Учи асм, если хочешь продвинуться.

-----
программистом не рождаются - им умирают

| Сообщение посчитали полезным:

Godzilla пишет:
гавноаффтар

Слышиш перец, ты за базар свой отвечай. Умник нашелся

| Сообщение посчитали полезным:

Gambit пишет:
Ну да, он стал теперь, как ты говоришь, гламурненько выглядеть. Но этого ты добился, всего лишь вставив картинку (которую, наверное и не ты рисовал). А в остальном...

Блин... Да хоть кто-нибудь напишите что взломали его и как. Я отстану.

| Сообщение посчитали полезным:

vitalya2903, открой функцию проверки серийника в отладчике, и поймешь, почему его никто не хочет смотреть.
Да и к чему, исходный код ведь есть. Оригинальностью так и блещет

| Сообщение посчитали полезным:

Посмотрите на код крякмиса, как я String'и скрыл от отладчика. Так вроде бы делал Bad_guy тоже.

| Сообщение посчитали полезным:

Dr3d пишет:
Оригинальностью так и блещет

Ато чёрт ногу сломает

| Сообщение посчитали полезным:

vitalya2903 ,не пЕши крякми на вб. это не интерестно. их никто, кроме гамбита ломать не будет...=)

| Сообщение посчитали полезным:

закрывайте тему,а автору пожизненный бан по IP, чтобы другим не повадно было такую срамоту
на форум выкладывать

| Сообщение посчитали полезным:

vitalya2903, введи первый раз такое "....-.vitalya" будешь приятно удивлён
З.Ы. А вообще с манией величия надо завязывать.
З.З.Ы. Про компактнось:
Та функция, которая занимается проверкой кодов, в отладчике занимает 11327 строк!!!
Медитируй!

| Сообщение посчитали полезным:

Dr3d пишет:
Та функция, которая занимается проверкой кодов, в отладчике занимает 11327 строк!!!
дык пропатчить надо его и всё ,зачем код искать правильный?

| Сообщение посчитали полезным:

Dr3d пишет:
введи первый раз такое "....-.vitalya" будешь приятно удивлён
Ой бл.....

| Сообщение посчитали полезным:

sniperZ пишет:
не пЕши крякми на вб. это не интерестно. их никто, кроме гамбита ломать не будет...=)
По всей видимости да.

| Сообщение посчитали полезным:

Godzilla пишет:
закрывайте тему,а автору пожизненный бан по IP

Ты посмотри на свои созданые темы, их все забанили вместе с тобой.

| Сообщение посчитали полезным:

sniperZ пишет:
их никто, кроме гамбита ломать не будет...=)
ГЫ

Dr3d пишет:
введи первый раз такое "....-.vitalya" будешь приятно удивлён


vitalya2903 пишет:
Блин... Да хоть кто-нибудь напишите что взломали его и как. Я отстану
Не буду ломать. Он "только не для меня"

Godzilla пишет:
закрывайте тему,а автору пожизненный бан по IP
Тебе бы толь баны пораздавать

-----
программистом не рождаются - им умирают

| Сообщение посчитали полезным:

Gambit пишет:
Не буду ломать. Он "только не для меня"
Да ладно. Кроме тебя ведь никто его взломать и не может
Напиши че там вводить надо и я закрою тему.

| Сообщение посчитали полезным:

vitalya2903 пишет:
Сразу предупреждаю: он для новичков

Для новичков пишут на понятных (по началу - хотя бы для дизасемблера и отладчика) языках. За VB даже те, кому совсем делать нечего возьмуться в последнюю очередь - неактуально и слишком муторно.

vitalya2903 пишет:
P.S. кому не впадло попробуйте без патчинга.

Хм, КракМи без патчинга - это как? Приказать ему сломаться, чтоли?

| Сообщение посчитали полезным:

vitalya2903 пишет:
Напиши че там вводить надо и я закрою тему.
....-.vitalya

-----
программистом не рождаются - им умирают

| Сообщение посчитали полезным: