Ol guys I did this video lesson to show you how simple and create a cash generator.The codes will be posting for you in a topic just follow the video, copy and paste.
Português
Olá galera eu fiz esta vídeo aula para mostrar para voce como e simples criar um gerador de cash .
Os codigos estarei postando para voces no proprio topico basta seguir o video , copiar e colar .
Video Gerador Cash - YouTube
Here the code of the Card (Aqui o código do Cartão)
Do not forget to delete the Begin and End
Code:
var
i:integer;
const
str='1234567890ABCDEFGHIJKLMNOPQRSTUVWXYZ';
max=4;
begin
Edit1.Text:='';
Edit2.Text:='';
Edit3.Text:='';
Edit4.Text:='';
for i:=1 to max do
begin
Edit1.Text:=Edit1.Text+str[random(length(str))+1];
Edit2.Text:=Edit2.Text+str[random(length(str))+1];
Edit3.Text:=Edit3.Text+str[random(length(str))+1];
Edit4.Text:=Edit4.Text+str[random(length(str))+1];
end;
end;
Here the Pin code (Aqui o código do Pin)
Do not forget to delete the Begin and End
Code:
var
i:integer;
const
str='1234567890';
max=4;
begin
Edit5.Text:='';
Edit6.Text:='';
Edit7.Text:='';
Edit8.Text:='';
for i:=1 to max do
begin
Edit5.Text:=Edit5.Text+str[random(length(str))+1];
Edit6.Text:=Edit6.Text+str[random(length(str))+1];
Edit7.Text:=Edit7.Text+str[random(length(str))+1];
Edit8.Text:=Edit8.Text+str[random(length(str))+1];
end;
end;