Промо-коды различных акций

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

 

на мауле чел по 2р коды покупает как найдёшь алгоритм ему спихнёш коды

 

Да в принципе я не собираюсь ничего никому "спихивать" у меня просто желание имеется, узнать можно ли, и опробовать это.

 

сколько значный код и из каких символов состоит?

 

там почти хэш
наверное лучше в инете их сайт похекать
я так ipod nano два года назад выиграл
на сайте вылез через скуль инж в куках, и немного отплюсовал себе балы, если бы наглее был то сидел бы сейчас с ноутом )

 

winlogon.exe, 8 значный, буквы и цифры. Без учёта регистра.
mal41k, да тоже как-то сомнения берут Но мне не хекать надо, а вот именно попробовать создать "свои" коды

 

школололо пиздит и не краснеет

 

А я 7 айподов нано снял за месяц, Дуров дурачёк.

 

Сгенерируй и бруть

 

Найди пачек 10 произведенных подряд. Тог да можно помучать алгоритм =)

 

а я похекал Microsoft

 

тогда уж сразу блок

 

Вот так всегда, как только начинаю бросать... эхх.

 

Бросать и курить бонд вещи не совместимые =)

 

В принципе с брутом идея, мороки правда много, но попробовать стоит.
gold-goblin ага Лучший способ не хотеть курить - это покурить.

 

Мда...

 

а я томат

 

А я тебя съем!

 

q87glqfs
e2799n82
q7hpx3ry
t7g63hay
9az2r9gz
69jnx96c

на ищи алгоритм!

 

я разгадал алгоритм!
Сам код алгоритма:

Code:

procedure TForm1.Button1Click(Sender: TObject);
const
 str = 'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0987654321';
var
 i, i2: integer;
 z: integer;
 temp_str: string;
begin
 for i:=1 to strtoint(edit1.Text) do
  begin
    temp_str:='';

    for i2:=1 to 8 do
     begin
       z:=random(length(str));
       temp_str:=temp_str+str[z];
     end;

    Memo1.Lines.Add(temp_str);
  end;
end;

С вас шелл на microsoft.com!11