תחומים - פורום חרדי מקצועי

@yossiz עברתי על הקישור ששלחת, וניסיתי והחזיר שגיאה ולאחר קריאה מעמיקה של הפוסט נכתב שם כך:
הערות על הקוד
חשוב. נמצא כי שגרות hash שגיאה בהגדרת Windows 10, 64 סיביות Office. עם זאת, בדיקה שלאחר מכן גילתה את הפתרון. פלטפורמת Windows חייבת לכלול את Net Framework 3.5 (כולל .Net 2 ו- .Net 3), גירסה ישנה זו, ולא רק את השירותים המתקדמים של Net Framework 4.8 שהופעלו בהפעלה וביטול של תכונות Windows. כאשר הוא נבחר שם, השגרה עבדה בצורה מושלמת.

קוד ה- VBA להלן יוצר את התקצירים עבור קודי hash MD5, SHA1, SHA2-256, SHA2-384 ו- SHA2-512, עבור מחרוזות, באחת מתבניות הפלט hex או base-64. קידודים אלה עושים שימוש בפונקציות המובנות של MS Office, ומספקים תוצאות עקביות. צוין כי יישומים מקוריים במקומות אחרים עבור אותם תקצירים יכולים להיות שונים מאוד בתפוקות שלהם. רק דוגמה אחת ניתנה עם פרמטר זרע או מלח (StrToSHA512Salt), ויש לציין כי פלט המחלקה HMACSHA512 שונה מגיבובי המחלקה SHAManaged שניתנו בשאר. הכיתות המנוהלות נותנות את התוצאות הטובות ביותר המדווחות באופן נרחב. שים לב להפניות VBA הדרושות לפעולה נכונה. תזכורת לכך ניתנת בכמה כותרות נהלים.*

בכל מקרה, מתכנתים יכולים למצוא את ערכי הגיבוב שלא השתנו במערך הבתים() ובנקודה זו הם נמצאים בבתים של 8 סיביות, כלומר, המספרים המייצגים את קוד ASCI כפי שהוא חל על ערכת שמונה סיביות מלאה, 256 תווים. הקוד שלאחר מילוי מערך הבתים() בכל אחד מהמקרים קובע איזו גירסה של ערכת תווי ASCI לספק. עבור ערכת תווים משושה, 0-9 ו- A עד F, ערכת הסיביות הכוללת מחולקת למספר כפול של ארבעה בתים, ולאחר מכן מוחזרת לשימוש. עבור קבוצת Base-64, אותיות קטנות, אותיות גדולות ומספרים שלמים בעיקר, תווים של שישה סיביות מיוצרים לפלט. שתי קבוצות אלה הן השימושיות ביותר כאן, שכן הן מורכבות מתווים נפוצים. ערכות ASCI 128 ו- 256 מלאות מדי בתווים אקזוטיים ולא מודפסים מכדי להיות שימושיים. עבור כל גרסת גיבוב ספירת הסיביות שלה היא קבועה, ולכן אורך הפלט שלה ישתנה בהתאם לסוג שנבחר.

וכפי שאני מבין אני צריך להיות מוגבל עם הקוד הזה שזה יעבוד רק למי שמותקן אצלו Net Framework 3.5 (כולל .Net 2 ו- .Net 3) שהיא גירסה ישנה ואני רוצה שיעבוד לכל מי שאני מביא לו את התוכנה (קודים מעין אלו הgpt הביא לי בכמויות...)

@yossiz אני יודע שיכול להיות שלא כתבתי מעולה..
אני הגעתי למצב שבו אני צריך לכתוב את זה כי כל קוד שקיבלתי מ gpt החזיר שגיאה ולא היה לי כח להתאמץ ולמעשה התייאשתי מלכתוב את הקוד כלל.
דא עקא יום אחד עלה לי רעיון בענין הזה וכך מצאתי את עצמי יושב וכותב את הקוד הזה ובדקתי מול gpt והתשובה שלו הייתה שלא ניתן להחזיר את הגלגל אחורה היות וקיימים מספר פעמים של הכפלה וחילוק ואין לו שום אפשרות לדעת כמה פעמים זה נעשה ואם אני רוצה לקבל קוד שידבג אחורה אני צריך להביא לו את הסיסמה המקורית
אמנם ידעתי שכנראה לא כתבתי מעולה ואני רוצה לדעת מה הטעויות ואיך ניתן לשפר אותו לרמה מקצועית.

