Funktion Teilerfremd

  • VB.NET

Es gibt 28 Antworten in diesem Thema. Der letzte Beitrag () ist von Mad Andy.

    Funktion Teilerfremd

    Hallo
    Ich habe eine Funktion geschrieben die von 3 Zahlen alle Teilerfremden in einem Wertebereich von 2 bis 1000 ausgibt
    Nur ich habe ein Problem es klappt nicht richtig^^

    Quellcode

    1. Private Function pubKey_e(ByVal teiler, ByVal primFI, ByVal primOne, ByVal primTwo)
    2. For c As Integer = 2 To 1000
    4. If Teilerfremd(teiler, primFI) = 1 And teiler <> primOne And teiler <> primTwo Then
    5. Console.Write(teiler)
    6. End If
    7. Next c
    8. End Function
    10. Private Function Teilerfremd(ByVal teiler, ByVal primFI)
    11. For c As Integer = 2 To primFI
    12. If teiler Mod c = primFI Mod c = 0 Then
    13. Return 0
    14. Else
    15. Return 1
    16. End If
    17. Next c
    18. End Function


    Ich bekomme immer nur die Zahl 2 Ausgegeben ich versuche seit heut morgen die Funktion zum laufen zu bringen aber vergeblich...
    Hoffe auf Hilfe
    Mfg

    Ich versteh die frage nicht ganz du meinst jetz die Funktion Teilerfremd?
    und ja es geht schon um Primzahlen das soll ein Consolepogramm werden das den eingegebenen Text mittels RSA-Verschlüsslung entschlüsselt
    Habe mir das in Python vorgeschrieben und das soll die VB üversetzung von dem python code hier sein

    Quellcode

    1. def Teilerfremd(a,b):
    2. for c in range(2,b):
    3. if a%c==b%c==0:
    4. return 0
    5. else:
    6. return 1

    Also wenn a Mod c = b Mod c= 0 ist dann gebe 0 zurück sonst 1

    Python ist wirklich die einzige Sprache, die ohne Tabs nicht lesbar ist ...

    Ich hab mich auch schon mal mit RSA gespielt, hab das leider nicht mehr wirklich im Kopf.
    Hab nicht viel Erfahrung mit Python, was macht range?

    a%c == b%c == 0 ist ein Doppelverlgeich, das gibts in VB nicht. Die Ergebnisse der Vergleiche muss man logisch verknüpen.
    if (a mod c = 0) and (b mod c = 0) then
    Die Klammern kann man eigentlich weglassen, find aber, dass mans besser lesen kann.

    k

    Dann müsste die For-Schleife stimmten.
    Abgesehen von dem Doppelvergleich sehe ich eigentlich keinen Fehler. Gibts ne Fehlermeldung?

    Hast du dir Python auf Windows installiert? Eigentlich hätte ich hier (Ubuntu) das Terminal auch selbst anwerfen können ^^

    Ja Python is bei mir auf Gentoo und Windoof drauf Visual Studio spuckt auch keinen fehler im Code aus ich bekomm einfach nicht das erhoffte ergebniss sondern nur den wert 2 :P
    Ich denke mal da ist irgendwo ein denkfehler drin aber ka wo

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Impi“ ()

    nene habe mir Windoof gebootet und das oben wa ein ausschnitt meines Quellcodes aus Eclips den ich jetz in VB übertragen möcht aber es haüüert halt an dieser Funktion

    Ich zeig euch mal den ganzen Quellcode meinen RSA-Consolen Programmes...

    VB.NET-Quellcode

    1. Module RSA
    3. Private primOne As Integer = 0
    4. Private primTwo As Integer = 0
    5. Private primFI As Integer = 0
    6. Private rsaE As Integer = 0
    7. Private rsaN As Integer = 0
    8. Private teiler As Integer = 2
    10. Sub Main()
    11. 'User Begrüßung
    12. SayHello()
    13. 'Hole Eingabewerte
    14. GetInputValues()
    15. 'Rechne
    16. rsaN = pubKey_n(primOne, primTwo)
    17. primFI = pubKey_fi(primOne, primTwo)
    18. 'Gibt mögliche Werte für E aus und nimmt diese auch entgegen
    19. rsaE = pubKey_e(teiler, primOne, primTwo, primFI)
    20. End Sub
    22. Private Sub SayHello()
    23. Console.WriteLine("Hallo und Willkommen zu RSA-Consol")
    24. Console.WriteLine("Copyright © 2008 Paul Becker")
    25. End Sub
    27. Private Function GetValue(ByVal Prompt As String) As String
    28. Console.Write(Prompt)
    29. Return Console.ReadLine
    30. End Function
    32. Private Sub GetInputValues()
    33. 'Hier holen wir und unsere Eingabewerte
    34. Console.WriteLine()
    35. primOne = CInt(GetValue("Geben Sie eine Primzahl ein: "))
    36. primTwo = CInt(GetValue("Geben Sie eine weitere Primzahl ein, diese darf mit der ersten Primzahl nicht identisch sein...: "))
    37. Console.WriteLine()
    38. End Sub
    40. Private Function pubKey_n(ByVal primOne, ByVal primTwo) As Integer
    41. 'Wir rechnen hier den ersten Teil des Öffentlichen Schlüssels
    42. Dim nReturn As Integer = (primOne) * (primTwo)
    43. Return nReturn
    44. End Function
    46. Private Function pubKey_fi(ByVal primOne, ByVal primTwo) As Integer
    47. 'Wir rechnen hier den zweiten Teil des Öffentlichen Schlüssels
    48. Dim fiReturn As Integer = (primOne - 1) * (primTwo - 1)
    49. Return fiReturn
    50. End Function
    52. Private Function pubKey_e(ByVal teiler, ByVal primFI, ByVal primOne, ByVal primTwo)
    53. For c As Integer = 1 To 1000
    55. If Teilerfremd(teiler, primFI) = 1 And teiler <> primOne And teiler <> primTwo Then
    56. Console.Write(teiler)
    57. End If
    58. Next c
    59. End Function
    61. Private Function Teilerfremd(ByVal teiler, ByVal primFI)
    62. For c As Integer = 1 To primFI
    63. If (teiler Mod c) = (primFI Mod c = 0) Then
    64. Return 0
    65. Else
    66. Return 1
    67. End If
    68. Next c
    69. End Function
    70. End Module


    Vlt wird das jetz ein bissel einschichtiger

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Mad Andy“ ()

    Ja in Python klappt das wunderbar

    Brainfuck-Quellcode

    1. from string import find, printable
    3. def Teilerfremd(a,b):
    4. for c in range(2,b):
    5. if a%c==b%c==0:
    6. return 0
    7. else:
    8. return 1
    10. def pubKey_n(seq):
    11. liste = list(seq)
    12. zahlen = [int(item)
    13. for item in liste]
    14. return reduce(lambda p,q: p*q, zahlen)
    16. def pubKey_fi(seq):
    17. liste = list(seq)
    18. zahlen = [int(item)
    19. for item in liste]
    20. return reduce(lambda p,q: (p-1)*(q-1), zahlen)
    23. print('----------------------------------------------------------------------------------------------------')
    24. print(' RSA ')
    25. print('----------------------------------------------------------------------------------------------------')
    26. p = raw_input("Geben Sie eine Primzahl ein: ")
    27. q = raw_input("Geben Sie eine weitere Primzahl ein... Achtung die Primzahlen d\xfcrfen nicht identisch sein!! :")
    29. print ('----------------------------------------------------------------------------------------------------')
    31. p = int(p)
    32. q = int(q)
    33. a = 2
    34. public_n = pubKey_n((p, q))
    35. public_fi = pubKey_fi((p, q))
    37. print("F\xfcr e kommen in Frage")
    38. while 1:
    39. if Teilerfremd(a,public_fi)==1 and a!=p and a!=q:
    40. print a,
    41. if a==1000:
    42. break
    43. a+=1
    45. print ("----------------------------------------------------------------------------------------------------")
    46. e = raw_input("Geben Sie e ein!: ")
    47. e = int(e)
    48. print ("----------------------------------------------------------------------------------------------------")
    50. d = 0
    51. while (e * d % public_fi)!=1:
    52. d+=1
    53. if d==e:
    54. d+=1
    56. print ("Daraus ergibt sich d: ")
    57. print ("d = "),d
    58. print ("--------------------------------------------------------------------------------------------------- ")
    59. text=raw_input("Geben Sie den Text ein:\n")
    60. for zeichen in text:
    61. print zeichen,":",find(printable,zeichen),"**",e,"%",n


    Das Programm in Python sollte als eine Art vorlage dienen ich mach das step by step als nächstes kommt dann eine Windows-Form-Application
    und es wir auch immermehr verfeinert

    terminal schrieb:

    a : 10 ** 973 %
    Traceback (most recent call last):
    File "./test.py", line 61, in <module>
    print zeichen,":",find(printable,zeichen),"**",e,"%",n
    NameError: name 'n' is not defined
    :P

    Kannst du die VB-Version mal debuggen (step-by-step) und schauen, wo der Fehler liegt? Ich find ihn einfach nicht :(

    habe ich schon gemacht er läuft ganz normal durch bis zum schluss ohne irgendnen fehler
    da muss was in der berechnung nicht stimmen der gibt nur schwachsinn aus :(
    Ich muss dazu sagen das der Python Code ein Q & D code is

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Impi“ ()

    Q & D = Quick & Dirty
    Ich suche den Fehler jetz seit über 10 stunden und mit zwei Variablen ist das auch garkein Problem aber mit 3 ist das echt schwer -.-
    Und der Python Code sollte nur eine Vorlage sein und meineserachtens habe ich das 1 zu 1 übernommen wüsste nicht wo da ein fehler ist die fehlende range funktion habe ich mit einer for schleife gelöst hmmm

    Ok habe den fehler gefunden der Zähler der For schleife in der Teilerfemd funktion Zählt nicht hoch... hmmm wie kann ich das lösen das die If funktion ihre arbeit macht aber dennoch das Next statment ausgeführt wird?
    Edit mit der step anweisung klappt es auch net hmm

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Impi“ ()

    Ahhh, ich seh das Problem...
    Versuch mal so:

    VB.NET-Quellcode

    1. Private Function Teilerfremd(ByVal teiler, ByVal primFI)
    2. For c As Integer = 1 To primFI
    3. If (teiler Mod c = 0) and (primFI Mod c = 0) Then
    4. Return 0
    5. End If
    6. Next c
    7. Return 1
    8. End Function


    Ich würde übrigens nicht mit 1 und 0 arbeiten, sondern mit true und false

    Dein If war auch falsch.
    (primFI Mod c = 0) liefert Boolean
    (teiler mod c) liefert Integer
    Und dann hast du nen Boolean mit em Integer verglichen, was sinngemäß falsch ist

    hö?
    Ich glaub es muss 2 to primFI sein, und nicht 1 to primFI.

    Das If aus deinem Python script soll ein Doppelvergleich sein, oder?
    Also wenn sich beide durch irgendwas zwischen 2 und primFI teilen lassen sind sie nicht Teilerfremd (return 0).
    Nur Wenn keine Zahl c der Menge [2...PrimFI] bei beiden als Teiler zählt, kommt das Programm unten zum Return 1

    Ich vermute, dass im 1er der Hund steckt.

Facebook
Telefonspende