aaaa
This commit is contained in:
iTakinn
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