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

@magicode

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

אלא בתוכנות קוד פתוח

@magicode

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

גם אם היו מתחכמים מאוד, חכם קטן היה עולה על הסיסמה.
גם בC++.
הטעות שלהם היא בהקצאת משתמש עם 1) הרשאות כתיבה 2) גישה למקומות שלא צריך.

@magicode

הקטע שזה מעולם לא היה אסמבלי ואני לא הייתי קורא לזה אסמבלי זה פשוט קוד מקור שמקומפל בקובץ אחד.

זה משחק מילים מטעה. מה שהתכוונו במילה זה קבוצת מחלקות וכו' מקובצים ביחד. לא התכוונו בכלל לקימפול.

@magicode

לדעתי תוסיף זבל לתוכנה. כל מיני פונקציות לא קשורות או איזה מחלקה ענקית כמו zlib.
תקודד מחרוזות בצורה כזאת

"\u0053" + "\u0046"

זה בדיוק מה שעושות התוכנות שהזכרתי, רק צריך לדעת להשתמש איתם טוב.
הבעיה שלו שחלק מהקוד שלו אמור להישאר שלם ללא שינוי.

פורסם במקור בפורום CODE613 ב06/08/2013 13:33 (+03:00)

קודם צריך להבין איך זה עובד,
כל אסמבלי (DLL/EXE) דוטנטי כתוב בשפה די קריאה המכונה CLI.
כשהאסמבלי מורץ מתבצע הידור (קומפילציה) שלו עד לשפת מכונה.

