Tutoral de como criar um Gerador de Cash.

por **pire64** Sex 10 Jun 2011 - 20:52

Iae pessoal vou encinar vocês a como fazer um gerador de cash .

Para fazer o gerador de cash precisa do delphi 7 eu coloquei o download dele no final do topico.

Vamos lá ao tutorial de como fazer o gerador de cash.

Crie 2 Button e 2 Edit.

No Button 1-> você ponhe o nome de ''CARTÃO'' no Button 2->você ponhe ''PIN'

Nos 2 Edit->Você ponhe ''Clique para gerar''sem as aspas.

Da 2 cliques no Button 1 ''Cartão'' e apague o begin e adicione esse codigo.

Codigo

var
i:integer;
Const
str='1234567890abcdefghijklmnopqrstuvwxyz';
max=16;
begin
Edit1.Text:=Edit1.Text+str[random(length(str))+1];
end;

De 2 clikes no Button 2 ''PIN'' apague o begin e adicione esse codigo.

Codigo

var
i:integer
const
str='1234567890abcdefghijklmnopqrstuvwxyz';
max=10;
begin
Edit2.Text:="";
for i:-1to max do
begin
Edit2.Text:=Edit2+str[random(length(str))+1];
end;
end;

Agora salve em uma pasta mais não fexa o delphi 7

Depois de salvo vcs aperta f9 para compilar para abrir como ".exe" depois de aperta f9 vai até a pasta ondi vc salvo e estara lá o Gerador de cash ".exe"

DOWNLOAD Do Delphi 7

[Tens de ter uma conta e sessão iniciada para poderes visualizar este link]

Arquivo muito grande não da para scan e é postado do site original ' nao se preocupem

Video Aula