Criptazione tramite matrice

di il
5 risposte

Criptazione tramite matrice

Ciao Ragazzi
sono uno studente alle prese con la programmazione in visual basic, la prof questa volta si è divertita a darci un bel esercizio.
Ecco il testo del compito:
Un messaggio viene criptato inserendolo nel quadrante 4x5 in alto a sx di una matrice 8x10. Il quadrante viene specchiato nel quadrante 4x5 di dx e a questo punto si applica la simmetria orizzontale e si riempe tutta la matrice.
Il messaggio criptato si ottiene inviando i dati della matrice per colonna.
Vincoli: il messaggio deve avere lunghezza pari a 20 caratteri (spazi esclusi)

la mia testa ha creato questo listato:

Option Explicit
Dim V() As String
Dim F As String
Dim L As String
Dim C As String
Dim K As Double
Dim X As Integer
Dim I As Integer
Dim J As Integer
Dim M As Integer
Dim S As Integer
Dim Z As Integer



Private Sub Form_Load()
'Scrivo immissione testo da inserire
Do
F = InputBox(" INSERISCI FRASE ")
L = Len(F)
For K = 0 To L - 1
C = Mid(F, K, 1)
If C <> "0" Then
ReDim Preserve V(X)
V(X) = C
X = X + 1
End If
Next

'Scrivo vincolo <20

If X <> 20 Then
MsgBox ("Errore")
End If

'Fine Vincolo

' Continuazione programmazione se il vincolo è soddisfatto
'Matrice rettangolare di tipo 4x5

Loop Until X = 20
X = 0
For I = 0 To 3
For J = 0 To 4
M = V(X)
X = X + 1
Next
Next
S = 9
For I = 0 To 3
For J = 0 To 4
M(I, S) = M(I, J)
S = S - 1
Next

'Matrice rettangolare di tipo 8x10

S = 9
Next
Z = 7
For I = 0 To 7
For J = 0 To 9
M(Z, I) = M(I, J)
Z = Z - 1
Next
Z = 7
Next

'Scrivo Simmetria matriciale
For J = 0 To 9
For I = 0 To 7

'Risultato

T1_text = T1_text & M(I, J)

Next
Next
End Sub

ma non funziona uffa
grazie in anticipo a chi mi aiuta

5 Risposte

  • Re: Criptazione tramite matrice

    Al posto di "non funziona uffa" dovresti dire quali dati hai inserito ed esattamente cosa hai in output, ovvero dettagliare cosa non funziona.

    E poi sei sicuro di usare vb.net?

    P.S. Dovresti usare i tag code per il codice
  • Re: Criptazione tramite matrice

    Ciao
    Loop Until X = 20
    X = 0
    For I = 0 To 3
    For J = 0 To 4
    M = V(X)
    X = X + 1
    Next
    Next
    S = 9
    For I = 0 To 3
    For J = 0 To 4
    M(I, S) = M(I, J)
    S = S - 1
    Next
    qui mi da expected array, mi evidenzia la M
    Io uso visual basic 6.0
    grazie
  • Re: Criptazione tramite matrice

    Allora questa è la sezione sbagliata chiedi al moderatore di spostare il thread. Comunque M viene usata sia come variabile che come matrice... Decidi cosa deve essere
  • Re: Criptazione tramite matrice

    Ciao Oregon
    ho visto che mi stai inseguendo in tutta la rete comunque a perte gli scherzi... non so come si fa a fare quello che mi chiedi non sono molto esperto è la prima volta che mi affaccio sui forum, comunque io ho scritto su molti forum per velocizzare la cosa... scusa e fammi capire cosa devo fare grazie... scusa ancora
  • Re: Criptazione tramite matrice

    No, io ci stavo prima ... se tu che insegui.

    Ti ho già detto che M l'hai dichiarata come variabile semplice e la usi come matrice ... cosa mi dici?
Devi accedere o registrarti per scrivere nel forum
5 risposte