Prophétisateur de messages secrets dans les livres bibliques

0/5 (24 avis)

Vue 12 281 fois - Téléchargée 453 fois

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 / Exemple :


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

Codes Sources

A voir également

Ajouter un commentaire Commentaires
cs_Warny Messages postés 473 Date d'inscription mercredi 7 août 2002 Statut Membre Dernière intervention 10 juin 2015
25 mai 2007 à 16:43
Renfield -> oui, mais tu ne le saura qu'après qu'ils aient été tirés.
cs_EBArtSoft Messages postés 4525 Date d'inscription dimanche 29 septembre 2002 Statut Modérateur Dernière intervention 22 avril 2019 9
25 mai 2007 à 16:40
En meme temps si on prend tout les mots du dictionnaire on arrive a faire des phrases...

Signe du destin ?
Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 71
25 mai 2007 à 13:51
quel texte je dois prendre pour avoir les numéros de l'euromillions ? (ou le nom des bourrins dans la 5ème à Auteuil ?)

Ok, je sors.
cs_Patrice99 Messages postés 1221 Date d'inscription jeudi 23 août 2001 Statut Membre Dernière intervention 9 septembre 2018
19 nov. 2005 à 10:32
161. ENCYCLOPÉDIE

CONTE : Les mots "conte" et "compte" ont, en français, la même prononciation. Or, on constate que cette correspondance entre chiffres et lettres existe pratiquement dans toutes les langues. Compter des mots ou conter des chiffres, où est la différence ? En anglais, compter : to count ; conter : to recount. En allemand, compter : zahlen ; conter : erzâhlen. En hébreu, conter : le saper ; compter : li saper. En chinois, compter : shu ; conter : shu.
Chiffres et lettres sont unis depuis les balbutiements du langage. Chaque lettre correspond à un chiffre, chaque chiffre à une lettre. Les Hébreux l'ont compris dès l'Antiquité et c'est pourquoi la Bible est un livre magique et rempli de connaissances scientifiques, présentées sous forme de contes codés. Si on donne leur valeur numérique aux premières lettres de chaque phrase, on découvre un premier sens caché. Si on donne leur valeur numérique aux lettres des mots, on découvre des formules et des associations qui n'ont plus rien à voir avec les légendes ou avec la religion.

Edmond Wells, Encyclopédie du savoir relatif et absolu, tome II. (Le jour des fourmis p. 369 : Bernard Werber)
Utilisateur anonyme
10 nov. 2005 à 05:21
va voir là:
http://cauxprod.ifrance.com

dans la rubrique logiciel tu trouvera le prophetisateur 2 + un dico français+ toutes les bibles du second testaments pour t'entrainer.

Cau'X
Afficher les 24 commentaires

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.