כתבתי קוד משלי לשמירת סיסמאות בdb אקסס
זה הקוד:

Public Function EncryptString(str As String) As String
    Dim i As Integer
    Dim encryptedStr As String
    Dim Doubl As Long
    Dim todivide As Long
    Dim encoded As Long
    encryptedStr = ""
    
    For i = 1 To Len(str)
    
    If i - 1 < 1 Then todivide = Len(str) Else: todivide = i - 1
    If i + 1 > Len(str) Then Doubl = 1 Else: Doubl = i + 1
    encoded = Asc(Mid(str, i, 1)) * Asc(Mid(str, Doubl, 1)) / Asc(Mid(str, todivide, 1))
    If encoded = 32 Then encoded = encoded * Asc(Mid(str, Doubl, 1)) / Asc(Mid(str, todivide, 1))
    If encoded = 13 Then encoded = encoded * Asc(Mid(str, Doubl, 1)) / Asc(Mid(str, todivide, 1))
        Do While encoded >= 191
            encoded = encoded - 191
            If encoded = 32 Then encoded = encoded * Asc(Mid(str, Doubl, 1)) / Asc(Mid(str, todivide, 1))
            If encoded = 13 Then encoded = encoded * Asc(Mid(str, Doubl, 1)) / Asc(Mid(str, todivide, 1))
        Loop
        encryptedStr = encryptedStr & Chr(encoded)
    Next i
    
    EncryptString = encryptedStr

End Function

התוצאות של הקוד שהזנתי הם

M›rG
cfoq

האם אפשר לדבג אותם אחורה או שכתבתי מעולה?

@מלא ואההווו
לא הכרתי את זה זה נשמע באמת הרבה יותר מעולה וקל לתפעול + בלי קריאה של המשתנים ותפעול קליל.
עריכה: המעלה העיקרית שלו שהמשתנה לא מתאפס בזמן שגיאת ריצה (כלשונם)
תודה רבה.

@pcinfogmach תודה רבה!
כנראה שכאשר חיפשתי לא מצאתי אותו.

יש לי לצורך הדוגמא תוכנה עם משתמשים וסיסמאות ואני רוצה שממתי שהמשתמש פתח את התוכנה עד שהוא סוגר אותה יהיה לי משתנה בקוד של המזהה משתמש (כל פעם זה יכול להיות משתמש אחר) וכך כל פעם שהמשתמש עשה שינוי או מחיקה אני יכול לשמור ולדעת מי עשה את זה.
נ.ב. גיגלתי משך שעה ולא מצאתי פתרון + הסבר ברור מה צריך לעשות (אין לי צאט gpt).
תודה רבה

יש לי שאילתה מוצלבת באקסס שמורכבת מתורמים ותרומות באופן הנ"ל

| קוד תורם | שם תורם וכו' | תשס | תשסא|תשסב| וכו' |

כל עמודה של שנה מסכם לי את התרומות של תורם XXX כלפי אותה השנה.

כעת אני מכניס את נתוני 3 השנים האחרונות ע"י סינון בכותרת עמודה כך:

אני רוצה לקבל באופן דינאמי את השדות של השנה הנוכחית ושני השנים שקודמות להם.
יש לי פונקציה שעשיתי שמחזירה את השנה הנוכחית אבל לא הצלחתי להכניס את זה לשאילתה לדוגמא:

זה הקוד sql של השאילתה המוצלבת שמקבלת נתונים של השדות "תשפב","תשפג","תשפד" בתוך ה ? :
סליחה על העברית:

