Criando sua própria criptografia em hash
Publicado por Perfil removido (última atualização em 18/06/2014)
[ Hits: 10.788 ]
Hoje em dia todo mundo usa em sistemas web algum tipo de criptografia hash, as famosas base64, MD5, SHA1 etc... mas com o passar do tempo, essas criptografias sempre ficam manjadas, surgem os "decoders" e os milhares de bancos de dados que fazem com que esse modelo não seja mais tão seguro para proteger dados como no início de seus projetos, por isso, ao menos eu penso que cada desenvolvedor, ao querer criptografar dados de usuários, como CPFs, logins, e senhas por exemplo, uma boa alternativa seria o próprio desenvolvedor criar seu próprio algoritmo de criptografia.
Fiz esses esboço em Perl que demonstra como pode ser simples criar um tipo de criptografia específica e de fácil alteração, que provavelmente não poderia ser quebrada ao menos que o desenvolvedor (assim como eu faço agora) divulgue seu dicionário ou algoritmo por inteiro... eu usei Perl, mas a metodologia é tão simples, que você pode reescrever a lógica em qualquer linguagem de programação mesmo sem dominar profundamente a mesma.
(apelidei de K2 "Kouback Double" em função de que a quantidade de bytes informado inicialmente dobra na saída A = BB)
#!/usr/bin/perl # DON'T use warnings; rsrs use strict; use Config; # Algoritmo para criptografia de dados (caracteres e números) #============================================================================================= # Como funciona? # Informando valores através de texto e números, dividimos o valor da variável # pegando cada inteiro ou caractere, depois fazemos uma condição, "convertendo" # esse dado em um conjunto de dois caracteres e/ou números inteiros que são definidos # no próprio código, (dobrando o numero de bytes do dado informado). # é extremamente importante que nunca se divulgue as informações equivalentes as conversões. # NÃO CONSIDEREI TODOS OS CARACTERES NEM ACENTUAÇÃO... ISSO É APENAS UMA NOÇÃO BÁSICA # Algorithm for encryption of data (characters and numbers) #============================================================================================= # How it works? # Entering values through text and numbers, we divide the value of the variable # catching each integer or character, then we make a condition, "converting" # this data into a set of two cracteres and / or integer numbers that are defined # in the code itself (by doubling the number of bytes of information reported). # is extremely important to never disclose information equivalent conversions. # Not consider ALL CHARACTERS OR ACCENT... THAT'S JUST A BASIC CONCEPT #============================================================================================= # By @Kouback_TR_ # koubacktr@gmail.com # http://www.koubacktr.wordpress.com/ # http://www.twitter.com/Kouback_Tr_ # IRC: # irc.anonnet.org # 6667 # #loc my $os=$Config{osname}; if($os=="Linux"){ system('clear'); }else{ system('cls'); } print" ============[ K2 - Cryptographic Hash ]============= 00000 00 00 00 00 11111111 0000000000000 111111111111111111 11 000000-000000 1111 11111111 00000| |00000 000000-000000 0000000000000 \t\t\t\thttp://www.koubacktr.wordpress.com/ ==================[by KoubackTr]==================== \n"; print "[!] Enter text to encrypt: \n"; print "[!] Informe um texto para criptografar: \n"; print "#~> "; my $input = <STDIN>; my (@geral) = split(//,$input); print "\n\n\n"; print "\t\t[+]Normal: $input"; print "\t\t[+]Encrypted: "; my $c_input=@geral; my $i=0; while( $i < $c_input){ my $regra=$geral[$i]; #print "$regra \n"; #NUMBERS (0123456789) if($regra eq 0){ #0 = Ea print "Ea"; } if($regra==1){ #1 = a9 print "a9"; } if($regra==2){ #2 = z1 print "z1"; } if($regra==3){ #3 = p0 print "p0"; } if($regra==4){ #4 = H8 print "H8"; } if($regra==5){ #5 = f3 print "f3"; } if($regra==6){ #6 = 0e print "0e"; } if($regra==7){ #7 = 6j print "6j"; } if($regra==8){ #8 = l4 print "l4"; } if($regra==9){ #9 = K5 print "K5"; } # END NUMBERS #... #SPECIAL CHARACTERS AND OPERATORS... (!@#$%&*_+-/=\:.,"'<>(){}| and space) if($regra eq '!'){ #! = 5w print "5w"; } if($regra eq '@'){ #@ = ep print "ep"; } if($regra eq '#'){ # # = tU print "tU"; } if($regra eq '$'){ #$ = 4Y print "4Y"; } if($regra eq '%'){ #% = d8 print "d8"; } if($regra eq '&'){ #& = eK print "eK"; } if($regra eq '*'){ #* = aG print "aG"; } if($regra eq '_'){ #_ = x7 print "x7"; } if($regra eq '+'){ #+ = eA print "eA"; } if($regra eq '-'){ #- = 6R print "6R"; } if($regra eq '/'){ # / = Pt print "Pt"; } if($regra eq '='){ #= = wX print "wX"; } if($regra eq '.'){ #. = 55 print "55"; } if($regra eq ','){ #, = eE print "eE"; } if($regra eq ':'){ #: = Z3 print "Z3"; } if($regra eq '<'){ #< = 22 print "22"; } if($regra eq '>'){ #> = 67 print "67"; } if($regra eq "'"){ #' = wA print "Wa"; } if($regra eq '"'){ #" = yF print "yF"; } if($regra eq "\\"){ #\ = wQ print "wQ"; } if($regra eq '|'){ #| = eK print "eK"; } if($regra eq '('){ #( = vC print "vC"; } if($regra eq ')'){ #) = Cv print "Cv"; } if($regra eq '}'){ #} = pR print "pR"; } if($regra eq '{'){ #{ = Rg print "Rg"; } if($regra eq ' '){ #{ = Ih # SPACE "CHAR" print "Ih"; } # END SPECIAL CHARACTERS AND OPERATORS... #... # NORMAL CHARACTERS (abcdefghijklmnopqrstuvwyxzç) # (qwertyuiopasdfghjklçzxcvbnm) if($regra eq 'a' or $regra eq 'A'){ #a = Xc print "Xc"; } if($regra eq 'b' or $regra eq 'B' ){ #b = eW print "eW"; } if($regra eq 'c' or $regra eq 'C' ){ #c = 18 print "18"; } if($regra eq 'd' or $regra eq 'D'){ #d = qZ print "qZ"; } if($regra eq 'e' or $regra eq 'E'){ #e = g7 print "g7"; } if($regra eq 'f' or $regra eq 'F'){ #f = GG print "GG"; } if($regra eq 'g' or $regra eq 'G'){ #g = 0L print "0L"; } if($regra eq 'h' or $regra eq 'H'){ #h = pO print "p0"; } if($regra eq 'i' or $regra eq 'I'){ #i = Pf print "Pf"; } if($regra eq 'j' or $regra eq 'J'){ #j = 0z print "0z"; } if($regra eq 'k' or $regra eq 'K'){ #k = oL print "oL"; } if($regra eq 'l' or $regra eq 'L'){ #l = Zz print "Zz"; } if($regra eq 'm' or $regra eq 'M'){ #m = qE print "qE"; } if($regra eq 'n' or $regra eq 'N'){ #n = wJ print "wJ"; } if($regra eq 'o' or $regra eq 'O'){ #o = Vg print "Vg"; } if($regra eq 'p' or $regra eq 'P'){ #p = DD print "DD"; } if($regra eq 'q' or $regra eq 'Q'){ #q = Qp print "Qp"; } if($regra eq 'r' or $regra eq 'R'){ #r = QQ print "QQ"; } if($regra eq 's' or $regra eq 'S'){ #s = s0 print "s0"; } if($regra eq 't' or $regra eq 'T'){ #t = 21 print "21"; } if($regra eq 'u' or $regra eq 'U'){ #u = 07 print "07"; } if($regra eq 'v' or $regra eq 'V'){ #v = 72 print "72"; } if($regra eq 'x' or $regra eq 'X'){ #x = bZ print "bZ"; } if($regra eq 'w' or $regra eq 'W'){ #w = Kz print "Kz"; } if($regra eq 'y' or $regra eq 'Y'){ #y = o0 print "o0"; } if($regra eq 'z' or $regra eq 'Z'){ #z = gF print "gF"; } # BUG: if($regra eq 'ç' or $regra eq 'Ç'){ #ç = 0V # print "0V"; # } $i++; # +1 for return on while function.. # END NORMAL CHARACTERS... } print "\n\n"; __END__ # bye
Script de Analise do Syslog SNORT
Nenhum comentário foi encontrado.
Compartilhando a tela do Computador no Celular via Deskreen
Como Configurar um Túnel SSH Reverso para Acessar Sua Máquina Local a Partir de uma Máquina Remota
Configuração para desligamento automatizado de Computadores em um Ambiente Comercial
Como renomear arquivos de letras maiúsculas para minúsculas
Imprimindo no formato livreto no Linux
Vim - incrementando números em substituição
Efeito "livro" em arquivos PDF
Como resolver o erro no CUPS: Unable to get list of printer drivers
SysAdmin ou DevOps: Qual curso inicial pra essa área? (3)
É cada coisa que me aparece! - não é só 3% (3)
Melhorando a precisão de valores flutuantes em python[AJUDA] (5)
[Python] Automação de scan de vulnerabilidades
[Python] Script para analise de superficie de ataque
[Shell Script] Novo script para redimensionar, rotacionar, converter e espelhar arquivos de imagem
[Shell Script] Iniciador de DOOM (DSDA-DOOM, Doom Retro ou Woof!)
[Shell Script] Script para adicionar bordas às imagens de uma pasta