[Básico] Criando um Crack Me e um Keygen para ele

Bom, esse tutorial é só pra ter uma ideia geral do que a gente faz la nos crack me, então ensinarei a fazer uma função que requer o crack, e uma que gere o serial para o crack.

Primeiro de tudo, add isso aki no form (ctrl c e ctrl v)

Código:

object Edit1: TEdit
  Left = 8
  Top = 8
  Width = 121
  Height = 21
  TabOrder = 0
  Text = 'Meu nick'
end
object Edit2: TEdit
  Left = 8
  Top = 32
  Width = 121
  Height = 21
  TabOrder = 1
  Text = 'Serial'
end
object Button1: TButton
  Left = 8
  Top = 56
  Width = 75
  Height = 25
  Caption = 'Verificar'
  TabOrder = 2
end
object Edit3: TEdit
  Left = 192
  Top = 8
  Width = 121
  Height = 21
  TabOrder = 3
  Text = 'Meu nick'
end
object Button2: TButton
  Left = 192
  Top = 32
  Width = 75
  Height = 25
  Caption = 'Gerar'
  TabOrder = 4
end
object Edit4: TEdit
  Left = 192
  Top = 64
  Width = 121
  Height = 21
  TabOrder = 5
  Text = 'Serial Gerado'
end

Vamos começar com o crack, uma função básica, em baixo de implementation, add essa funçãozinha:

Código:

function crack (nome : string; serial : string) : Boolean;  //função crack --> nome (texto), serial (texto) resulta em verdadeiro / falso
var
  serial1, i : integer; //serial1 para ser calculado, e i para verificar o tamanho do nome
begin
 serial1 := 0; //pra não da merda dps, declaramos o serial ser 0
 result := False; //pra não da merda dps, declaramos que o resultado seja falso

 if (nome <> '') then  //se o nome for diferente de nada, começa
  begin
  for i := 1 to Length(nome) do //para i = 1 até o tamanho do nome, começa
    begin
      serial1 := ((Byte(nome[i]) * $ABC + (200 div 5))); //calculamos um valor para o serial de acordo com o nome
    end;
  end;

  Result := (Format('#1crack-%d-%d-byEdu',[serial1, serial1 * serial1]) = serial); //declaramos o formato de como será o serial pro nome
end;

No botão verificar, add esse código, então ele vai verificar se os textos combinam:

Código:

 if crack (Edit1.Text, Edit2.Text) then
 showmessage ('acertou')
 else
 showmessage ('errou');

Agora o keygen, add essa função abaixo da função do crack:

Código:

function keygen (nome : string; EditA : TEdit) : string; //função keygen --> nome (texto), EditA (aparecerá o serial)
var
  serial1, i : Integer;
begin
 serial1 := 0; //pra não da merda dps, declaramos o serial ser 0
 result := ''; //pra não da merda dps, declaramos que o resultado seja falso

 if (nome <> '') then  //se o nome for diferente de nada, começa
  begin
  for i := 1 to Length(nome) do //para i = 1 até o tamanho do nome, começa
    begin
      serial1 := ((Byte(nome[i]) * $ABC + (200 div 5))); //calculamos um valor para o serial de acordo com o nome
    end;
  end;

  EditA.Text := (Format('#1crack-%d-%d-byEdu',[serial1, serial1 * serial1])); //fará com que gere o serial no edit, de acordo com o formato.
end;

No botão de gerar, add esse código, para gerar o serial de acordo com o nome:

Código:

keygen(Edit3.Text, Edit4);

É isso, os códigos já estão comentados, então, só olhar os coments, se tiver dúvida fale, elogios e críticas são bem vindos tbm.

Abraços.

Creio que pelas regras do fórum não seja permitido a postagem de programas que exponham conteúdo ilegal e/ou pirataria que contenham restrições de direitos autorais ou que exponham os mesmos, pelo o que sei sobre Cracks, são usados para liberar conteúdo que seja pago ou que tenham restrições, pesso que adicione no tópico ou nos explique detalhadamente sobre o que se trata o programa.
Caso esteja errado, peco que me desculpe.

Abraça!
Me desculpe por qualquer erro pois eatou usando celular.

bom, talvez vc não intenda de programação.
esse é um código que gera um serial a partir de um nome digitado.
nada a ver com cracking de programas.
se fosse engenharia reversa, ai sim.

lol kkkkkkkkkkkkkkkkkkkk
o tutorial ta bom
só q vc poderia coloca umas cores no topico
e sobre o programa eu criei
e mudei o codigo

keygen(Edit3.Text, Edit4);

mudei quero dizer o numer osó e deu as letra enorme kk =D
ainda so novo em programa
eu usava para outros recurso
agora q comecei mecher com cria calculadora e blablabla

blz parcero
qualquer duvida
só falar