O Programador Posted April 26, 2017 Share Posted April 26, 2017 TODOS NÓS ESTAMOS AQUI PRA ACHAR AS 50 DEZENAS QUE NOS DÊ DINHEIRO, ENTÃO EU BOLEI UM PADRÃO DIFERENTE DE TUDO QUE JÁ VIMOS NESSE FORÚM. DURANTE MUITO TEMPO NESSE FORÚM NÃO VI PADRÃO ASSIM, VOU TRAZER PRA CÁ POIS QUERO QUE TODOS FAÇAM PARTE DESSE NOVO PADRÃO. VAI SER ASSIM VC ESCOLHE UM PADRÃO, PODE SER O QUE MAIS SAI NOS CONCURSOS, OU O QUE MENOS SAI, VOCÊ VAI DECIDIR ISSO. O PROGRAMA QUE EU CRIEI VAI TE DAR OPÇÕES DE SOMA AO SEU PADRÃO ESCOLHIDO. BASICAMENTE. SÃO 70 PADRÕES CADA PADRÃO TEM 32 DEZENAS. (NÃO SE PREOCUPE POIS NEM TODOS SÃO FORTES). AS 100 DEZENAS FORAM DIVIDIDAS EM 12 GRUPOS. (USAREMOS O ESPELHO). NOIS ENCHERGAMOS O JOGO ASSIM. MAS EU QUERO QUE VCS ENCHEGUEM O JOGO ASSIME O NO MODO DE IMPRESSÃO DO JOGO. 12 DIVISÕES. Quote Link to comment Share on other sites More sharing options...
O Programador Posted April 26, 2017 Author Share Posted April 26, 2017 (edited) AS DIVISÕES FORAM FEITAS ASSIM NA A FIGURA DA ESQUERDA É O VOLANTE ORIGINAL E O DA DIREITA O ESPELHO. NO PROGRAMA QUE EU FIZ JÁ ESTÃO FEITAS ESSAS DIVISÕES. NÃO SE APEGUEM AOS NÚMEROS DOS JOGOS O QUE VALE NAS IMAGENS É AS DIVISÕES. Edited April 26, 2017 by O Programador MAIS CONTEUDO Quote Link to comment Share on other sites More sharing options...
O Programador Posted April 26, 2017 Author Share Posted April 26, 2017 SEGUE O LINK DO ESQUEMA NOVO: DEPOIS VOU FAZER UM VIDEO CURTO PRA ENSINAR COMO USA O PROGRAMA. (NÃO TEM SEGREDO DIGITA OS NUMEROS DO CONCURSO E PRONTO O PROGRAMA FAZ O RESTO) https://www.4shared.com/folder/ptJ3o9YV/_esquema_novo.html. QUERO DEIXAR CLARO QUE PODEMOS A QUALQUER HORA IMPLEMENTAR IDEIAS A ESSE PROJETO. Quote Link to comment Share on other sites More sharing options...
O Programador Posted April 26, 2017 Author Share Posted April 26, 2017 1 minuto atrás, Crazy Rabbit disse: Olá Programador, Está dando vírus em 2 softwares, Software Nome do Vírus Atualização DrWeb Adware.InstallCore.53 20170426 Zillya Worm.VBNA.Win32.264033 20170426 Olá Crazy deve estar acusando vírus pois o programa visualg é um exe. Quote Link to comment Share on other sites More sharing options...
Guest Zangado Posted April 26, 2017 Share Posted April 26, 2017 oq exatamente o programa faz? Quote Link to comment Share on other sites More sharing options...
O Programador Posted April 26, 2017 Author Share Posted April 26, 2017 CRAZY AMANHÃ VOU POSTAR UM VIDEO DE COMO USAR O PROGRAMA, NÃO PRECISA PREOCUPAR AGORA COM O PROGRAMA, VAMOS ENTEDER PRIMEIRO COMO FUNCIONA O ESQUEMA, PARA QUE POSSA SURGIR NOVAS IDEIAS POR ISSO QUE EU DIVULGUEI ESSE ESQUEMA. EU JÁ FIZ PARTE DESSE FORUM SEI COMO FUNCIONA. ABRAÇO. Quote Link to comment Share on other sites More sharing options...
O Programador Posted April 26, 2017 Author Share Posted April 26, 2017 54 minutos atrás, Crazy Rabbit disse: Ok, mesmo assim vou analisar ele na madrugada, só por precaução, pois está detectando 2 vírus, vou me infectar na máquina virtual e daí vou saber se tem ou não tem vírus nocivo ao computador. Crazy Rabbit CRAZY, MEU PC NÃO DETECTOU VIRUS, MAS SERÁ QUE VC NÃO CONSEGUE LIMPAR E POSTAR DE NOVO, VALEU Quote Link to comment Share on other sites More sharing options...
Guest Pitaco_certo! Posted April 26, 2017 Share Posted April 26, 2017 3 horas atrás, O Programador disse: TODOS NÓS ESTAMOS AQUI PRA ACHAR AS 50 DEZENAS QUE NOS DÊ DINHEIRO, ENTÃO EU BOLEI UM PADRÃO DIFERENTE DE TUDO QUE JÁ VIMOS NESSE FORÚM. DURANTE MUITO TEMPO NESSE FORÚM NÃO VI PADRÃO ASSIM, VOU TRAZER PRA CÁ POIS QUERO QUE TODOS FAÇAM PARTE DESSE NOVO PADRÃO. VAI SER ASSIM VC ESCOLHE UM PADRÃO, PODE SER O QUE MAIS SAI NOS CONCURSOS, OU O QUE MENOS SAI, VOCÊ VAI DECIDIR ISSO. O PROGRAMA QUE EU CRIEI VAI TE DAR OPÇÕES DE SOMA AO SEU PADRÃO ESCOLHIDO. BASICAMENTE. SÃO 70 PADRÕES CADA PADRÃO TEM 32 DEZENAS. (NÃO SE PREOCUPE POIS NEM TODOS SÃO FORTES). AS 100 DEZENAS FORAM DIVIDIDAS EM 12 GRUPOS. (USAREMOS O ESPELHO). NOIS ENCHERGAMOS O JOGO ASSIM. MAS EU QUERO QUE VCS ENCHEGUEM O JOGO ASSIME O NO MODO DE IMPRESSÃO DO JOGO. 12 DIVISÕES. Programador ! Vamos testar.... Qual é a senha para executar? Att, Quote Link to comment Share on other sites More sharing options...
Guest Pitaco_certo! Posted April 26, 2017 Share Posted April 26, 2017 1 minuto atrás, Crazy Rabbit disse: Cuidado, Pitaco_certo, Este arquivo não é original, estou em contato como o desenvolvedor. Calma, não abra ainda. Crazy Rabbit Obrigado! Aqui não reportou nenhum problema. Posso garantir que o sistema é normal sem vírus, aqui não gerou nenhum problema. Apenas o programador inseriu uma senha para rodar a aplicação, preciso apenas disso para testar.... Grato! Quote Link to comment Share on other sites More sharing options...
Guest Zangado Posted April 26, 2017 Share Posted April 26, 2017 pelo que sei o visualg é uma linguagem de programação tipo o vba mas independente , algo como a linguagem C mas em portugues talvez o arquivo esteja maior por conter o programa do esquema mas se bem que se for só para mudar as dezenas das tabelas seria só usar o excel Quote Link to comment Share on other sites More sharing options...
Guest Zangado Posted April 27, 2017 Share Posted April 27, 2017 fiquei curioso e fui dar uma olhadinha , e realmente são varios arquivos que logo se mostram um deles é esse algoritmo "semnome" arquivo "concurso1.txt" var resp: caractere senha, login: inteiro v: vetor [1..20] de inteiro m: vetor [0..3] de inteiro n: vetor [1..20] de caractere c, i,j, sA,sB,sC,sD,s1,s2,s3,s4,s5,s6,s7,s8: inteiro a1,a2,a3,a4,a5,a6,a7,a8,a9: inteiro b1,b2,b3,b4,b5,b6,b7,b8,b9: inteiro c1,c2,c3,c4,c5,c6,c7,c8,c9: inteiro d1,d2,d3,d4,d5,d6,d7,d8,d9: inteiro f1,f2,f3,f4,f5,f6,f7,f8: inteiro g1,g2,g3,g4,g5,g6,g7,g8: inteiro h1,h2,h3,h4,h5,h6,h7,h8: inteiro i1,i2,i3,i4,i5,i6,i7,i8: inteiro j1,j2,j3,j4,j5,j6,j7,j8: inteiro l1,l2,l3,l4,l5,l6,l7,l8: inteiro m1,m2,m3,m4,m5,m6,m7,m8: inteiro n1,n2,n3,n4,n5,n6,n7,n8: inteiro procedimento Topo() inicio Escreval(" ") senha <- 1234 Escreva (". senha: ") Leia (login) Enquanto (login <> senha) faca LimpaTela Topo() FimEnquanto FimProcedimento inicio Topo() LimpaTela a1 <- 01 a2 <- 14 a3 <- 25 a4 <- 38 a5 <- 49 a6 <- 61 a7 <- 74 a8 <- 85 a9 <- 98 b1 <- 03 b2 <- 16 b3 <- 27 b4 <- 40 b5 <- 52 b6 <- 63 b7 <- 76 b8 <- 87 b9 <- 00 f1 <- 05 f2 <- 18 f3 <- 29 f4 <- 41 f5 <- 54 f6 <- 65 f7 <- 78 f8 <- 98 g1 <- 07 g2 <- 09 g3 <- 20 g4 <- 21 g5 <- 32 g6 <- 34 g7 <- 43 g8 <- 45 h1 <- 12 h2 <- 23 h3 <- 36 h4 <- 47 h5 <- 60 h6 <- 72 h7 <- 83 h8 <- 96 i1 <- 56 i2 <- 58 i3 <- 67 i4 <- 69 i5 <- 80 i6 <- 81 i7 <- 92 i8 <- 94 c1 <- 02 c2 <- 13 c3 <- 26 c4 <- 37 c5 <- 50 c6 <- 62 c7 <- 73 c8 <- 86 c9 <- 97 d1 <- 04 d2 <- 15 d3 <- 28 d4 <- 39 d5 <- 51 d6 <- 64 d7 <- 75 d8 <- 88 d9 <- 99 j1 <- 06 j2 <- 17 j3 <- 30 j4 <- 42 j5 <- 53 j6 <- 66 j7 <- 77 j8 <- 90 l1 <- 08 l2 <- 10 l3 <- 19 l4 <- 22 l5 <- 31 l6 <- 33 l7 <- 44 l8 <- 46 m1 <- 11 m2 <- 24 m3 <- 35 m4 <- 48 m5 <- 59 m6 <- 71 m7 <- 84 m8 <- 95 n1 <- 55 n2 <- 57 n3 <- 68 n4 <- 70 n5 <- 79 n6 <- 82 n7 <- 91 n8 <- 93 i <- 0 sA <- 0 sB <- 0 sC <- 0 sD <- 0 Escreval("") Escreval("") Escreva(". digite o concurso :") leia(m[j]) Repita Para i <- 0 ate 2 faca LimpaTela Escreval(" --------------------------------------------") Escreval(" Digite os Números do Sorteio") Escreval("") Escreva("concurso: ",m[j]) m[j] <- m[j] + 1 Escreval("") Escreval("") Para c <- 1 ate 20 faca Escreva("Digite o ",c , "° : ") Leia (v[c]) Se (v[c]=a1)ou(v[c]=a2)ou(v[c]=a3)ou(v[c]=a4)ou(v[c]=a5)ou(v[c]=a6)ou(v[c]=a7)ou(v[c]=a8)ou(v[c]=a9) entao n[c] <- ("A") sA <- sA + 1 senao Se (v[c]=b1)ou(v[c]=b2)ou(v[c]=b3)ou(v[c]=b4)ou(v[c]=b5)ou(v[c]=b6)ou(v[c]=b7)ou(v[c]=b8)ou(v[c]=b9) entao n[c] <- ("B") sB <- sB + 1 senao Se (v[c]=c1)ou(v[c]=c2)ou(v[c]=c3)ou(v[c]=c4)ou(v[c]=c5)ou(v[c]=c6)ou(v[c]=c7)ou(v[c]=c8)ou(v[c]=c9) entao n[c] <-("C") sC <- sC + 1 senao Se (v[c]=d1)ou(v[c]=d2)ou(v[c]=d3)ou(v[c]=d4)ou(v[c]=d5)ou(v[c]=d6)ou(v[c]=d7)ou(v[c]=d8)ou(v[c]=d9) entao n[c] <-("D") sD <- sD + 1 senao Se (v[c]=f1)ou(v[c]=f2)ou(v[c]=f3)ou(v[c]=f4)ou(v[c]=f5)ou(v[c]=f6)ou(v[c]=f7)ou(v[c]=f8) entao n[c] <-("1") s1 <- s1 + 1 senao Se (v[c]=g1)ou(v[c]=g2)ou(v[c]=g3)ou(v[c]=g4)ou(v[c]=g5)ou(v[c]=g6)ou(v[c]=g7)ou(v[c]=g8) entao n[c] <-("2") s2 <- s2 + 1 senao Se (v[c]=h1)ou(v[c]=h2)ou(v[c]=h3)ou(v[c]=h4)ou(v[c]=h5)ou(v[c]=h6)ou(v[c]=h7)ou(v[c]=h8) entao n[c] <-("3") s3 <- s3 + 1 senao Se (v[c]=i1)ou(v[c]=i2)ou(v[c]=i3)ou(v[c]=i4)ou(v[c]=i5)ou(v[c]=i6)ou(v[c]=i7)ou(v[c]=i8) entao n[c] <-("4") s4 <- s4 + 1 senao Se (v[c]=j1)ou(v[c]=j2)ou(v[c]=j3)ou(v[c]=j4)ou(v[c]=j5)ou(v[c]=j6)ou(v[c]=j7)ou(v[c]=j8) entao n[c] <-("5") s5 <- s5 + 1 senao Se (v[c]=l1)ou(v[c]=l2)ou(v[c]=l3)ou(v[c]=l4)ou(v[c]=l5)ou(v[c]=l6)ou(v[c]=l7)ou(v[c]=l8) entao n[c] <-("6") s6 <- s6 + 1 senao Se (v[c]=m1)ou(v[c]=m2)ou(v[c]=m3)ou(v[c]=m4)ou(v[c]=m5)ou(v[c]=m6)ou(v[c]=m7)ou(v[c]=m8) entao n[c] <-("7") s7 <- s7 + 1 senao Se (v[c]=n1)ou(v[c]=n2)ou(v[c]=n3)ou(v[c]=n4)ou(v[c]=n5)ou(v[c]=n6)ou(v[c]=n7)ou(v[c]=n8) entao n[c] <-("8") s8 <- s8 + 1 FimSe FimSe FimSe FimSe FimSe FimSe FimSe FimSe FimSe FimSe FimSe FimSe FimPara FimPara LimpaTela Escreval (" .A = ", sA) Escreval (" .B = ", sB) Escreval (" .C = ", sC) Escreval (" .D = ", sD) Escreval ("") Escreval (" .1 = ", s1) Escreval (" .2 = ", s2) Escreval (" .3 = ", s3) Escreval (" .4 = ", s4) Escreval ("") Escreval (" .5 = ", s5) Escreval (" .6 = ", s6) Escreval (" .7 = ", s7) Escreval (" .8 = ", s8) EscrevaL ("") Escreval (" CONCURSO :",(m[j] - 3), " AO CONCURSO :",(m[j]- 1)) EscrevaL ("") Escreval (" ",n[1],n[2],n[3],n[4],n[5],n[6],n[7],n[8],n[9],n[10],n[11],n[12],n[13],n[14],n[15],n[16],n[17],n[18],n[19],n[20]) EscrevaL ("") Escreva (" QUER CONTINUAR? [S/N] : ") Leia (resp) Ate(resp = "N") Escreval ("") Escreval ("") Escreval ("") fimalgoritmo Quote Link to comment Share on other sites More sharing options...
maguiver Posted April 27, 2017 Share Posted April 27, 2017 A senha para rodar é = 1234 Quote Link to comment Share on other sites More sharing options...
Gloria Batista Posted April 27, 2017 Share Posted April 27, 2017 Obrigada, por avisar, Crazy...não custa aguardar...Abs. Att. Glória Quote Link to comment Share on other sites More sharing options...
Guest Pitaco_certo! Posted April 27, 2017 Share Posted April 27, 2017 2 horas atrás, maguiver disse: A senha para rodar é = 1234 Obrigado Maguiver! Funcionou perfeitamente, rodando sem problema; Ainda não pude ler o código, mas já consegui executar; Você já interpretou o código, o que o algoritmo executa? Att, Quote Link to comment Share on other sites More sharing options...
Guest Zangado Posted April 27, 2017 Share Posted April 27, 2017 (edited) 4 horas atrás, Crazy Rabbit disse: "NÃO INSTALEM ESTE SOFTWARE, FUI INFECTADO NA MINHA MAQUINA VIRTUAL, AINDA BEM QUE NÃO DÁ PROBLEMA NENHUM, PARA MIM, POIS USO SEM INTERNET PORTANTO, FOI SÓ PASSAR UM COMBOFIX E UM ANTIVÍRUS QUE FICOU TUDO BEM, NÃO CONSEGUI ISOLAR ESTE VÍRUS, PORTANTO ATÉ "O PROGRAMADOR" POSTAR O SOFTWARE LIMPO, NÃO INSTALEM" QUEM QUISER INSTALAR, É POR CONTA E RISCO PRÓPRIO. Crazy Rabbit. se tiver é no arquivo do interpretador que vc pode baixar do site que indicou, no caso da pagina oficial os outros arquivos são relacionados na programação dele e são simples script , é tõ simples que até carrega a senha talvez a maquina dele estava infectada e quando mandou infectou o arquivo exe mas é muito facil refazer a rotina no excel bem o script dele é muto simples posso dizer até que amador ão que eu seja profissional, mas ele poderia ter diminuído em muito o codigo usando um array 8x12 no lugar daquelas variaveis a1,a2.. ,b1,b2...f1,f2...f8,... e um loop de verificação Edited April 27, 2017 by Zangado Quote Link to comment Share on other sites More sharing options...
O Programador Posted April 27, 2017 Author Share Posted April 27, 2017 GALERA CALMA A SENHA É 1234 (COLOQUEI SENHA SÓ PRA CERTIFICAR QUE EU TAVA COMEÇANDO DE NOVO OUTROS TESTES). O VISULAG É UM PROGRAMA PRA FAZER CODIGOS EM PROGRAMAÇÃO, O QUE EU FIZ FOI FAZER UM CODIGO DENTRO DELE, QUE ME AJUDASSE A FAZER CALCULOS MAIS RAPIDO COMO NO COLOGA, SE TEM VIRUS, VCS PODEM BAIXAR ELE DO PROPRIO DESENVOLVEDOR GRATIS, SÓ ESCREVER VISULAG NO GOOGLE. VOU FAZER O VIDEO EXPLICANDO O ESQUEMA ESQUEÇAM ESSE NEGOCIO DE VIRUS. DAQUI A POUCO POSTO O VIDEO OK, AI QUEM QUISER COLABORAR FIQUE A VONTADE. NO PROGRAMA VAI PEDIR A SENHA(1234) AI NO ARQUIVO PROJETO_FORUM_1_JOGO, VAI PEDIR O CONCURSO, VC DIGITA OS NUMEROS DO SORTEIO. AI O PROGRAMA TE MOSTRA A QUANTIDADE DE DEZENA QUE SAIU EM CADA GRUPO SÓ ISSO. NO ARQUIVO PROJETO_FORUM_3_JOGOS, VC DIGITA 3 CONCURSOS SEGUIDO (TIPO 1, 2, 3) AI VAI SERVIR DE BASE PARA O 4° CONCURSO. NO ARQUIVO 12 DIVISÕES É APENAS OS GRUPOS. Quote Link to comment Share on other sites More sharing options...
O Programador Posted April 27, 2017 Author Share Posted April 27, 2017 1 hora atrás, edcronos2 disse: se tiver é no arquivo do interpretador que vc pode baixar do site que indicou, no caso da pagina oficial os outros arquivos são relacionados na programação dele e são simples script , é tõ simples que até carrega a senha talvez a maquina dele estava infectada e quando mandou infectou o arquivo exe mas é muito facil refazer a rotina no excel bem o script dele é muto simples posso dizer até que amador ão que eu seja profissional, mas ele poderia ter diminuído em muito o codigo usando um array 8x12 no lugar daquelas variaveis a1,a2.. ,b1,b2...f1,f2...f8,... e um loop de verificação CARA EU SOU ESTUDANTE DE PROGRAMAÇÃO, APANHEI PRA CARAMBA PRA FAZER ESSE SIMPLES CODIGO, E COMO EU FIQUEI FELIZ PRA CARAMBA POR DESENVOLVELO EU COMPARTILHEI COM TODO MUNDO É A MINHA PRIMEIRA CRIAÇÃO KKKKK. EU NÃO TENHO EXPERIÊNCIA NENHUMA, MAS VOU LEVAR SUA CRITICA COMO CONSTRUTIVA, VALEU. 1 Quote Link to comment Share on other sites More sharing options...
Guest Zangado Posted April 27, 2017 Share Posted April 27, 2017 (edited) 7 minutos atrás, O Programador disse: CARA EU SOU ESTUDANTE DE PROGRAMAÇÃO, APANHEI PRA CARAMBA PRA FAZER ESSE SIMPLES CODIGO, E COMO EU FIQUEI FELIZ PRA CARAMBA POR DESENVOLVELO EU COMPARTILHEI COM TODO MUNDO É A MINHA PRIMEIRA CRIAÇÃO KKKKK. EU NÃO TENHO EXPERIÊNCIA NENHUMA, MAS VOU LEVAR SUA CRITICA COMO CONSTRUTIVA, VALEU. eu entendo como ficamos quando estamo aprendendo e conseguimos montar algo funcional a minha explicação foi pela acusação do coelho maluco mas acho que seria bom vc começar já com uma linguagem mas forte como o C ou outra mais facil ipo eu comecei no vba e estou preso na facilidade e não consigo ir para outra pode parecer que essa é mais simples por ter comando em português mas apenas torna mais dificil ir para outra aprenda a usar arrays isso vai facilitar a escrita de seus codigos e tornar muito mais rapido e eficiente Edited April 27, 2017 by Zangado Quote Link to comment Share on other sites More sharing options...
Guest Pitaco_certo! Posted April 27, 2017 Share Posted April 27, 2017 (edited) 29 minutos atrás, O Programador disse: GALERA CALMA A SENHA É 1234 (COLOQUEI SENHA SÓ PRA CERTIFICAR QUE EU TAVA COMEÇANDO DE NOVO OUTROS TESTES). O VISULAG É UM PROGRAMA PRA FAZER CODIGOS EM PROGRAMAÇÃO, O QUE EU FIZ FOI FAZER UM CODIGO DENTRO DELE, QUE ME AJUDASSE A FAZER CALCULOS MAIS RAPIDO COMO NO COLOGA, SE TEM VIRUS, VCS PODEM BAIXAR ELE DO PROPRIO DESENVOLVEDOR GRATIS, SÓ ESCREVER VISULAG NO GOOGLE. VOU FAZER O VIDEO EXPLICANDO O ESQUEMA ESQUEÇAM ESSE NEGOCIO DE VIRUS. DAQUI A POUCO POSTO O VIDEO OK, AI QUEM QUISER COLABORAR FIQUE A VONTADE. NO PROGRAMA VAI PEDIR A SENHA(1234) AI NO ARQUIVO PROJETO_FORUM_1_JOGO, VAI PEDIR O CONCURSO, VC DIGITA OS NUMEROS DO SORTEIO. AI O PROGRAMA TE MOSTRA A QUANTIDADE DE DEZENA QUE SAIU EM CADA GRUPO SÓ ISSO. NO ARQUIVO PROJETO_FORUM_3_JOGOS, VC DIGITA 3 CONCURSOS SEGUIDO (TIPO 1, 2, 3) AI VAI SERVIR DE BASE PARA O 4° CONCURSO. NO ARQUIVO 12 DIVISÕES É APENAS OS GRUPOS. Programador; Eu gosto muito de trabalhar em projetos iniciais; Fornecendo feedback; Aqui parece que temos um bug, ecapando da tela temos o mesmo rodando perfeitamente; Depois de escapar da tela, funciona perfeitamente; Aqui tudo bem, vou para o arquivo 2! Att, Edited April 27, 2017 by Pitaco_certo! Quote Link to comment Share on other sites More sharing options...
Neguin Posted April 27, 2017 Share Posted April 27, 2017 Boa tarde, Você teria como adaptar para a lotofácil ou outra loteria??? Abraços. Quote Link to comment Share on other sites More sharing options...
BigMax Posted April 27, 2017 Share Posted April 27, 2017 Citar Crazy Rabbit Vc está prestando um serviço a toda comunidade. Avisar que achou virus em um arquivo é útil para todos. Obrigado por testar e avisar. 1 Quote Link to comment Share on other sites More sharing options...
Guest Zangado Posted April 27, 2017 Share Posted April 27, 2017 48 minutos atrás, Crazy Rabbit disse: Então refaça, pois acusou o vírus novamente, não fui a fundo, pois era 05:30 horas da manhã e estava com sono, simplesmente passei o combofix para retirar. Portanto, há vírus e não sei o tão nocivo que é, se veio da máquina dele junto, mas de qualquer forma, há alguma coisa, mas cada um sabe de sua vida e eu tentei apenas alertar. Todos podem colocar o arquivo para análise, vai dar vírus em 56 antivírus. TOTALMENTE INFECTADO, NUNCA VI UM ARQUIVO ACUSAR EM 56 ANTIVÍRUS https://www.virustotal.com/pt/file/af5e201cab173eb7af827b222b96bfeec5cf0d8ccea6940b2e2de5c3882b4e14/analysis/1493314295/ Não vou mais avisar de vírus para ninguém, pois estou apenas fazendo um favor a todos os forenses e ainda Crazy Rabbit bem, eu nem baixei, como tbm não tenho baixado as planilhas e não é pq elas tbm pode ter viros , sim cada um tem que saber oq faz com sua maquina já que nem sempre vai ter um coelho de plantão para testar antes isso bm vale par planilhas e programas lotericos mas de qualquer forma tá aí os codigos que o cara fez , para aprender a programar é valido, mas para loteria esse tipo de estratégia acho mais ´pratico usar o excel "tenho que trocar o teclado urgente" algoritmo "semnome" arquivo "concurso1755.txt" var resp: caractere senha, login: inteiro v: vetor [1..20] de inteiro m: vetor [0..3] de inteiro n: vetor [1..20] de caractere c, i,j, sA,sB,sC,sD,s1,s2,s3,s4,s5,s6,s7,s8: inteiro a1,a2,a3,a4,a5,a6,a7,a8,a9: inteiro b1,b2,b3,b4,b5,b6,b7,b8,b9: inteiro c1,c2,c3,c4,c5,c6,c7,c8,c9: inteiro d1,d2,d3,d4,d5,d6,d7,d8,d9: inteiro f1,f2,f3,f4,f5,f6,f7,f8: inteiro g1,g2,g3,g4,g5,g6,g7,g8: inteiro h1,h2,h3,h4,h5,h6,h7,h8: inteiro i1,i2,i3,i4,i5,i6,i7,i8: inteiro j1,j2,j3,j4,j5,j6,j7,j8: inteiro l1,l2,l3,l4,l5,l6,l7,l8: inteiro m1,m2,m3,m4,m5,m6,m7,m8: inteiro n1,n2,n3,n4,n5,n6,n7,n8: inteiro procedimento Topo() inicio Escreval(" ") senha <- 1234 Escreva (". senha: ") Leia (login) Enquanto (login <> senha) faca LimpaTela Topo() FimEnquanto FimProcedimento inicio Topo() LimpaTela a1 <- 01 a2 <- 14 a3 <- 25 a4 <- 38 a5 <- 49 a6 <- 61 a7 <- 74 a8 <- 85 a9 <- 98 b1 <- 03 b2 <- 16 b3 <- 27 b4 <- 40 b5 <- 52 b6 <- 63 b7 <- 76 b8 <- 87 b9 <- 00 f1 <- 05 f2 <- 18 f3 <- 29 f4 <- 41 f5 <- 54 f6 <- 65 f7 <- 78 f8 <- 98 g1 <- 07 g2 <- 09 g3 <- 20 g4 <- 21 g5 <- 32 g6 <- 34 g7 <- 43 g8 <- 45 h1 <- 12 h2 <- 23 h3 <- 36 h4 <- 47 h5 <- 60 h6 <- 72 h7 <- 83 h8 <- 96 i1 <- 56 i2 <- 58 i3 <- 67 i4 <- 69 i5 <- 80 i6 <- 81 i7 <- 92 i8 <- 94 c1 <- 02 c2 <- 13 c3 <- 26 c4 <- 37 c5 <- 50 c6 <- 62 c7 <- 73 c8 <- 86 c9 <- 97 d1 <- 04 d2 <- 15 d3 <- 28 d4 <- 39 d5 <- 51 d6 <- 64 d7 <- 75 d8 <- 88 d9 <- 99 j1 <- 06 j2 <- 17 j3 <- 30 j4 <- 42 j5 <- 53 j6 <- 66 j7 <- 77 j8 <- 90 l1 <- 08 l2 <- 10 l3 <- 19 l4 <- 22 l5 <- 31 l6 <- 33 l7 <- 44 l8 <- 46 m1 <- 11 m2 <- 24 m3 <- 35 m4 <- 48 m5 <- 59 m6 <- 71 m7 <- 84 m8 <- 95 n1 <- 55 n2 <- 57 n3 <- 68 n4 <- 70 n5 <- 79 n6 <- 82 n7 <- 91 n8 <- 93 i <- 0 sA <- 0 sB <- 0 sC <- 0 sD <- 0 Escreval("") Escreval("") Escreva(". digite o concurso :") leia(m[j]) Repita Para i <- 1 ate 1 faca LimpaTela Escreval(" --------------------------------------------") Escreval(" Digite os Números do Sorteio") Escreval("") Escreva("concurso: ",m[j]) m[j] <- m[j] + 1 Escreval("") Escreval("") Para c <- 1 ate 20 faca Escreva("Digite o ",c , "° : ") Leia (v[c]) Se (v[c]=a1)ou(v[c]=a2)ou(v[c]=a3)ou(v[c]=a4)ou(v[c]=a5)ou(v[c]=a6)ou(v[c]=a7)ou(v[c]=a8)ou(v[c]=a9) entao n[c] <- ("A") sA <- sA + 1 senao Se (v[c]=b1)ou(v[c]=b2)ou(v[c]=b3)ou(v[c]=b4)ou(v[c]=b5)ou(v[c]=b6)ou(v[c]=b7)ou(v[c]=b8)ou(v[c]=b9) entao n[c] <- ("B") sB <- sB + 1 senao Se (v[c]=c1)ou(v[c]=c2)ou(v[c]=c3)ou(v[c]=c4)ou(v[c]=c5)ou(v[c]=c6)ou(v[c]=c7)ou(v[c]=c8)ou(v[c]=c9) entao n[c] <-("C") sC <- sC + 1 senao Se (v[c]=d1)ou(v[c]=d2)ou(v[c]=d3)ou(v[c]=d4)ou(v[c]=d5)ou(v[c]=d6)ou(v[c]=d7)ou(v[c]=d8)ou(v[c]=d9) entao n[c] <-("D") sD <- sD + 1 senao Se (v[c]=f1)ou(v[c]=f2)ou(v[c]=f3)ou(v[c]=f4)ou(v[c]=f5)ou(v[c]=f6)ou(v[c]=f7)ou(v[c]=f8) entao n[c] <-("1") s1 <- s1 + 1 senao Se (v[c]=g1)ou(v[c]=g2)ou(v[c]=g3)ou(v[c]=g4)ou(v[c]=g5)ou(v[c]=g6)ou(v[c]=g7)ou(v[c]=g8) entao n[c] <-("2") s2 <- s2 + 1 senao Se (v[c]=h1)ou(v[c]=h2)ou(v[c]=h3)ou(v[c]=h4)ou(v[c]=h5)ou(v[c]=h6)ou(v[c]=h7)ou(v[c]=h8) entao n[c] <-("3") s3 <- s3 + 1 senao Se (v[c]=i1)ou(v[c]=i2)ou(v[c]=i3)ou(v[c]=i4)ou(v[c]=i5)ou(v[c]=i6)ou(v[c]=i7)ou(v[c]=i8) entao n[c] <-("4") s4 <- s4 + 1 senao Se (v[c]=j1)ou(v[c]=j2)ou(v[c]=j3)ou(v[c]=j4)ou(v[c]=j5)ou(v[c]=j6)ou(v[c]=j7)ou(v[c]=j8) entao n[c] <-("5") s5 <- s5 + 1 senao Se (v[c]=l1)ou(v[c]=l2)ou(v[c]=l3)ou(v[c]=l4)ou(v[c]=l5)ou(v[c]=l6)ou(v[c]=l7)ou(v[c]=l8) entao n[c] <-("6") s6 <- s6 + 1 senao Se (v[c]=m1)ou(v[c]=m2)ou(v[c]=m3)ou(v[c]=m4)ou(v[c]=m5)ou(v[c]=m6)ou(v[c]=m7)ou(v[c]=m8) entao n[c] <-("7") s7 <- s7 + 1 senao Se (v[c]=n1)ou(v[c]=n2)ou(v[c]=n3)ou(v[c]=n4)ou(v[c]=n5)ou(v[c]=n6)ou(v[c]=n7)ou(v[c]=n8) entao n[c] <-("8") s8 <- s8 + 1 FimSe FimSe FimSe FimSe FimSe FimSe FimSe FimSe FimSe FimSe FimSe FimSe FimPara FimPara LimpaTela Escreval (" .A = ", sA) Escreval (" .B = ", sB) Escreval (" .C = ", sC) Escreval (" .D = ", sD) Escreval ("") Escreval (" .1 = ", s1) Escreval (" .2 = ", s2) Escreval (" .3 = ", s3) Escreval (" .4 = ", s4) Escreval ("") Escreval (" .5 = ", s5) Escreval (" .6 = ", s6) Escreval (" .7 = ", s7) Escreval (" .8 = ", s8) EscrevaL ("") Escreval (" CONCURSO :",(m[j] - 1)) EscrevaL ("") Escreval (" ",n[1],n[2],n[3],n[4],n[5],n[6],n[7],n[8],n[9],n[10],n[11],n[12],n[13],n[14],n[15],n[16],n[17],n[18],n[19],n[20]) EscrevaL ("") Escreva (" QUER CONTINUAR? [S/N] : ") Leia (resp) Ate(resp = "N") Escreval ("") Escreval ("") Escreval ("") fimalgoritmo algoritmo "semnome" arquivo "concurso1.txt" var resp: caractere senha, login: inteiro v: vetor [1..20] de inteiro m: vetor [0..3] de inteiro n: vetor [1..20] de caractere c, i,j, sA,sB,sC,sD,s1,s2,s3,s4,s5,s6,s7,s8: inteiro a1,a2,a3,a4,a5,a6,a7,a8,a9: inteiro b1,b2,b3,b4,b5,b6,b7,b8,b9: inteiro c1,c2,c3,c4,c5,c6,c7,c8,c9: inteiro d1,d2,d3,d4,d5,d6,d7,d8,d9: inteiro f1,f2,f3,f4,f5,f6,f7,f8: inteiro g1,g2,g3,g4,g5,g6,g7,g8: inteiro h1,h2,h3,h4,h5,h6,h7,h8: inteiro i1,i2,i3,i4,i5,i6,i7,i8: inteiro j1,j2,j3,j4,j5,j6,j7,j8: inteiro l1,l2,l3,l4,l5,l6,l7,l8: inteiro m1,m2,m3,m4,m5,m6,m7,m8: inteiro n1,n2,n3,n4,n5,n6,n7,n8: inteiro procedimento Topo() inicio Escreval(" ") senha <- 1234 Escreva (". senha: ") Leia (login) Enquanto (login <> senha) faca LimpaTela Topo() FimEnquanto FimProcedimento inicio Topo() LimpaTela a1 <- 01 a2 <- 14 a3 <- 25 a4 <- 38 a5 <- 49 a6 <- 61 a7 <- 74 a8 <- 85 a9 <- 98 b1 <- 03 b2 <- 16 b3 <- 27 b4 <- 40 b5 <- 52 b6 <- 63 b7 <- 76 b8 <- 87 b9 <- 00 f1 <- 05 f2 <- 18 f3 <- 29 f4 <- 41 f5 <- 54 f6 <- 65 f7 <- 78 f8 <- 98 g1 <- 07 g2 <- 09 g3 <- 20 g4 <- 21 g5 <- 32 g6 <- 34 g7 <- 43 g8 <- 45 h1 <- 12 h2 <- 23 h3 <- 36 h4 <- 47 h5 <- 60 h6 <- 72 h7 <- 83 h8 <- 96 i1 <- 56 i2 <- 58 i3 <- 67 i4 <- 69 i5 <- 80 i6 <- 81 i7 <- 92 i8 <- 94 c1 <- 02 c2 <- 13 c3 <- 26 c4 <- 37 c5 <- 50 c6 <- 62 c7 <- 73 c8 <- 86 c9 <- 97 d1 <- 04 d2 <- 15 d3 <- 28 d4 <- 39 d5 <- 51 d6 <- 64 d7 <- 75 d8 <- 88 d9 <- 99 j1 <- 06 j2 <- 17 j3 <- 30 j4 <- 42 j5 <- 53 j6 <- 66 j7 <- 77 j8 <- 90 l1 <- 08 l2 <- 10 l3 <- 19 l4 <- 22 l5 <- 31 l6 <- 33 l7 <- 44 l8 <- 46 m1 <- 11 m2 <- 24 m3 <- 35 m4 <- 48 m5 <- 59 m6 <- 71 m7 <- 84 m8 <- 95 n1 <- 55 n2 <- 57 n3 <- 68 n4 <- 70 n5 <- 79 n6 <- 82 n7 <- 91 n8 <- 93 i <- 0 sA <- 0 sB <- 0 sC <- 0 sD <- 0 Escreval("") Escreval("") Escreva(". digite o concurso :") leia(m[j]) Repita Para i <- 0 ate 2 faca LimpaTela Escreval(" --------------------------------------------") Escreval(" Digite os Números do Sorteio") Escreval("") Escreva("concurso: ",m[j]) m[j] <- m[j] + 1 Escreval("") Escreval("") Para c <- 1 ate 20 faca Escreva("Digite o ",c , "° : ") Leia (v[c]) Se (v[c]=a1)ou(v[c]=a2)ou(v[c]=a3)ou(v[c]=a4)ou(v[c]=a5)ou(v[c]=a6)ou(v[c]=a7)ou(v[c]=a8)ou(v[c]=a9) entao n[c] <- ("A") sA <- sA + 1 senao Se (v[c]=b1)ou(v[c]=b2)ou(v[c]=b3)ou(v[c]=b4)ou(v[c]=b5)ou(v[c]=b6)ou(v[c]=b7)ou(v[c]=b8)ou(v[c]=b9) entao n[c] <- ("B") sB <- sB + 1 senao Se (v[c]=c1)ou(v[c]=c2)ou(v[c]=c3)ou(v[c]=c4)ou(v[c]=c5)ou(v[c]=c6)ou(v[c]=c7)ou(v[c]=c8)ou(v[c]=c9) entao n[c] <-("C") sC <- sC + 1 senao Se (v[c]=d1)ou(v[c]=d2)ou(v[c]=d3)ou(v[c]=d4)ou(v[c]=d5)ou(v[c]=d6)ou(v[c]=d7)ou(v[c]=d8)ou(v[c]=d9) entao n[c] <-("D") sD <- sD + 1 senao Se (v[c]=f1)ou(v[c]=f2)ou(v[c]=f3)ou(v[c]=f4)ou(v[c]=f5)ou(v[c]=f6)ou(v[c]=f7)ou(v[c]=f8) entao n[c] <-("1") s1 <- s1 + 1 senao Se (v[c]=g1)ou(v[c]=g2)ou(v[c]=g3)ou(v[c]=g4)ou(v[c]=g5)ou(v[c]=g6)ou(v[c]=g7)ou(v[c]=g8) entao n[c] <-("2") s2 <- s2 + 1 senao Se (v[c]=h1)ou(v[c]=h2)ou(v[c]=h3)ou(v[c]=h4)ou(v[c]=h5)ou(v[c]=h6)ou(v[c]=h7)ou(v[c]=h8) entao n[c] <-("3") s3 <- s3 + 1 senao Se (v[c]=i1)ou(v[c]=i2)ou(v[c]=i3)ou(v[c]=i4)ou(v[c]=i5)ou(v[c]=i6)ou(v[c]=i7)ou(v[c]=i8) entao n[c] <-("4") s4 <- s4 + 1 senao Se (v[c]=j1)ou(v[c]=j2)ou(v[c]=j3)ou(v[c]=j4)ou(v[c]=j5)ou(v[c]=j6)ou(v[c]=j7)ou(v[c]=j8) entao n[c] <-("5") s5 <- s5 + 1 senao Se (v[c]=l1)ou(v[c]=l2)ou(v[c]=l3)ou(v[c]=l4)ou(v[c]=l5)ou(v[c]=l6)ou(v[c]=l7)ou(v[c]=l8) entao n[c] <-("6") s6 <- s6 + 1 senao Se (v[c]=m1)ou(v[c]=m2)ou(v[c]=m3)ou(v[c]=m4)ou(v[c]=m5)ou(v[c]=m6)ou(v[c]=m7)ou(v[c]=m8) entao n[c] <-("7") s7 <- s7 + 1 senao Se (v[c]=n1)ou(v[c]=n2)ou(v[c]=n3)ou(v[c]=n4)ou(v[c]=n5)ou(v[c]=n6)ou(v[c]=n7)ou(v[c]=n8) entao n[c] <-("8") s8 <- s8 + 1 FimSe FimSe FimSe FimSe FimSe FimSe FimSe FimSe FimSe FimSe FimSe FimSe FimPara FimPara LimpaTela Escreval (" .A = ", sA) Escreval (" .B = ", sB) Escreval (" .C = ", sC) Escreval (" .D = ", sD) Escreval ("") Escreval (" .1 = ", s1) Escreval (" .2 = ", s2) Escreval (" .3 = ", s3) Escreval (" .4 = ", s4) Escreval ("") Escreval (" .5 = ", s5) Escreval (" .6 = ", s6) Escreval (" .7 = ", s7) Escreval (" .8 = ", s8) EscrevaL ("") Escreval (" CONCURSO :",(m[j] - 3), " AO CONCURSO :",(m[j]- 1)) EscrevaL ("") Escreval (" ",n[1],n[2],n[3],n[4],n[5],n[6],n[7],n[8],n[9],n[10],n[11],n[12],n[13],n[14],n[15],n[16],n[17],n[18],n[19],n[20]) EscrevaL ("") Escreva (" QUER CONTINUAR? [S/N] : ") Leia (resp) Ate(resp = "N") Escreval ("") Escreval ("") Escreval ("") fimalgoritmo Quote Link to comment Share on other sites More sharing options...
O Programador Posted April 27, 2017 Author Share Posted April 27, 2017 SEGUE O VIDEO DO ESQUEMA, DESCULPA A QUALIDADE POIS GRAVEI COM MEU CELULAR MESMO POIS EU TINHA PROMETIDO FAZER O VIDEO ENTÃO FIZ ASSIM. DEPOIS COM MAIS TEMPO FAÇO COM MAIS QUALIDADE E GRAVADO DIRETO DA TELA. VALEU Quote Link to comment Share on other sites More sharing options...
O Programador Posted April 27, 2017 Author Share Posted April 27, 2017 ESSAS SÃO AS COMBINAÇÕES POSSIVEIS NESSE ESQUEMA TIRAMOS OS PILARES SÓ AS COMBINAÇÕES FEITAS COM OS NUMEROS. CADA NUMERO TEM 8 DEZENAS AI FICA 8X4=32 DEZENAS MAIS 2 PILARES EU INDICO FAZER COM MAIS 1 NUMERO DE COMBINAÇÃO. DEPOIS FAZ O DESDOBRAMENTO SIMPLES USANDO O COLOGA. 1234 1235 1236 1237 1238 1245 1246 1247 1248 1256 1257 1258 1267 1268 1278 1345 1346 1347 1348 1356 1357 1358 1367 1368 1378 1456 1457 1458 1467 1468 1478 1567 1568 1578 1678 2345 2346 2347 2348 2356 2357 2358 2367 2368 2378 2456 2457 2458 2467 2468 2478 2567 2568 2578 2678 3456 3457 3458 3467 3468 3478 3567 3568 3578 3678 4567 4568 4578 4678 5678 1 Quote Link to comment Share on other sites More sharing options...
O Programador Posted April 27, 2017 Author Share Posted April 27, 2017 valeu entendi o recado Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.