Prophétisateur de messages secrets dans les livres bibliques

Télécharger le projet
Commenter

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
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

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.

Du même auteur (cs_caux)