|
Trouver une ressource
Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !
PROPHÉTISATEUR DE MESSAGES SECRETS DANS LES LIVRES BIBLIQUES
Information sur la source
Description
extrait du texte qui m'a donné l'idéé de programmer ce code: Le code secret fonctionne d'une façon spéciale : on place le texte biblique dans une grille séquentielle : chaque lettre occupe une case, il n'y a pas de ponctuation, ni d'espace. Puis, on programme l'ordinateur pour qu'il réalise des sélections de lettres à intervalles réguliers : une lettre choisie toutes les 50 cases = code 50 ; une lettre choisie toutes les 26 cases = code 26. Les calculs sont infinis. Car on peut appliquer autant de codes que l'on veut à autant de portions souhaitées du texte biblique. Seul l'ordinateur permet ces calculs époustouflants. Les chercheurs israëliens ont appliqué ces méthodes à la Bible et ont publié des résultats troublants, dont nous donnons ici deux exemples parmi des dizaines d'autres : • Evocation de la Shoa : le code 153 appliqué au texte de Ge 10:9-26 ("Nemrod fut un grand chasseur devant l'Eternel") donnerait les mots "Allemagne", "Berlin", "adversaire", "nazi", "Hitler", "roi féroce" et "assassin". En Ge 8:20, apparaîtrait l'expression "il les extermine" et "carnage". • Evocation de la Bastille : à travers des tableaux basés sur le texte de la Genèse chapitres 38 à 44, les chercheurs ont trouvé les expressions "Louis", "France une révolution", "Bastille", "convention", "le sang du roi Louis", etc.
Source
- Dim tout As String
- Dim traitement As String
- Dim converti As String
- Dim tableau
-
-
- Private Sub Command1_Click()
- '------------------------------------------------------------
- ' CHARGEMENT DU FICHIER
- '------------------------------------------------------------
-
- cmd.DialogTitle = "choisissez un fichier"
- On Error GoTo annuler
- cmd.ShowOpen
- Label2.Caption = cmd.FileName
- GoTo suite
- annuler:
- Label2.Caption = "pas de fichier charger"
- suite:
- On Error Resume Next
- crlf = Chr$(13) + Chr$(10)
- Open cmd.FileName For Input As #1
- Line Input #1, texte
- tout = texte
- If Len(tout) <> 0 Then
- While Not EOF(1)
- Line Input #1, texte
- tout = tout + texte
- Wend
- End If
- Text1.Text = tout
- Text2.Text = ""
- Label6.Caption = "FICHIER CHARGER ET NON CONVERTI"
- Close #1
- Text4.Text = Len(tout)
- End Sub
-
- Private Sub Command2_Click()
- '--------------------------------------------------------------
- ' CONVERSION DU FICHIER
- '--------------------------------------------------------------
- If tout = "rien" Then GoTo absent Else
-
- traitement = tout
- traitement = Replace(traitement, ",", "", 1, -1, vbTextCompare)
- traitement = Replace(traitement, ".", "", 1, -1, vbTextCompare)
- traitement = Replace(traitement, ":", "", 1, -1, vbTextCompare)
- traitement = Replace(traitement, ";", "", 1, -1, vbTextCompare)
- traitement = Replace(traitement, "!", "", 1, -1, vbTextCompare)
- traitement = Replace(traitement, "'", "", 1, -1, vbTextCompare)
- traitement = Replace(traitement, "(", "", 1, -1, vbTextCompare)
- traitement = Replace(traitement, ")", "", 1, -1, vbTextCompare)
- traitement = Replace(traitement, "?", "", 1, -1, vbTextCompare)
- traitement = Replace(traitement, "-", "", 1, -1, vbTextCompare)
- traitement = Replace(traitement, "/", "", 1, -1, vbTextCompare)
- traitement = Replace(traitement, " ", "", 1, -1, vbTextCompare)
- Text1.Text = traitement
- converti = traitement
- Label6.Caption = "FICHIER CONVERTI"
- Label6.ForeColor = &HFF0000
- Label3.Caption = "opération éffectuée"
- Label3.ForeColor = &HFF0000
- Text5.Text = Len(converti)
- GoTo suite2
- absent:
- Label6.Caption = "PAS DE FICHIER SOURCE"
- suite2:
- End Sub
-
- Private Sub Command3_Click()
- '---------------------------------------------------------------------
- ' TRAITEMENT DU FICHIER CONVERTI
- '---------------------------------------------------------------------
- Dim code As Double
- Dim resul As String
- Dim reponse As String
-
- code = Text3.Text
- ' routine pour metre le fichier converti dans un tableau
- ReDim tableau(Len(converti))
- For i = 1 To Len(converti)
- tableau(i) = Asc(Mid(converti, i, 1))
- Next
-
- reponse = ""
- codec = code
- y = Len(converti) / code
- ' routine pour rechercher tout les n caracteres
- For a = 1 To y
- resul = Chr(tableau(codec)) ' conversion du numero de caractère vers le caractère
- reponse = reponse + resul
- codec = codec + code
- Next
- Text2.Text = reponse
- Text6.Text = Len(reponse)
- End Sub
-
- Private Sub Command4_Click()
- '--------------------------------------------------------------------
- ' ENREGISTREMENT DU FICHIER
- '--------------------------------------------------------------------
- cmd.DialogTitle = "enregistrer le résulta sous..."
- cmd.Filter = "TXT (*.TXT) |*.TXT "
- cmd.FilterIndex = 1
- cmd.FileName = "résultat.txt"
- cmd.ShowSave
-
- Open cmd.FileName For Output As #1
- Print #1, Text2.Text
- Close #1
- Label8.Caption = "RESULTAT ENREGISTRE"
- Label8.ForeColor = &HFF0000
-
- End Sub
-
- Private Sub Command5_Click()
- '----------------------------------------------------------------------
- ' BOUTON QUITTER
- '----------------------------------------------------------------------
- End
- End Sub
-
- Private Sub Form_Load()
- '---------------------------------------------------------------------
- ' CHARGEMENT AU DEPART DU PROGRAMME
- '---------------------------------------------------------------------
- tout = "rien"
- crlf = Chr$(13) + Chr$(10)
- converti = "vous n'avez pas chargé de fichier source" + crlf + "ou vous ne l'avez pas converti" + crlf + " Veuillez respecter l'ordre des étapes"
-
- End Sub
Dim tout As String
Dim traitement As String
Dim converti As String
Dim tableau
Private Sub Command1_Click()
'------------------------------------------------------------
' CHARGEMENT DU FICHIER
'------------------------------------------------------------
cmd.DialogTitle = "choisissez un fichier"
On Error GoTo annuler
cmd.ShowOpen
Label2.Caption = cmd.FileName
GoTo suite
annuler:
Label2.Caption = "pas de fichier charger"
suite:
On Error Resume Next
crlf = Chr$(13) + Chr$(10)
Open cmd.FileName For Input As #1
Line Input #1, texte
tout = texte
If Len(tout) <> 0 Then
While Not EOF(1)
Line Input #1, texte
tout = tout + texte
Wend
End If
Text1.Text = tout
Text2.Text = ""
Label6.Caption = "FICHIER CHARGER ET NON CONVERTI"
Close #1
Text4.Text = Len(tout)
End Sub
Private Sub Command2_Click()
'--------------------------------------------------------------
' CONVERSION DU FICHIER
'--------------------------------------------------------------
If tout = "rien" Then GoTo absent Else
traitement = tout
traitement = Replace(traitement, ",", "", 1, -1, vbTextCompare)
traitement = Replace(traitement, ".", "", 1, -1, vbTextCompare)
traitement = Replace(traitement, ":", "", 1, -1, vbTextCompare)
traitement = Replace(traitement, ";", "", 1, -1, vbTextCompare)
traitement = Replace(traitement, "!", "", 1, -1, vbTextCompare)
traitement = Replace(traitement, "'", "", 1, -1, vbTextCompare)
traitement = Replace(traitement, "(", "", 1, -1, vbTextCompare)
traitement = Replace(traitement, ")", "", 1, -1, vbTextCompare)
traitement = Replace(traitement, "?", "", 1, -1, vbTextCompare)
traitement = Replace(traitement, "-", "", 1, -1, vbTextCompare)
traitement = Replace(traitement, "/", "", 1, -1, vbTextCompare)
traitement = Replace(traitement, " ", "", 1, -1, vbTextCompare)
Text1.Text = traitement
converti = traitement
Label6.Caption = "FICHIER CONVERTI"
Label6.ForeColor = &HFF0000
Label3.Caption = "opération éffectuée"
Label3.ForeColor = &HFF0000
Text5.Text = Len(converti)
GoTo suite2
absent:
Label6.Caption = "PAS DE FICHIER SOURCE"
suite2:
End Sub
Private Sub Command3_Click()
'---------------------------------------------------------------------
' TRAITEMENT DU FICHIER CONVERTI
'---------------------------------------------------------------------
Dim code As Double
Dim resul As String
Dim reponse As String
code = Text3.Text
' routine pour metre le fichier converti dans un tableau
ReDim tableau(Len(converti))
For i = 1 To Len(converti)
tableau(i) = Asc(Mid(converti, i, 1))
Next
reponse = ""
codec = code
y = Len(converti) / code
' routine pour rechercher tout les n caracteres
For a = 1 To y
resul = Chr(tableau(codec)) ' conversion du numero de caractère vers le caractère
reponse = reponse + resul
codec = codec + code
Next
Text2.Text = reponse
Text6.Text = Len(reponse)
End Sub
Private Sub Command4_Click()
'--------------------------------------------------------------------
' ENREGISTREMENT DU FICHIER
'--------------------------------------------------------------------
cmd.DialogTitle = "enregistrer le résulta sous..."
cmd.Filter = "TXT (*.TXT) |*.TXT "
cmd.FilterIndex = 1
cmd.FileName = "résultat.txt"
cmd.ShowSave
Open cmd.FileName For Output As #1
Print #1, Text2.Text
Close #1
Label8.Caption = "RESULTAT ENREGISTRE"
Label8.ForeColor = &HFF0000
End Sub
Private Sub Command5_Click()
'----------------------------------------------------------------------
' BOUTON QUITTER
'----------------------------------------------------------------------
End
End Sub
Private Sub Form_Load()
'---------------------------------------------------------------------
' CHARGEMENT AU DEPART DU PROGRAMME
'---------------------------------------------------------------------
tout = "rien"
crlf = Chr$(13) + Chr$(10)
converti = "vous n'avez pas chargé de fichier source" + crlf + "ou vous ne l'avez pas converti" + crlf + " Veuillez respecter l'ordre des étapes"
End Sub
Conclusion
bon pour l'instant ce programme ne fonctionne qu'avec des fichiers textes (*.txt). j'aimerai dans une prochaine version pouvoir travailler avec d'autres format (word, pdf, ebook...), je voudrai aussi rajouter une recherche de mot automatique dans le résultat (en faisant un balaillage d'un dictionnaire par exemple) et que tout les mots connus apparaissenr d'une couleur différente. si cela vous intéresse contacté moi cauxprod@yahoo.fr
Fichier Zip
Pour les "Membres Club", vous pouvez télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !
Télécharger le zip
Historique
- 10 juillet 2005 20:16:51 :
- ajout du code source en fichier zip.
Sources du même auteur
Sources de la même categorie
Sources en rapport avec celle ci
Commentaires et avis
Discussions en rapport avec ce code source dans le forum
Drawtext et ses secrets [ par neurosupherot ]
Bonjour, j'ai choppé une api sympa qui est drawtext, qui peur etre très utile au lieu d'un label etc Par contre j'ai bcp de mal à m'en
VBA : envoie d'un mail texte simple... mais à + de 200 personnes !!! [ par Cybertat ]
Bonjour à tous, Je voudrais envoyer un email tout simple au format texte en utilisant MAPI. Mon code fonctionne parfaitement mais le souci, c'est qu'
VBA Excel : envoie d'un mail texte en mapi... mais à + de 200 personnes [ par Cybertat ]
Bonjour à tous, J'ai fait un code pour envoyer un mail texte tout simple en utilisant MAPI mais je dois l'envoyer à beaucoup de monde et j'ai le mess
Après exécution fichier php retour page blanche [ par Nace79 ]
Bonjour, J'ai résolu mon problème d'envoi de mon formulaire mais la je me retourve devant un autre petit problème.. Après avoir appuyer sur mon bout
Après exécution fichier php retour page blanche [ par Nace79 ]
Bonjour, J'ai résolu mon problème d'envoi de mon formulaire mais la je me retourve devant un autre petit problème.. Après avoir appuyer sur mon bout
MAPI et fichier joint [ par clementpat ]
Salut a tous , impossible d'envoyer un fichier joint avec mapije sait envoyer un fichier texte, mais il se trouve dans le texte du mail , par contre i
ouvrir plusieurs fichiers texte pour traitement et classement dans 1 bdd [ par The_Caveman ]
bonjour je suis plutôt nouveau sur ce site et je l'utilise depuis un certain tempts depuis qu'on ma demandé de creer une programme dans l'en
Detecter texte précis dans textbox [ par maxsecurite2 ]
Bonjour j'ai un textbox ou qu'il es écrit : "J'aime manger des appareils quand il fait beau et chaud" et j'aimerais dans un bouton afficher un ms
Convertir Fichier texte vers Unix [ par Becks ]
Salut,Je voudrais convertir un fichier texte au format Unix !! Donc changer le retour a la ligne. Je suis sous VB.Net !! Merci
Probleme pour tranferer du texte [ par rieuxg ]
Bonjour a tousBon ben comme d'hab j'ai un probleme:J'exporte des infos de plusieurs bd vers une seule puis je veux transferer le texte de celle-ci ver
|
Téléchargements
Logiciels à télécharger sur le même thème :
Comparez les prix Nouvelle version

HTC Touch HD
Entre 25€ et 605€
|