ממילא, קל מאוד לצפות בקוד המקור ולדעת את סודותיו, ואף לערוך אותו.
יש הרבה צופי/עורכי אסמבלי דוטנטי, חלקם חינמיים (לדוגמא http://www.jetbrains.com/decompiler).

אז איך מתגוננים?
הנה מאמר בנושא: http://www.underwar.co.il/15-DigitalWhisper/d577/

מה שמוצע שם זה ערפול הקוד, באנגלית: obfuscators.
איפה משיגים בחינם? אולי פה תמצאו: http://stackoverflow.com/questions/805549/free-obfuscation-tools-for-net

יש אחד רשמי בתשלום של מיקרוסופט מובנה בVS האולטימייט כמדומני.

בהצלחה.

פורסם במקור בפורום CODE613 ב05/08/2013 13:27 (+03:00)

הנה ייאוש רשמי:
http://social.msdn.microsoft.com/Forums/vstudio/en-US/b7189874-ff1d-4d51-9bd2-649300fc1bad/how-can-i-access-the-code-elements-inside-a-function-definition-in-visual-studio-addin.

שים לב שפרמטרים אתה כן יכול להשיג, אם זה מעניין אותך.

פורסם במקור בפורום CODE613 ב02/08/2013 15:32 (+03:00)

א. זה לא VBA, זה VB.NET
ב. מאוד הגיוני שזה יקרא מבנים פנימיים (משתנים לולאות תנאים וכו'), וידנית אכן זה אפשרי, אבל עד כה לא מצאתי איך עושים.
ג. בקובץ VB.NET קל יחסית למצוא משתנים, אבל בקובץ C# זה קשה מאוד! כך נראה לי.
ג. הצפיות כוללות גם משתמשים לא רשומים.

פורסם במקור בפורום CODE613 ב02/08/2013 13:32 (+03:00)

@רחמים

איך ?

אחרי הוספת רפרנס לSystem.Web' קוד לC# וVB.NET כאחד:

System.Web.HttpUtility.UrlEncode("שלום abc")

פורסם במקור בפורום CODE613 ב02/08/2013 16:00 (+03:00)

אם לא היה מדובר בVBA, זה שורת קוד אחת בC#.

פורסם במקור בפורום CODE613 ב01/08/2013 13:35 (+03:00)

אם יש לך עוד בעיות,
השתמש אולי בקוד זה (אצלי עובד מצויין):

Private Const CP_UTF8 = 65001
Private Declare PtrSafe Function WideCharToMultiByte Lib "Kernel32" (ByVal CodePage As Long, ByVal dwflags As Long, ByVal lpWideCharStr As Long, ByVal cchWideChar As Long, ByVal lpMultiByteStr As Long, ByVal cchMultiByte As Long, ByVal lpDefaultChar As Long, ByVal lpUsedDefaultChar As Long) As Long
Public Function UTF16To8(ByVal UTF16 As String) As String
Dim sBuffer As String
Dim lLength As Long
If UTF16 <> "" Then
    lLength = WideCharToMultiByte(CP_UTF8, 0, CLng(StrPtr(UTF16)), -1, 0, 0, 0, 0)
    sBuffer = Space$(lLength)
    lLength = WideCharToMultiByte(CP_UTF8, 0, CLng(StrPtr(UTF16)), -1, CLng(StrPtr(sBuffer)), Len(sBuffer), 0, 0)
    sBuffer = StrConv(sBuffer, vbUnicode)
    UTF16To8 = Left$(sBuffer, lLength - 1)
Else
    UTF16To8 = ""
End If
End Function

Public Function URLEncode( _
   StringVal As String, _
   Optional SpaceAsPlus As Boolean = False, _
   Optional UTF8Encode As Boolean = True _
) As String

Dim StringValCopy As String: StringValCopy = IIf(UTF8Encode, UTF16To8(StringVal), StringVal)
Dim StringLen As Long: StringLen = Len(StringValCopy)

If StringLen > 0 Then
    ReDim result(StringLen) As String
    Dim I As Long, CharCode As Integer
    Dim Char As String, Space As String

  If SpaceAsPlus Then Space = "+" Else Space = "%20"

  For I = 1 To StringLen
    Char = Mid$(StringValCopy, I, 1)
    CharCode = Asc(Char)
    Select Case CharCode
      Case 97 To 122, 65 To 90, 48 To 57, 45, 46, 95, 126
        result(I) = Char
      Case 32
        result(I) = Space
      Case 0 To 15
        result(I) = "%0" & Hex(CharCode)
      Case Else
        result(I) = "%" & Hex(CharCode)
    End Select
  Next I
  URLEncode = Join(result, "")

End If
End Function

לקוח מפה http://stackoverflow.com/questions/218181/how-can-i-url-encode-a-string-in-excel-vba
עם התאמות קלות ל64 ביט.

פורסם במקור בפורום CODE613 ב31/07/2013 17:59 (+03:00)

@ארכיטקט

לגבי המגבלות של עד כך וכך רשומות ועד כך וכך משתשמים, יש מקום שכתוב מספרים במקום "כך וכך"????

בהגדרות הSQLSERVER יש הגדרה לכמות חיבורים בו זמנית, ונדמה לי גם לכמות תעבורה.
כמובן שגם כשהשרת הSQL מאפשר, אם יכולת המחשב מוגבלת תהיה האטה ואף בעיות לא צפויות.

פורסם במקור בפורום CODE613 ב22/08/2013 16:14 (+03:00)

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

אולי אז טעיתי ואלי זה תלוי במשהו.

פורסם במקור בפורום CODE613 ב04/08/2013 12:38 (+03:00)

אם אני זוכר טוב, זה איטי מאוד.

פורסם במקור בפורום CODE613 ב31/07/2013 17:09 (+03:00)

ב"ה האתר שלנו עובד, ומתרחב יחסית.
האתר הוקם על ידי כמה חברים פה,
לעזור להעזר וחלוק עצות וניסיון בנושאי תכנות.
האתר הוקם בין יום (או לילה) בצורה טיפה מאולתרת וזמנית: השם, הדומיין, מערכת הפורום, והעיצוב וכו'.
אז כעת נקבע השם החדש CODE613M.
מה משמעות השם?
א. אתר תכנות (code)
ב. קהילה המהלכת עם ציצית (m613), כלומר גאים בהיותם יהודים, ודבקים בהגדרה זו.
ג. נושא האתר הוא משני, תת נושא, לנושא העליון שהוא לחיות, חיים הקרויים חיים.

אפשר לתמוה, מה עניין תכנות, להשקפת חיים. מה הקשר.
זה אפי' נראה מיסיונריות לתקוע ענייני דת בענייניים טכניים מובהקים.

אנו אכן לא רוצים בכלל לערב עניינים, אבל אנו רוצים להבהיר עקרונות ומדיניות.
הקהילה/האתר פתחים בפני כל,
אך אחרי שהכרזנו בשער כל עקרונותינו, גם מי שזר להם, יוכל להשתתף תוך כדי שמירה על הערכים שלנו.

פורסם במקור בפורום CODE613 ב26/07/2013 16:10 (+03:00)

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

אם זה לא כטקסט אלא כפיקסלים אתה צריך להוציא אכן לפי מיקום.

פורסם במקור בפורום CODE613 ב23/07/2014 10:55 (+03:00)

אני משתמש בitextsharp

הנה קוד בVB

Private Function ReadPdfFile(fileName As String) As String
    Dim text As New StringBuilder()

    If File.Exists(fileName) Then
        Dim pdfReader As New PdfReader(fileName)

        'For page As Integer = 1 To pdfReader.NumberOfPages
        Dim strategy As parser.ITextExtractionStrategy = New parser.SimpleTextExtractionStrategy()
        Dim currentText As String = parser.PdfTextExtractor.GetTextFromPage(pdfReader, 1, strategy)

        currentText = New String(currentText.Reverse().ToArray)
        text.Append(currentText)
        'Next
        pdfReader.Close()
    End If
    Return text.ToString()
End Function

פורסם במקור בפורום CODE613 ב26/07/2013 15:00 (+03:00)

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

משמעות השם HRDM לא רלוונטית בינתיים כי השם הוא זמני.
אני אשמח לשמוע הצעות לשם יאה לפורום ולדומיין (כלומר שם פנוי).

פורסם במקור בפורום CODE613 ב25/07/2013 19:20 (+03:00)

@רחמים

הנה הפרוייקט המקורי כפי שפורסם:

הקוד הוא מאוד פשוט וקצר אני מקווה שתגלו בקלות מה מונע את וורד לפתוח את הקובץ לעריכה.
תבורכו מפי עליון!

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

פורסם במקור בפורום CODE613 ב25/07/2013 17:47 (+03:00)

נכון, בקוד שלי יש טעות, צריך להוסיף אחרי המילה Document. את המילה Body.

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

אם אתה ממשיך עם הקוד ההוא עשה כעצתי ו"דבג" אותו צעד צעד.

פורסם במקור בפורום CODE613 ב25/07/2013 17:45 (+03:00)

הנה קוד מעודכן למה שביקשת:

Dim Doc = Packaging.WordprocessingDocument.Open(filename, False)
Dim tb As New Text.StringBuilder
For Each P In Doc.MainDocumentPart.Document.Elements(Of Wordprocessing.Paragraph)()
    tb.Append(P.InnerText)
    tb.Append(vbCrLf)
Next
Doc.Close()

Return tb.ToString()

פורסם במקור בפורום CODE613 ב25/07/2013 16:38 (+03:00)

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

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

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

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

פורסם במקור בפורום CODE613 ב25/07/2013 16:28 (+03:00)

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

אבל, וה"אבל" הזה גדול, אני לא מבין מה ההוא מCodeproject יותר טוב מהשימוש בOpen XML.
לכן אני לא מבקש ממך להעלות את הקוד שלך, כי אני מקוה שבמקום להתעמק בשל ההוא, תשתמש עם הרשמי והמפורסם.
הנה ההורדה הרשמית: http://www.microsoft.com/en-us/download/details.aspx?id=5124
העיקר זה הקובץ הקטן, הוא הDLL. הגדול זה טוב ללמוד איך עובדים הקבצים מבוססי הOpenXml, מה הם מכילים ואיך לקרוא ולכתוב את זה.

הנה מה שצריך לקריאת הטקסט כמדומני:

Dim Doc = Packaging.WordprocessingDocument.Open(filename, False)
Return Doc.MainDocumentPart.Document.InnerText
Doc.Close()

פורסם במקור בפורום CODE613 ב25/07/2013 15:38 (+03:00)

ממש קל, בVS אתה מוסיף דף לפרוייקט WEB כל שהוא, בוחר בWebService, כותב פונקציות וזהו.
ואז התוצאה מגיעה ע"י בקשת HTTP בשיטת POST.

בתוכנה אפשר לשלב את הפונציונליות של הWebService ממש בתוכנה כמו כל DLL.
מוסיפים WebReference, וזהו יש בפרוייקט גישה לכל הפונקציות של הWebService.

פורסם במקור בפורום CODE613 ב24/07/2013 15:10 (+03:00)