aaaa
This commit is contained in:
Vendored
+56
@@ -0,0 +1,56 @@
|
|||||||
|
program cpfs;
|
||||||
|
|
||||||
|
type
|
||||||
|
TCPF = ^ptcpf;
|
||||||
|
ptcpf = record
|
||||||
|
cpf : string;
|
||||||
|
prox : TCPF;
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
procedure inserirCPF();
|
||||||
|
var
|
||||||
|
i:integer;
|
||||||
|
begin
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
|
function validarCPF(var cpf:string):boolean;
|
||||||
|
var
|
||||||
|
i, soma, dig1, dig2:integer;
|
||||||
|
begin
|
||||||
|
soma:=0;
|
||||||
|
for i:=1 to 9 do
|
||||||
|
//ord('0')=48... ord('1')=49... dai -48 vira 0... *11-i, vai decrementando, *9, *8, *7...
|
||||||
|
soma:=soma+(Ord(cpf[i])-48)*(11-i);
|
||||||
|
|
||||||
|
dig1 := 11 - (soma mod 11); //digito 1 pega a sobra da divisao bla bla
|
||||||
|
if (dig1 = 10) or (dig1 = 11) then
|
||||||
|
dig1 := 0;
|
||||||
|
|
||||||
|
|
||||||
|
soma := 0;
|
||||||
|
for i := 1 to 10 do
|
||||||
|
soma := soma + (Ord(cpf[i])-48)*(12-i);
|
||||||
|
|
||||||
|
dig2 := 11 - (soma mod 11);
|
||||||
|
if (dig2 = 10) or (dig2 = 11) then
|
||||||
|
dig2 := 0;
|
||||||
|
|
||||||
|
|
||||||
|
ValidarCPF :=
|
||||||
|
(dig1=(Ord(cpf[10])-48)) and (dig2=(Ord(cpf[11])-48));
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
var
|
||||||
|
hash : array[0..99] of TCPF;
|
||||||
|
cpf:string;
|
||||||
|
bool:boolean;
|
||||||
|
begin
|
||||||
|
readln(cpf);
|
||||||
|
bool:= validarCPF(cpf);
|
||||||
|
writeln(bool);
|
||||||
|
end.
|
||||||
@@ -0,0 +1,56 @@
|
|||||||
|
program cpfs;
|
||||||
|
|
||||||
|
type
|
||||||
|
TCPF = ^ptcpf;
|
||||||
|
ptcpf = record
|
||||||
|
cpf : string;
|
||||||
|
prox : TCPF;
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
procedure inserirCPF();
|
||||||
|
var
|
||||||
|
i:integer;
|
||||||
|
begin
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
|
function validarCPF(var cpf:string):boolean;
|
||||||
|
var
|
||||||
|
i, soma, dig1, dig2:integer;
|
||||||
|
begin
|
||||||
|
soma:=0;
|
||||||
|
for i:=1 to 9 do
|
||||||
|
//ord('0')=48... ord('1')=49... dai -48 vira 0... *11-i, vai decrementando, *9, *8, *7...
|
||||||
|
soma:=soma+(Ord(cpf[i])-48)*(11-i);
|
||||||
|
|
||||||
|
dig1 := 11 - (soma mod 11); //digito 1 pega a sobra da divisao bla bla
|
||||||
|
if (dig1 = 10) or (dig1 = 11) then
|
||||||
|
dig1 := 0;
|
||||||
|
|
||||||
|
|
||||||
|
soma := 0;
|
||||||
|
for i := 1 to 10 do
|
||||||
|
soma := soma + (Ord(cpf[i])-48)*(12-i);
|
||||||
|
|
||||||
|
dig2 := 11 - (soma mod 11);
|
||||||
|
if (dig2 = 10) or (dig2 = 11) then
|
||||||
|
dig2 := 0;
|
||||||
|
|
||||||
|
|
||||||
|
ValidarCPF :=
|
||||||
|
(dig1=(Ord(cpf[10])-48)) and (dig2=(Ord(cpf[11])-48));
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
var
|
||||||
|
hash : array[0..99] of TCPF;
|
||||||
|
cpf:string;
|
||||||
|
bool:boolean;
|
||||||
|
begin
|
||||||
|
readln(cpf);
|
||||||
|
bool:= validarCPF(cpf);
|
||||||
|
writeln(bool);
|
||||||
|
end.
|
||||||
@@ -0,0 +1,61 @@
|
|||||||
|
;;
|
||||||
|
;; Domain: takinite.com.br.
|
||||||
|
;; Exported: 2026-05-27 15:11:51
|
||||||
|
;;
|
||||||
|
;; This file is intended for use for informational and archival
|
||||||
|
;; purposes ONLY and MUST be edited before use on a production
|
||||||
|
;; DNS server. In particular, you must:
|
||||||
|
;; -- update the SOA record with the correct authoritative name server
|
||||||
|
;; -- update the SOA record with the contact e-mail address information
|
||||||
|
;; -- update the NS record(s) with the authoritative name servers for this domain.
|
||||||
|
;;
|
||||||
|
;; For further information, please consult the BIND documentation
|
||||||
|
;; located on the following website:
|
||||||
|
;;
|
||||||
|
;; http://www.isc.org/
|
||||||
|
;;
|
||||||
|
;; And RFC 1035:
|
||||||
|
;;
|
||||||
|
;; http://www.ietf.org/rfc/rfc1035.txt
|
||||||
|
;;
|
||||||
|
;; Please note that we do NOT offer technical support for any use
|
||||||
|
;; of this zone data, the BIND name server, or any other third-party
|
||||||
|
;; DNS software.
|
||||||
|
;;
|
||||||
|
;; Use at your own risk.
|
||||||
|
;; SOA Record
|
||||||
|
takinite.com.br 3600 IN SOA alaric.ns.cloudflare.com. dns.cloudflare.com. 2053156131 10000 2400 604800 3600
|
||||||
|
|
||||||
|
;; NS Records
|
||||||
|
takinite.com.br. 86400 IN NS alaric.ns.cloudflare.com.
|
||||||
|
takinite.com.br. 86400 IN NS paityn.ns.cloudflare.com.
|
||||||
|
|
||||||
|
;; A Records
|
||||||
|
dash.takinite.com.br. 1 IN A 212.69.5.22 ; cf_tags=cf-proxied:true
|
||||||
|
takinite.com.br. 1 IN A 212.69.5.22 ; cf_tags=cf-proxied:true
|
||||||
|
mysql1.takinite.com.br. 1 IN A 212.69.5.22 ; cf_tags=cf-proxied:false
|
||||||
|
node1.takinite.com.br. 1 IN A 212.69.5.22 ; cf_tags=cf-proxied:false
|
||||||
|
node2.takinite.com.br. 1 IN A 212.69.5.22 ; cf_tags=cf-proxied:false
|
||||||
|
painel.takinite.com.br. 1 IN A 212.69.5.22 ; cf_tags=cf-proxied:true
|
||||||
|
phpmyadmin.takinite.com.br. 1 IN A 212.69.5.22 ; cf_tags=cf-proxied:true
|
||||||
|
www.takinite.com.br. 1 IN A 212.69.5.22 ; cf_tags=cf-proxied:true
|
||||||
|
|
||||||
|
;; CNAME Records
|
||||||
|
dynmap.takinite.com.br. 1 IN CNAME 316aed9d-ec2d-431c-b762-0a79dc2cfa63.cfargotunnel.com. ; cf_tags=cf-proxied:true
|
||||||
|
ha.takinite.com.br. 1 IN CNAME 316aed9d-ec2d-431c-b762-0a79dc2cfa63.cfargotunnel.com. ; cf_tags=cf-proxied:true
|
||||||
|
node-1.takinite.com.br. 1 IN CNAME 316aed9d-ec2d-431c-b762-0a79dc2cfa63.cfargotunnel.com. ; cf_tags=cf-proxied:true
|
||||||
|
pbe.takinite.com.br. 1 IN CNAME 316aed9d-ec2d-431c-b762-0a79dc2cfa63.cfargotunnel.com. ; cf_tags=cf-proxied:true
|
||||||
|
status.takinite.com.br. 1 IN CNAME 316aed9d-ec2d-431c-b762-0a79dc2cfa63.cfargotunnel.com. ; cf_tags=cf-proxied:true
|
||||||
|
uptime.takinite.com.br. 1 IN CNAME reports.hetrixtools.com. ; cf_tags=cf-proxied:false
|
||||||
|
zb14518555.takinite.com.br. 600 IN CNAME zmverify.zoho.com. ; cf_tags=cf-proxied:false
|
||||||
|
|
||||||
|
;; MX Records
|
||||||
|
takinite.com.br. 600 IN MX 50 mx3.zoho.com.
|
||||||
|
takinite.com.br. 600 IN MX 10 mx.zoho.com.
|
||||||
|
takinite.com.br. 600 IN MX 20 mx2.zoho.com.
|
||||||
|
|
||||||
|
;; TXT Records
|
||||||
|
_dmarc.takinite.com.br. 1 IN TXT "v=DMARC1; p=quarantine; rua=mailto:itakinite@gmail.com; ruf=mailto:itakinite@gmail.com; sp=none; adkim=r; aspf=r"
|
||||||
|
takinite.com.br. 3600 IN TXT "v=spf1 include:zohomail.com -all"
|
||||||
|
takinite.com.br. 3600 IN TXT "google-site-verification=4rX7Ld31YFdl8xoahz0JkzfhDDKwsLy4oLjmZ7kOA78"
|
||||||
|
takin._domainkey.takinite.com.br. 600 IN TXT "v=DKIM1; k=rsa; p=MIGfMA0GCSqGSIb3DQEBAQUAA4GNADCBiQKBgQCGJDzxMDiD+acgvXT1I/5F5LpGl0KG5qViTK1IrHrYYo9HZ7Em69WmZIgJ+jCCZAqiYSSrEAPTkLr5h7/W7T/SH2fMcqpKLg4AsUYLolIodn1hLBNGJ30jJzg8os5q35ytBMssMMNf2yfifKmKG8WOH34d4I+IEl/Q8BF3JrC8pQIDAQAB"
|
||||||
Reference in New Issue
Block a user