TRANSFORM Sum(תרומות.סכום) AS Sumמתוךסכום
SELECT [רשימת תורמים].קוד_תורם, [רשימת תורמים].שם_משפחה, [רשימת תורמים].שם_פרטי, [רשימת תורמים].כתובת, [רשימת תורמים].[מס'], [רשימת תורמים].דירה, [רשימת תורמים].[לא לפקוד], [רשימת תורמים].נפקד, [רשימת תורמים]![קוד_קטגוריות] & " " & [רשימת תורמים]![הערות] AS הערות, [רשימת תורמים].טלפון, [רשימת תורמים].טלפון_נייד, [רשימת תורמים].[זמן איסוף], [רשימת תורמים].קטגוריה_כן_לא, [רשימת תורמים].[קוד אזור], [רשימת תורמים].עיר
FROM [רשימת תורמים] LEFT JOIN תרומות ON [רשימת תורמים].קוד_תורם = תרומות.קוד_תורם
GROUP BY [רשימת תורמים].קוד_תורם, [רשימת תורמים].שם_משפחה, [רשימת תורמים].שם_פרטי, [רשימת תורמים].כתובת, [רשימת תורמים].[מס'], [רשימת תורמים].דירה, [רשימת תורמים].[לא לפקוד], [רשימת תורמים].נפקד, [רשימת תורמים]![קוד_קטגוריות] & " " & [רשימת תורמים]![הערות], [רשימת תורמים].טלפון, [רשימת תורמים].טלפון_נייד, [רשימת תורמים].[זמן איסוף], [רשימת תורמים].קטגוריה_כן_לא, [רשימת תורמים].[קוד אזור], [רשימת תורמים].עיר
ORDER BY [רשימת תורמים].כתובת, [רשימת תורמים].[מס']
PIVOT תרומות.שנה In ("תשפב","תשפג","תשפד");

ניסיתי לכתוב כך אך אני מקבל שגיאה:

PIVOT תרומות.שנה In (vbYear(,True));

הוספתי אופרטורים אך לא מחזיר כלום

יצרתי שאילתה שמחזירה את 3 השנים באופן הבא

SELECT Years.HebrewYear FROM Years WHERE (((Years.[true])=True));

ובSQL

PIVOT תרומות.שנה In (SELECT Years.HebrewYear FROM Years WHERE (((Years.[true])=True)););

ומקבל

ובהוספת אופרטורים

האם יש פתרון???!!!
אני מבקש שוב אני רוצה תוצאה של דינמאי (כלומר שלא כל שנה אני צריך לעשות מעבר שנה אלא יזהה מה השנה הנוכחית ויעבוד לבד).

תודה רבה מראש.

@מטעמים
תוכל להשתמש בקוד גימטריה שהבאתי כאן
ולהכניס לו את השנה הלועזית פחות 1240 שנה שזה הפער בגימטריה. (שים לב שהוא יתחיל לתת לך תשפד רק בתחילת השנה הלועזית)

@קומפיונט כתב בקוד באט לסגירת תוכנית:

אם אתה רוצה גישה למנהל המשימות בחדר מחשבים, אתה יכול להוריד את systeminformer.

יעזור למקרה ספציפי.... היות והתוכנה תימחק לאחר סגירת המשתמש (או בסוף יום תלוי לפי הגדרת המנהל).
הקובץ הזה אני יכול לשמור בכונן האישי או בדיסק אונקי.

@ivrtikshoret
תודה רבה, עזר לכבות בכפיה תוכנה סוררת שנתקעה לי בחדר מחשבים (שהרי אין שם גישה למנהל המשימות) במקום לסגור את המתמש ולפתוח.

@אורח-פורח הבאת קישור למיחם.
אני מחפש לקנות רק את המכסה ללא המיחם. (הקישור שהבאתי קודם הוא לדוגמא בלבד)

@חוקר אני סובל מבעיה דומה ב2 מיחמים כאלו נהרס לי לאחר שנה וחצי (אמנם עובד כל השבוע באופן רצוף).
לקנות כזה חדש זה לא נראה לי אופציה כי אני יגיע בקרוב לאותו המצב
הגורם העיקרי להתפוררות הזו זה רק אם המכשיר דולק עם קצת מים הרבה זמן שכידוע המים יותר חמים והאדים מפוצצים את המכסה.
לבנתיים שמתי נייר כסף (פתרון שלא מועיל להצבת קומקום תה מעל).
אני מנסה כבר הרבה זמן לחפש מכסה ממתכת מלאה (משהו כמו זה) ולא מצליח למצוא משהו.
לגבי שאלתך ראיתי שיש גם את האתר הזה שמוכר.

תהילה פונטביט משקל בינוני

ישר כח ל@pcinfogmach על העזרה באישי הנה הקוד שיצא לי

Sub גיש_לקובץ_Excel()

    Dim xlApp As Object
    Dim xlWorkbook As Object
    Dim xlWorksheet As Object
    ActiveDocument.TrackRevisions = True
    ' פתח אפליקציה של Excel
    Set xlApp = CreateObject("Excel.Application")
    
    ' פתח את הקובץ Excel
    Set xlWorkbook = xlApp.Workbooks.Open("F:\ערוך\החלפות.xlsx")
    xlApp.Visible = True
    ' בחר את גליון העבודה שבו נמצאים הנתונים
    Set xlWorksheet = xlWorkbook.Sheets("גיליון4")

    ' קרוא את הנתונים מתאים בגליון העבודה
    Dim data1 As String
    Dim data2 As String
    Dim data3 As Boolean
    
    Dim i
    i = 2
    
    Do While xlWorksheet.Cells(i, 1).Value <> ""
    data1 = xlWorksheet.Cells(i, 1).Value '  קורא את  A
    data2 = xlWorksheet.Cells(i, 2).Value '  קורא את B
    data3 = xlWorksheet.Cells(i, 3).Value ' קורא את C
    
    exchange data1, data2, data3
    
    i = i + 1
    Loop
    
    ' סגור את הקובץ Excel
    xlWorkbook.Close
    Set xlWorkbook = Nothing
    
    ' סגור את אפליקצית Excel
    xlApp.Quit
    Set xlApp = Nothing
End Sub



Public Function exchange(d1 As String, d2 As String, d3 As Boolean)
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = d1
        .Replacement.Text = d2
        .Forward = True
        .Wrap = wdFindContinue
        .MatchWildcards = d3
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Function

@pcinfogmach כתב בחיפוש והחלפה בוורד מתוך קובץ אקסל:

סליחה שאני שואל יש לך גיש לבינה מלאכותית?

לא

יש לי מלא חיפושים והחלפות בוורד (קרוב ל400) שכתבתי אותם בקובץ אקסל כך
עמודה A מה לחפש, עמודה B במה להחליף, עמודה C תווים כלליים.

יש לי כרגע קוד שפותח לי את הקובץ אקסל

Dim ExcelDoc As Object

Set ExcelDoc = CreateObject("Excel.Application")
ExcelDoc.Visible = True
ExcelDoc.Workbooks.Open "F:\ערוך\החלפות.xlsx"

Set ExcelDoc = Nothing

מה שחסר לי זה לולאה שתרוץ שורה שורה ותחזיר לי את 3 הערכים שבשורה.

@pcinfogmach לא הבנת את שאלתי ואני אסביר את עצמי שוב.

אני יכול היום לחפש לצורך הענין חיפוש כדלהלן
([א-ת ])"([א-ת ']@)"([ ^2,.])

יש כאן 3 סוגריים עגולות
אני מחפש מחרוזת שמתחילה באות אחת מהא-ב או רווח ולאחר מכן " ולאחר מכן כל מחרוזת לא משנה כמה מילים ולאחר מכן " ולאחר מכן או רווח או הערת שוליים או , או .
ואני מחליף אותו בקוד הבא
\1'\2'\3
כלומר תחזיר לי את כל הערכים שחיפשתי אבל הוא יחליף את ה " ל '

כעת אני רוצה לחפש מחרוזת שלפניה יהיה אחד מ כמה מילים שאני יכתוב לו לצורך הענין זה יראה כך
([סימן,אות,וכדו'])([א-ת])'
ובהחלפה ל \1\2

מקווה שהובנתי

@pcinfogmach אני יכול לחפש שם כמו תווים מיוחדים? ???

אני רוצה לחפש כמה מילים בוורד (ע"י תווים מיוחדים) אבל אני רוצה לחפש אותם בחיפוש אחד לדוגמא.

([אות][סימן])

במצב הזה הוא מתייחס למילה כאותיות
אני רוצה שהוא יתייחס למילה כאל מילה ויחפש מחרוזות שמכילות או אות או סימן.
איך אני יכול לבצע את זה?

@yossiz
הבעיה היא שאם אני מחפש לפי MD5 אני לא מקבל את השדות המלאות
פלט

PS X:\test> Compare-Object (Coalesce $folder1Items @("0")) (Coalesce $folder2Items @("0")) -Property MD5 -IncludeEqual

MD5 SideIndicator
--- -------------
    ==           
    =>           
    =>           
    =>           
    =>           
    =>           
    =>           
    =>           
    =>           
    =>           
    =>           
    =>